#!/usr/bin/perl -w use CGI qw(:standard); if((!param('user'))||(!param('anw'))) { print "Location: http://www.myproject.com/forget.htm\n\n"; exit; } else { $user=param('user'); $aw=param('anw'); dbmopen(%fdata,"/etc/httpddata/comudata.dat",0400); dbmopen(%vdata,"/etc/httpddata/comp.dat",0400); if((defined $fdata{$user})&&(defined $vdata{$user})) { ($fn,$ln,$seq,$as)=split(':',$fdata{$user}); if($aw eq $as) { $pass=$vdata{$user}; dbmclose %vdata; dbmclose %fdata; print header; print <<"DDD";
|
Thanks $fn $ln for useing this service User-ID: $user Your password is "$pass" Please Immedately Change your password for security reasons. For Changing Password Click Here
|
|