chp.txt

a very userful email managing service

#!/usr/bin/perl -w
use CGI qw(:standard);
if((param('emailid'))&&(param('oldpass'))&&(param('newpass1'))&&(param('newpass2')))
{
$emailid=param('emailid');
$oldpass=param('oldpass');
$newpass1=param('newpass1');
$newpass2=param('newpass2');
   if($newpass1 eq $newpass2)
     {
       dbmopen(%pdata,"/etc/httpddata/comp.dat",0400);
	if(($pdata{$emailid})&&($oldpass eq $pdata{$emailid}))
	{
        dbmopen(%sdata,"/etc/httpddata/chpass.dat",0600);
        $sdata{$emailid}=$newpass1;
	dbmclose %pata;
        dbmclose %sdata;
	print "Location: http://www.myproject.com/chss.htm\n\n";
        exit;
	}
	else
	{
	dbmclose %pdata;
	print "Location: http://www.myproject.com/cherror2.htm\n\n";
        exit;
	}
      }
    else
	{
	print "Location: http://www.myproject.com/cherror1.htm\n\n";
        exit;
	}
}
else
{
print "Location: http://www.myproject.com/cherror.htm\n\n";
exit;
}