#!/usr/bin/perl

print "Content-type: text/html\n\n";
print "<Head><Title>Thank you</Title></Head>";
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
print "<body background=\"/bk2.jpg\" bgcolor=\"#ffffff\" text=\"#000000\" link=\"#000000\" vlink=\"red\">\n";
@pairs = split(/&/, $buffer);
foreach $pair (@pairs)
{
    ($name, $value) = split(/=/, $pair);

    $value =~ tr/+/ /;
    $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
    $FORM{$name} = $value;
}

&blank_response unless $FORM{'name'};
&blank_response unless $FORM{'email'};
#open (LOGFILE, ">/usr/local/etc/httpd/htdocs/$usr/$file");
#print LOGFILE "$FORM{'comments'}";
#close (LOGFILE);

print "<CENTER><IMG SRC=/corp8.JPG><BR><FONT SIZE=5>Thank you!</FONT><P>";
print "<br><br><br>\n";
print "<center><a href=/index.html>HOME</a> | <a href=/products.html>PRODUCTS</a> | <a href=/about.html>ABOUT TAP</a> | <a href=/contact.html>CONTACT</a>\n";
#print "<A HREF=\"http://www.ezenet.com/cos/ser.html\">BACK TO MENU</A>";

$mailprog = '/usr/lib/sendmail';
$recipient = 'j.hyland@worldnet.att.net';
#$recipient = 'kasra@ezenet.com';
open (MAIL, "|$mailprog $recipient") || die "Can't open $mailprog!\n";
print MAIL "Reply-to: $FORM{'email'} ($FORM{'name'})\n";
print MAIL "Subject: email from tap-usa \n\n";
print MAIL "$FORM{'email'} ($FORM{'name'}) sent the following\n";
print MAIL "TEL: $FORM{'phone'} FAX:$FORM{'fax'}\n";
print MAIL "$FORM{'name'}'s company is $FORM{'company'}\n";
print MAIL "$FORM{'name'}'s company address is $FORM{'address'}\n";
print MAIL "$FORM{'name'}'s company City-State is $FORM{'citystate'}\n";

print MAIL "$FORM{'name'}'s company zip code is $FORM{'zipcode'}\n";
print MAIL "$FORM{'name'} makes the following comments\n";
print MAIL  "------------------------------------------------------------\n";
print MAIL "$FORM{'comments'}";
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);


sub blank_response
{
    print "Your name or email appears to be blank, and thus were not sent ";
    print "to our webmasters.  Please re-enter your comments, or ";
    print "return to our <A HREF=\"/contact.html\">Contact page</A>, if you want.<P>";
    exit;
}
