Log In script Using Perl

Log In script Using Perl

Login.pl

#!/www/perl/bin/perl.exe
print "Content-type: text/html\n\n";
use CGI;
use CGI::Carp qw/fatalsToBrowser warningsToBrowser/;
use CGI::Session ( '-ip_match' );

$q = new CGI;

$usr = $q->param('usr');
$pwd = $q->param('pwd');

if($usr ne '')
{
# process the form
if($usr eq "demo" and $pwd eq "demo")
{
$session = new CGI::Session();
print $session->header(-location=>'index.pl');

}
else
{
print $q->header(-type=>"text/html",-location=>"login.pl");
}
}
elsif($q->param('action') eq 'logout')
{
$session = CGI::Session->load() or die CGI::Session->errstr;
$session->delete();
print $session->header(-location=>'login.pl');
}
else
{
print $q->header;
print <

Username:

Password:

HTML
}



Index.pl

#!/www/perl/bin/perl.exe
print "Content-type: text/html\n\n";
# index.pl
use CGI;
use CGI::Carp qw/fatalsToBrowser warningsToBrowser/;
use CGI::Session ( '-ip_match' );

$session = CGI::Session->load();
$q = new CGI;

if($session->is_expired)
{
print $q->header(-cache_control=>"no-cache, no-store, must-revalidate");
print "Your has session expired. Please login again.";
print "
login";
}
else
{
print $q->header(-cache_control=>"no-cache, no-store, must-revalidate");
print "

Welcome";
print "Logout";
}