#!/usr/bin/perl

print "Content-type: text/html\n\n";
print "<Head><Title>Thank you</Title></Head>";
print "<Body><H1>Thank you </H1>";
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
@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;
}
print "$FORM{'email'}<BR>\n";
print "$FORM{'name'}<BR>\n";
print "$FORM{'attn'}<BR>\n";
print "$FORM{'tel'}<BR>\n";
print "$FORM{'fax'}<BR>\n";
print "$FORM{'subject'}<BR>\n";
print "$FORM{'infor'}<BR>\n";
print "$FORM{'comments'}<BR>\n";
#$usr=$FORM{'usr'};
#$file=$FORM{'file'};
#&blank_response unless $FORM{'comments'};
#open (LOGFILE, ">/usr/local/etc/httpd/htdocs/$usr/$file");
#print LOGFILE "$FORM{'comments'}";
#close (LOGFILE);

#print "Thank you!<P>";
#print "<A HREF=\"http://www.ezenet.com/cos/ser.html\">BACK TO MENU</A>";

$mailprog = '/usr/lib/sendmail';
$recipient = 'webmaster@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 your web page\n\n";
print MAIL "$FORM{'email'} ($FORM{'name'}) sent the following\n";
print MAIL "TEL: $FORM{'tel'} FAX:$FORM{'fax'}\n";
print MAIL "$FORM{'name'} $FORM{'subject'} $FORM{'require'}";
print MAIL "and the information should be send by $FORM{'infor'}\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 comments appear to be blank, and thus were not sent ";
    print "to our webmasters.  Please re-enter your comments, or ";
    print "return to our <A HREF=\"/\">home page</A>, if you want.<P>";
    exit;
}
