#!/usr/bin/perl

print "Content-type: text/html\n\n";
print "<Head><Title>Thank you</Title></Head>";
print "<Body bgcolor=#774455 TEXT=#FFFFFF LINK=#FFFFFF VLINK=#FFFFFF><H1>";
print "<CENTER><IMG SRC=/dinab.gif></CENTER><H4>";
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 "Hi $FORM{'name'},<BR>Thank you for your interest in the dinaweb.\n";
print "We will contact you as soon as possible.<BR>\n";
print "<BR><A HREF=\"/dinain.html\">Back to DINAWEB</A><BR>\n";
#print "$FORM{'company'}<BR>\n";
#print "$FORM{'email'}<BR>\n";
#print "$FORM{'phone'}<BR>\n";
#print "$FORM{'fax'}<BR>\n";
#print "$FORM{'comments'}<BR>\n";
#$usr=$FORM{'usr'};
#$file=$FORM{'file'};
&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 "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{'phone'} FAX:$FORM{'fax'}\n";
print MAIL "$FORM{'name'}'s company is $FORM{'company'}\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=\"/dynainfo2.html\">Dinaweb page</A>, if you want.<P>";
    exit;
}
