#!/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!\n<br><br>\n";
		}
		else
		{
			print "Sorry, you didn't type in the correct password.\n<br><br>\n";
		}
	}
}

##########################################################################

print end_html;