#!/usr/local/bin/perl
##########################################################################
# cookie1: Set login cookies
##########################################################################
use CGI "param","cookie";
@input = param(); # get all form element names
print "Content-type: text/html \n";
if(! @input) { # is there no input
&print_form(); # print the html form
exit;
}
else { # otherwise
$loginId = param('loginId'); # get entered data
$fname = param('fullname'); # get entered data
$saveId = param('saveId');
}
&test_input(); # validate entered data
if (! $msg) { # if there are no error msg
&set_cookie(); # save a new cookie
}
&print_form();
exit(0);
##############################################################################
sub print_form {
print "\n";
print "
Sign In Please
Sign In Please
$msg
";
}
##############################################################################
sub test_input {
if ($loginId eq '') {
$msg = 'Please enter your login name!';
return;
}
if ($fname eq '') {
$msg = 'Please enter your name!';
return;
}
open(FILE, "< /etc/passwd");
while($line = ) {
($userid,$other) = split(/:/,$line);
if ($loginId eq $userid) {
return;
}
}
$msg = 'Login id is invalid!';
}
##############################################################################
sub set_cookie {
print "Set-Cookie: login=$loginId; path=/"; #save login cookie
if ($saveId eq 'Y') {
print "; expires=Sat, 31-Dec-2005 23:59:59 GMT"; #with expiration
}
print "\n";
print "Set-Cookie: name=$fname; path=/"; #save name cookie
if ($saveId eq 'Y') {
print "; expires=Sat, 31-Dec-2005 23:59:59 GMT"; #with expiration
}
print "\n";
$msg = "Login successful";
}
##############################################################################