#!/usr/bin/perl -wT
use CGI;
use CGI::Cookie;
use CGI qw(:standard);
use CGI::Carp qw(warningsToBrowser fatalsToBrowser);
use Fcntl qw(:flock :seek);
use Fcntl;
use strict;
my (
$name, #username they type in
$pass, #password they type in
$sys_name, #username in the member file
$sys_pass, #password in the member file
@members, #array of all members
$dirto_members_list, #directory to members file
$valid_name, #variable to determine name validity
$valid_pass, #variable to determine password validity
$cookie #cookie used to dtermine if they're logged in or not
);
$name = param('username');
$pass = param('password');
print header;
print start_html('Login Status');
#########################################################################
# Check the name & password in the members file
#########################################################################
$dirto_members_list = "/home/hopefulc/public_html/cgi-bin/koh_members_list.cgi";
open (MEM, $dirto_members_list) || die("The File could not be opened!"); #open the members file
flock (MEM, LOCK_SH);
seek (MEM, 0, SEEK_SET);
@members = <MEM>;
chomp (@members);
close(MEM); #close the members file
$valid_name = 0;
$valid_pass = 0;
foreach my $mem (@members)
{
($sys_name, $sys_pass) = split (/|..|/, $mem);
if ($name eq $sys_name)
{
$valid_name = 1;
if ($pass eq $sys_pass)
{
$valid_pass = 1;
print "Congratulations $name, you logged in!
<br><br>
";
}
else
{
print "Sorry, you didn't type in the correct password.
<br><br>
";
}
}
}
##########################################################################
print end_html;
It looks like you're new here. If you want to get involved, click one of these buttons!