#!/usr/bin/perl

# database names, emails, subjects have been changed
# to protect the innocent

use strict;
use CGI;
use CGI::Carp qw(fatalsToBrowser);
use Postgres; # old module, I know
use Mail::Send;

my $sql = db_connect("mydbname");
if (!$sql){ 
	die "Unable to open database: $!\n"; 
}
my $table  = 'users';

my $q = new CGI;

print $q->header;

if($q->param('email') eq ''){
	print $q->p(qq{<p>Please <a href="javascript:history.go(-1)">go back</a> and provide your account email address.</p>\n});
	exit;
}

my $query = sprintf(q{SELECT email, namefirst, namelast, username, userpass from %s WHERE email ~ %s}, 
		$table, qstr($q->param('email')) );
my $result = $sql->execute($query);
my  @data = $result->fetchrow();


my $email = $data[0];

if($email ne ''){
	send_account(\@data);
	print $q->p( "Thank you!  Your account information has been sent to " . $email );
	print $q->p( qq{<a href="/login.php">Log In</a>} );
}else{
	print $q->p(qq{<p>Sorry!  No account found with that email address.  Please } . 
			qq{<a href="javascript:history.go(-1)">go back</a> and try again.</p>\n});

}

sub qstr{
	# this old Postgres module does not have its own quote() method.
	# this is a weak implementation, but better than nothing. (I think)
	my ($str) = @_;
	$str =~ s#(\\)#/#sg; # replace backslashes with slashes
	$str =~ s/(['])/\\$1/; # escape single-quotes
	return qq{'$str'};
}

sub send_account{
	my ($matching_row) = @_;
	# Set Mail Headers
	my $mailout = new Mail::Send;
	$mailout->to( shift @{$matching_row} );
	$mailout->subject("Online Registration");
	$mailout->add('From', 'user@domain.com');
	$mailout->add('Reply-To', 'user@domain.com');

	# open up a mail filehandle
	my $mailfh = $mailout->open;

	# print mail body
	my $mailbody=<<END_OF_MAIL;
Dear %s %s:
  Thank you for registering.  Here is your
  account information:
USERNAME:  %s
PASSWORD:  %s
  Please keep this information safe.

  Your account is active, and you may log in any time to place your first
  order. 

Sincerely,

Administrator
END_OF_MAIL

	printf $mailfh $mailbody, @{$matching_row};

	# close and send
	$mailfh->close;   
}