#!/usr/bin/perl --
use CGI;

$query = new CGI;
$saved_details = new CGI;
$sendmail = "/usr/lib/sendmail";

$reply_to = 'nick@nick-thomas.org.uk';
$subject = "Subject: You Got Hit\n\n";
$content = "You Got Hit\n";
$default_file = 'email.dat';

$count_file = 'nick_hits.sav';

$saved_hits = &get_saved_hits($saved_hits);

$saved_details = &get_details($saved_details);
$to = $saved_details->param('Email');

#$to = 'nicholas.thomas@concoursesystems.co.uk';

$num_hits = $saved_hits->param('hits');

print $query->header;
print $query->start_html('Email Me');

if(open(SENDMAIL, "|$sendmail -t"))
{
  print SENDMAIL "To: $to\n";
  #print SENDMAIL "Reply-To: $reply_to\n";
  print SENDMAIL "From: $reply_to\n";
  print SENDMAIL "Subject: You got hit again (".$num_hits.") \n\n";
  print SENDMAIL "You have been hit a total of ".$num_hits." times.\n";

  close(SENDMAIL);
}
else
{
    print 'Failed to send mail';
}

#print 'Done';
print $query->end_html;

sub get_details
{
    local($saved_details) = @_;
    local($filename) = $default_file;

    if(open(FILE, $filename))
    {
	$saved_details = new CGI(FILE);
	close FILE;
    }

    return $saved_details;
}

sub get_saved_hits{
    local($saved_hits) = @_;
    local($filename) = $count_file;

    if(open(FILE, $filename))
    {
        $saved_hits = new CGI(FILE);
        close FILE;
    }
    return $saved_hits;
}
# EOF