#!/usr/bin/perl
$mailprog = '/usr/lib/sendmail';

# This should be set to the username or alias that runs your
# WWW server.
$recipient = 'webmaster@ezenet.com';


# Print out a content-type for HTTP/1.0 compatibility
print "Content-type: text/html\n\n";

# Print a title and initial heading
print "<Head><Title>Thank you</Title></Head>";
print "<Body bgcolor=#ffffff text=#000000><H1><center>Thank you</H1><center>";
# 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{'A3-Name'};
&blank_response unless $FORM{'A3-Company'};
&blank_response unless $FORM{'A3-Street'};
&blank_response unless $FORM{'A3-Tel'};
&blank_response unless $FORM{'B4-InternetAddress'};
$scheck = $FORM{'B4-InternetAddress'};
$scc = '@';
if($scheck =~/$scc/){
}else{
	print "Sorry you put the wrong e-mail format";
	exit;
}
# Now send mail to $recipient
open (LOGFILE, ">>/var/spool/news/htdocs/downloadlog.html");
print LOGFILE "Company Name is: $FORM{'A3-Company'}\n";
print LOGFILE "Address is: $FORM{'A3-Street'} ";
print LOGFILE "$FORM{'A3-City'} ";
print LOGFILE "$FORM{'A3-State'} ";
print LOGFILE "$FORM{'A3-Zip'}\n";
print LOGFILE "Phone number is: $FORM{'A3-Tel'}\n";
print LOGFILE "Fax number is: $FORM{'A3-Fax'}\n";
print LOGFILE "Email address: $FORM{'B4-InternetAddress'} ($FORM{'A3-Name'})\n";
print LOGFILE "Server protocol: $ENV{'SERVER_PROTOCOL'}\n";
print LOGFILE "Remote host: $ENV{'REMOTE_HOST'}\n";
print LOGFILE "Remote IP address: $ENV{'REMOTE_ADDR'}\n";
print LOGFILE "------------------------------------------------------------\n\n";
close (LOGFILE);
open (MAIL, "|$mailprog $recipient") || die "Can't open $mailprog!\n";
print MAIL "Reply-to: $FORM{'B4-InternetAddress'} ($FORM{'A3-Name'})\n";
print MAIL "Subject: Software download (Forms submission)\n\n";
print MAIL  "------------------------------------------------------------\n";
print MAIL "Company Name is: $FORM{'A3-Company'}\n";
print MAIL "Address is: $FORM{'A3-Street'} ";
print MAIL "$FORM{'A3-City'} ";
print MAIL "$FORM{'A3-State'} ";
print MAIL "$FORM{'A3-Zip'}\n";
print MAIL "Phone number is: $FORM{'A3-Tel'}\n";
print MAIL "Fax number is: $FORM{'A3-Fax'}\n";
print MAIL "Email address: $FORM{'B4-InternetAddress'} ($FORM{'A3-Name'})\n";
print MAIL "\n------------------------------------------------------------\n";
print MAIL "Server protocol: $ENV{'SERVER_PROTOCOL'}\n";
print MAIL "Remote host: $ENV{'REMOTE_HOST'}\n";
print MAIL "Remote IP address: $ENV{'REMOTE_ADDR'}\n";
close (MAIL);
$recipient = 'kasra@ezenet.com';
open (MAIL, "|$mailprog $recipient") || die "Can't open $mailprog!\n";
print MAIL "Reply-to: $FORM{'B4-InternetAddress'} ($FORM{'A3-Name'})\n";
print MAIL "Subject: Software download (Forms submission)\n\n";
print MAIL  "------------------------------------------------------------\n";
print MAIL "Company Name is: $FORM{'A3-Company'}\n";
print MAIL "Address is: $FORM{'A3-Street'} ";
print MAIL "$FORM{'A3-City'} ";
print MAIL "$FORM{'A3-State'} ";
print MAIL "$FORM{'A3-Zip'}\n";
print MAIL "Phone number is: $FORM{'A3-Tel'}\n";
print MAIL "Fax number is: $FORM{'A3-Fax'}\n";
print MAIL "Email address: $FORM{'B4-InternetAddress'} ($FORM{'A3-Name'})\n";
print MAIL "\n------------------------------------------------------------\n";
print MAIL "Server protocol: $ENV{'SERVER_PROTOCOL'}\n";
print MAIL "Remote host: $ENV{'REMOTE_HOST'}\n";
print MAIL "Remote IP address: $ENV{'REMOTE_ADDR'}\n";
close (MAIL);

# Make the person feel good for writing to us
print "<A HREF=/ezenet.zip><img border=0 src=/bobo3.gif>FULL PRESENTATION</A>";
#print "<A HREF=/ezenet2.zip><img border=0 src=/bobo3.gif></A><BR><br>";
print "<br><b><font color=#FF0080>Where do you want to go tomorrow?</b></font>";

# ------------------------------------------------------------
# subroutine blank_response
sub blank_response
{
    print "One of the field appear to be <b>blank</b>,";
    print "Please use the back button on your browser to go back";
print "and re-enter your information, or ";
    print "return to our home page.<A HREF=\"/\">HOME</A>,<P>";
    exit;
}
