#!/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"; Inbox

confirmation

Home
Up
Members
Archive
Project Information
Contact Information

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

  

Home | Members | E-Mail | Archive | Project Information | Contact Information

 

DDD } else {print "Location: http://www.myproject.com/fnom.htm\n\n"; exit;} } else {print "Location: http://www.myproject.com/ferror.htm\n\n"; exit; } }