#!/usr/bin/perl

$mailprog = '/usr/lib/sendmail';

print "Content-type: text/html\n\n";
print "<Head><Title><font face=arial size=2>MSG is sent</font></Title></Head><font face=arial size=2>";
# Get the input
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});

# Split the name-value pairs
@pairs = split(/&/, $buffer);

foreach $pair (@pairs)
{
    ($name, $value) = split(/=/, $pair);

    # Un-Webify plus signs and %-encoding
    $value =~ tr/+/ /;
    $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

    # Stop people from using subshells to execute commands
    # Not a big deal when using sendmail, but very important
    # when using UCB mail (aka mailx).
    # $value =~ s/~!/ ~!/g; 

    # Uncomment for debugging purposes
    # print "Setting $name to $value<P>";

    $FORM{$name} = $value;
}

# If the comments are blank, then give a "blank form" response
&blank_response unless $FORM{'comments'};

# Now send mail to $recipient

$scheck = $FORM{'email'};
$scc = '@';
if($scheck =~/$scc/){
}else{
        print "Sorry, you put the wrong e-mail format";
        exit;
}

open (LOGFILE, ">>/usr/local/etc/httpd/htdocs/ins/contestentrylog");
 

 
$t = localtime(time);
print LOGFILE "\n";
print LOGFILE "$ENV{'REMOTE_HOST'} ";
print LOGFILE "$t $FORM{'comments'} ";
print LOGFILE "$t $FORM{'url'} ";
print LOGFILE "$t $FORM{'phone'} ";
print LOGFILE "$FORM{'email'}\n";
close (LOGFILE);

$recipient = 'ian@ezenet.com,kasra@ezenet.com';
open (MAIL, "|$mailprog $recipient") || die "Can't open $mailprog!\n";

print MAIL "From: $FORM{'to'}\n";
print MAIL "To: $recipient\n";
print MAIL "Subject: Contest Entry\n\n";
print MAIL "Name: $FORM{'comments'}\n";
print MAIL "E-mail: $FORM{'email'}\n";
print MAIL "E-mail: $FORM{'url'}\n";
print MAIL "E-mail: $FORM{'phone'}\n";
print MAIL  "------------------------------------------------------------\n";

close (MAIL);



# Make the person feel good for writing to us
print "Thank you $FORM{'comments'} <P>";
print "Your contest entry has been accepted! <P>";
print "</center>";
print "For security reasons, we will keep this log from your entry confidential.<P>";

print "IP Address: $ENV{'REMOTE_HOST'}<br>";
print "Date/Time Stamp $t <br>Name: $FORM{'comments'}<br>";
print "Email: $FORM{'email'}<p>";
print "<h2><A HREF=\"/contest.html\"\>BACK</a></h2></font>";

# ------------------------------------------------------------
# subroutine blank_rsponse
sub blank_response
{
    print "<br><br><br>";
	print "Your email appears to be blank, and thus was not sent.<br> ";
    print "Go BACK and Please re-enter your email.<br>";
    print "Click here to go<A HREF=\"/contest.html\"> BACK</A> NOW.<P>";
    exit;
}
