#!/usr/bin/perl5
push (@INC, '/perl');
require ('/home/a/accent1/public_html/perl/cgi-lib.pl');
# This should match the mail program on your system.
$mailprog = '/usr/bin/sendmail';
# This should be set to the username or alias that processes the
# requests
#------ Change 1 ----- Replace the name and domain with your actual name and domainname
$recipient = "austinauction\@compuserve.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 "Austin Auction";
&ReadParse;
#------ Change 2 ----- Replace the login with your actual login name
open (MAIL, "|$mailprog $recipient") || die "Unable to send request\nPlease send e-mail to accent\@kdi.com Thank you\n";
#open (MAIL, ">test") || die "Cannot open STDOUT: $!\n";
print MAIL "Reply-to: $in{'email'}\n";
print MAIL "Subject: $in{'subject'}\n";
print MAIL "\n\n";
#print "*$#in_key\n";
foreach $i (0 .. $#in_key){
#print "$in_key[$i] = $in_val[$i], i = $i ";
print MAIL "$in_key[$i] = $in_val[$i]\n";
}
print MAIL "-----------------------------------------------\n";
close (MAIL);
# ------Change 3-------- (Optional): You can replace some of the words below.
# You may want to not change it first and test it online. DO NO ALTER PRINT STATEMENT OR THE "EOT AT THE BOTTOM OF THIS PAGE.
print <<"EOT";
Your Request Has Been Sent
Thanks You!
Return to Home Page
EOT