#!/usr/bin/perl
$mailprog = '/usr/lib/sendmail';

# This should be set to the username or alias that runs your
# WWW server.
#$recipient = 'esstime@aol.com';


# Print out a content-type for HTTP/1.0 compatibility
print "Content-type: text/html\n\n";

# Print a title and initial heading
print "<Head><Title>Download Sites</Title></Head>";
print "<Body bgcolor=#ffffff text=#000000 link=#ff0000 vlink=#0000ff><font face=arial size=2><center><font color=#ff0000><H1><i>Thank you</i></H1></font>";
print "<img src=/images/instabase/redline.gif><p>";
# Get the input
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});

# Split the name-value pairs
@pairs = split(/&/, $buffer);

foreach $pair (@pairs)
{
    ($name, $value) = split(/=/, $pair);

    # Un-Webify plus signs and %-encoding
    $value =~ tr/+/ /;
    $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

    # Stop people from using subshells to execute commands
    # Not a big deal when using sendmail, but very important
    # when using UCB mail (aka mailx).
    # $value =~ s/~!/ ~!/g; 

    # Uncomment for debugging purposes
    # print "Setting $name to $value<P>";

    $FORM{$name} = $value;
}

# If the comments are blank, then give a "blank form" response

&blank_response unless $FORM{'A3-Name'};
&blank_response unless $FORM{'A3-Company'};
&blank_response unless $FORM{'A3-Street'};
&blank_response unless $FORM{'A3-Tel'};
&blank_response unless $FORM{'B4-InternetAddress'};
$scheck = $FORM{'B4-InternetAddress'};
$scc = '@';
if($scheck =~/$scc/){
}else{
	print "Sorry you put the wrong e-mail format";
	exit;
}
# Now send mail to $recipient

$t=localtime(time);
@tt=split(/ /,$t);
print F "@tt[1] @tt[2] @tt[3] \n";

open (LOGFILE, ">>/var/spool/news/htdocs/downweb.html");
print LOGFILE "Company Name is: $FORM{'A3-Company'}\n";
print LOGFILE "Address is: $FORM{'A3-Street'} ";
print LOGFILE "Address is: $FORM{'A3-Street2'} ";
print LOGFILE "$FORM{'A3-City'} ";
print LOGFILE "$FORM{'A3-State'} ";
print LOGFILE "$FORM{'A3-Country'}\n";
print LOGFILE "$FORM{'A3-Zip'}\n";
print LOGFILE "Phone number is: $FORM{'A3-Tel'}\n";
print LOGFILE "Fax number is: $FORM{'A3-Fax'}\n";
print LOGFILE "$FORM{'B4-InternetAddress'}\n";
print LOGFILE "Country: $FORM{'A3-Country'}\n";
print LOGFILE "Server protocol: $ENV{'SERVER_PROTOCOL'}\n";
print LOGFILE "Remote host: $ENV{'REMOTE_HOST'}\n";
print LOGFILE "Remote IP address: $ENV{'REMOTE_ADDR'}\n";
print LOGFILE "@tt[1] @tt[2] @tt[3] \n";
print LOGFILE "------------------------------------------------------------\n\n";
close (LOGFILE);
#open (MAIL, "|$mailprog $FORM('B4-InternetAddress'}") || die "Can't open $mailprog!\n";


$recipient = 'kasra@ezenet.com';
open (MAIL, "|$mailprog $recipient") || die "Can't open $mailprog!\n";
print MAIL "Reply-to: $FORM{'B4-InternetAddress'} ($FORM{'A3-Name'})\n";
print MAIL "Subject: Software download (Forms submission)\n\n";
print MAIL  "------------------------------------------------------------\n";
print MAIL "Download from the web\n\n\n";
print MAIL "Company Name is: $FORM{'A3-Company'}\n";
print MAIL "Address is: $FORM{'A3-Street'} ";
print MAIL "Address is: $FORM{'A3-Street2'} ";
print MAIL "$FORM{'A3-City'} ";
print MAIL "$FORM{'A3-State'} ";
print MAIL "$FORM{'A3-Country'}\n";
print MAIL "$FORM{'A3-Zip'}\n";
print MAIL "Phone number is: $FORM{'A3-Tel'}\n";
print MAIL "Fax number is: $FORM{'A3-Fax'}\n";
print MAIL "Email address: $FORM{'B4-InternetAddress'} ($FORM{'A3-Name'})\n";

print MAIL "CPU is: $FORM{'cpu'}\n";
print MAIL "RAM is: $FORM{'ram'}\n";
print MAIL "Modem is: $FORM{'modem'}\n";
print MAIL "Database is: $FORM{'database'}\n";
print MAIL "Heard from: $FORM{'about'}\n";

print MAIL "Feedback is: $FORM{'feedback'}\n";

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);

$recipient = $FORM{'B4-InternetAddress'};
open (MAIL, "|$mailprog $recipient") || die "Can't open $mailprog!\n";
print MAIL "From: Password\n";
print MAIL "Reply-to: trial\@instabase.com\n";
print MAIL "Subject: Instabase registration code \n\n";
print MAIL  "------------------------------------------------------------\n";
print MAIL "Hello $FORM{'A3-Name'}\n\n\n";
print MAIL "We hope that you enjoy Instabase.\n\n";
print MAIL "We have worked diligently to provide you with a quality product\n";
print MAIL "that uses its tremendous versatility to satisfy all of your database requirements.\n\n";

print MAIL "Once the file (instabase.exe) has been downloaded, run it and then\n";
print MAIL "use the following password to extract Instabase.\n\n\n";
print MAIL "Password = robinhood\n\n";
print MAIL "Now with new features\n\n";


print MAIL "1.  Import and Export to and from other databases\n";
print MAIL "2.  Support for multi-word database names\n";
print MAIL "3.  Direct image Import/Export, zoom function\n";
print MAIL "4.  Export your comments text to Microsoft Word\n";
print MAIL "5.  Direct Text file import to comments box\n";
print MAIL "6.  Opening reports directly into Excel\n";
print MAIL "7.  Sorting by any field.\n";
print MAIL "8.  Improved searching, reporting\n";
print MAIL "9.  Internet Browser selection option (Netscape and Explorer)\n";
print MAIL "10. Full Backup/Restore of your databases\n\n";
print MAIL "11.  Toolbox, including links to Calculator, Phone Dialer, Paint Program and our new and fast Mortgage/Loan Calculator\n";
print MAIL "You can download upgrades directly from http://www.instabase.com/fpatches.html (690 k small file will upgrade you to the lastest version, at this point you have the latest version of instabase.\n\n";



print MAIL "Please contact trial\@instabase.com with any questions or concerns.\n\n";
close (MAIL);

# Make the person feel good for writing to us
print "We have sent a registration code to your email address, please use it when you are asked for it by the program.<p>";
print "Please select one of the following sites to download INSTAbase:<p>";
print "<table cellpadding=10><tr><td>";
print "<A HREF=ftp://207.107.181.15/pub/instabase.exe>Site 1<br></A>";
print "<A HREF=ftp://207.107.181.32/pub/instabase.exe>Site 2<br></A>";
print "<A HREF=ftp://207.107.181.2/pub/instabase.exe>Site 3<br></A>";
print "<A HREF=ftp://207.107.181.15/pub/instabase.exe>Site 4<br></A>";
print "</td><td>";
print "<A HREF=ftp://207.107.181.32/pub/instabase.exe>Site 5<br></A>";
print "<A HREF=ftp://207.107.181.15/pub/instabase.exe>Site 6<br></A>";
print "<A HREF=ftp://207.107.181.2/pub/instabase.exe>Site 7<br></A>";
print "<A HREF=ftp://207.107.181.32/pub/instabase.exe>Site 8<br></A>";
print "</td></tr></table>";
print "<br><br><b><a href=/index.html target=\"_top\">Back to Instabase Main Page</b>";

# ------------------------------------------------------------
# subroutine blank_response
sub blank_response
{
    print "One of the fields appears to be <b>blank</b>, ";
    print "Please go back and complete the information";
    exit;
}
