use strict;
use warnings;
use CGI;
my $q = new CGI;
my $user = $q->param('user');
my $password = $q->param('pass');
#-----------------------------------------
#START OF MAIN PROGRAM
#-----------------------------------------
my ($title,$body);
if ( &verify($user,$password) eq "Valid" ){
($title,$body) = &valid();
} else {
($title,$body) = &fail();
};
print qq(Content-type: text/html\n
$title
$body
);
#-----------------------------------------
#END OF MAIN PROGRAM:BEGIN OF VERIFICATION
#-----------------------------------------
sub verify{
my ($user,$password) = @_;
open(PASS, "pass") or die "Couldn't find password file.\n";
while(){
chomp;
my ($ur,$ps) = split(/\t/, $_, 2);
if ( ($ur eq $user) && ($ps eq $password) ){
close PASS;
return "Valid";
}
}
close PASS;
return "notValid";
}
#-----------------------------------------
#IF VALID
#-----------------------------------------
sub valid {
my $title = "Login successful !";
my $body = q(
Login succesful!
Click here to continue
);
return ($title,$body);
}
#-----------------------------------------
#IF NOT VALID
#-----------------------------------------
sub fail {
my $title = "Login unsuccessful !";
my $body = q(
Invalid username\password.
Please try again.
);
return ($title,$body);
}
#-----------------------------------------
#END
#-----------------------------------------
####