#!/usr/bin/perl

print "Content-type: text/html\n\n";
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;
}
&blank_response unless $FORM{'email'};
&blank_response unless $FORM{'name'};
print "<Head><Title>Thank you</Title></Head>";
print "<Body><H1>Thank you </H1>";
print "Your e-mail is: $FORM{'email'}<BR>\n";
print "Your Name is: $FORM{'name'}<BR>\n";
print "Phone: $FORM{'tel'}<BR>\n";
print "Fax: $FORM{'fax'}<BR>\n";
print "You wants $FORM{'sendto'}<BR>\n";
print "Your address is: $FORM{'address'}<BR>\n";
#$usr=$FORM{'usr'};
#$file=$FORM{'file'};
#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 = 'kims@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'}'s address is: ";
print MAIL "$FORM{'address'}";
print MAIL "and wants $FORM{'sendto'}\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 "<Head><Title>Sorry please fill the form</Title></Head>";
    print "<H1>Please fill the form!!";
    exit;
}
