login.txt

a very userful email managing service

#!/usr/bin/perl
use CGI qw(:standard);
if((param('emailid'))&&(param('passkey')))
{
$user=param('emailid');
$pass=param('passkey');

dbmopen(%data,"/etc/httpddata/comp.dat",0600);
if($data{$user} eq $pass)
{
$iduser=time()."-".$ENV{'REMOTE_ADDR'}."-".$$;
print "Set-Cookie: iduser=$iduser; expires=$ENV{'DATE'}+2 HOURS;\n"; 
dbmopen(%cook,"/etc/httpddata/cookies.dat",0600);
$cook{$iduser}="$user:$pass";
dbmclose %cook;
print "Location: http://www.myproject.com/service/mail\n\n";
dbmclose %data;
exit;
}
else
{
dbmclose %data;
print "Location: http://www.myproject.com/service/signin?error=yes\n\n";
exit;
}
}
else
{
print "Location: http://www.myproject.com/service/signin?error=yes\n\n";
exit;
}