Passwd change at Gem Net site.

#!/usr/local/bin/expect --

set timeout 40
#sets the timeout value taken by an interactive input#
set send_slow {1 .2}

#force send -s to send string with .2 sec. in between each 1 character send.#

set send_human {.1 .3 1 .05 2}
set prompt "(%|#|\\$) $"   ; # default propmt
catch {set prompt $env(EXPECT_PROMPT) }


puts "Content-type: text/html\n"        ;# note extra newline

puts "
<head>
<title>Passwd change at Gem Net site.</title>
</head>

<h2>Operation in progress.Please wait.......</h2>
"

proc cgi2ascii {buf} {
    regsub -all {\+} $buf { } buf
    regsub -all {([\\["$])} $buf {\\\1} buf
    regsub -all -nocase "%0d%0a" $buf "\n" buf
    regsub -all -nocase {%([a-f0-9][a-f0-9])} $buf {[format %c 0x\1]} buf
    eval return \"$buf\"
}

foreach pair [split [read stdin $env(CONTENT_LENGTH)] &] {
        regexp (.*)=(.*) $pair dummy varname val
        set val [cgi2ascii $val]
        set var($varname) $val
}

log_user 0

spawn telnet 192.1.1.30

expect "login:"
send "$var(name)\r"
expect "Password:"
send "$var(old)\r"

expect {
	"Login incorrect" {
		  puts "Incorrect login credential supplied.<br>"
		  puts "Your IP address and user name is recorded.<br>"
		  puts "You can <A Href=\"http://192.1.1.30/passwd.html\">try again.</A>"  
		  exit
			  } $prompt
	}

send "exit\r"			 
spawn telnet 192.1.1.30 

expect "login:"
send "root\r"
expect "Password:"
send "sparc\r"
expect -re $prompt
send "passwd $var(name)\r"
expect "New password:"
send "$var(new1)\r"
expect "new password"
send "$var(new2)\r"
expect	{
	"successfully changed" {
			      puts "<B>Password changed at Gemnet</B>"
			      puts "<BR>Goto <A Href=\"http://www.gem.net.pk/\">homepage</A>"
			      exit
			      } "try again."
	}
			      puts "<Blink>Passwd doesn't match</blink>"

exit