if($ENV {"REQUEST_METHOD"} eq 'GET') { $rqst = $ENV{"QUERY_STRING"}} else {read(STDIN, &rqst, $ENV{"CONTENT_LENGTH"})} @rqstedtd = split(/&/, $rqst, 2); @user = split(/=/, $rqstedtd[1], 2); @pass = split(/=/, $rqstedtd[3], 2); open(PASS, "pass") or die "Couldn't find password file.\n"; open(LOGG, ">>log") or die "Coundn't find log file.\n"; while() { $fstln = $_; chomp($fstln); @login = split(/\t/, $fstln, 2); unless ($user[1] ne $login[0]) { next; } if($pass[1] eq $login[1]) { print < Login sucessful! <head> <hr> </head> <body bgcolor="black" text="red"> <h3> Login succesful! <br> <br> <a href="www.eircom.net"> <h2> Click here to continue </a> <hr> </body> </html> EndOfTop } else { print <<EndOfBotom <html> <title> Login Unsuccesful

Login unsuccesful Invalid username\password.
Please try again.

User Name:
Password:
EndOfBotom }}