#!C:/perl/bin/perl.exe use CGI::Carp qw(fatalsToBrowser); use CGI; $query = new CGI; print $query->header; print $query->start_html(-title=>'eStyles'); print " \n\n"; $pin= $query->param('pin'); $password= $query->param('password'); # ---- check password --- open(INFO, "$ENV{'DOCUMENT_ROOT'}/P593/data/userlist.txt"); @passdata = ; close(INFO); $match = 0; foreach $key (@passdata){ @a=split(/,/,$key); if($a[0] eq $pin && $a[1] eq $password){ $match=1; } } if($match !=1){ print "We cannot find a record of either that user name ($pin) or password.

"; print "If you think you may have made a typo, please click your browser's Back button and try again.

"; } if ($match == 1){ print "
You are logged in as $pin.

Complete a survey

"; print "
Please click the button above to take the next survey.

"; print ""; print ""; print "
"; } # end match = 1 print $query->end_html;