#!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 "";
} # end match = 1
print $query->end_html;