#!/usr/bin/perl
print "Content-type: text/html\n\n";
$recipient = 'webmaster@ezenet.com';
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;
}
open(F,"blizzard.cnt");
while(<F>){
	$count = $_;
}
&error unless $FORM{'fromname'};
&error unless $FORM{'toname'};
close(F);
open(F,">blizzard.cnt");
print F $count+1;
close(F);
#print "Ref# $count";
$t = localtime;
print "<HEAD><TITLE>Thankyou</TITLE></HEAD>\n";
print "<BODY BGCOLOR=#FFFFFF TEXT=#000000>\n";
print "<H1>Thank You for using blizzard courier services</H1>";
print "On $t, $FORM{'fromname'} wants to send a $FORM{'stype'} courier <BR>";
print "to $FORM{'toname'} which weight $FORM{'weight'} lbs and your Ref# $count";
print "<BR><BR><CENTER><A HREF=blizzard1.html><IMG BORDER=0 SRC=/bb1.gif></A>\n";
print "<A HREF=blizzard.html><IMG BORDER=0 SRC=/bb2.gif></A>\n";
print "<A HREF=brate.html><IMG BORDER=0 SRC=/bb3.gif></A>\n";
print "<A HREF=mailto:behzad@ezenet.com><IMG BORDER=0 SRC=/bb4.gif></A>\n";
$mailprog = '/usr/lib/sendmail';
open (MAIL, "|$mailprog $recipient") || die "Can't open $mailprog!\n";
print MAIL "Subject: $FORM{'fromname'} Ref# $count\n\n";
print MAIL "From: $FORM{'fromname'}, $FORM{'fromaddr'}";
print MAIL "\n";
print MAIL "To: $FORM{'toname'}, $FORM{'toaddr'}";
print MAIL "\n";
print MAIL "$FORM{'stype'}, $FORM{'ptype'}";
print MAIL "\n";
print MAIL "Waiting time is $FORM{'wait'} and weight is $FORM{'weight'}";
print MAIL "\n";
print MAIL $FORM{'van'};
close (MAIL);

sub error{
	print "<HEAD><TITLE>Sorry</TITLE></HEAD>\n";
	print "<BODY BGCOLOR=#FFFFFF TEXT=#000000>\n";
	print "Please go back and make sure you filled up the form!<BR>";
	print "<BR><BR><BR><CENTER><A HREF=blizzard1.html><IMG BORDER=0 SRC=/bb1.gif></A>\n";
	print "<A HREF=blizzard.html><IMG BORDER=0 SRC=/bb2.gif></A>\n";
	print "<A HREF=brate.html><IMG BORDER=0 SRC=/bb3.gif></A>\n";
	print "<A HREF=mailto:behzad@ezenet.com><IMG BORDER=0 SRC=/bb4.gif></A>\n";
	exit;
}
