#!/usr/npac/bin/perl
######################################################################
#  BEFORE TRYING TO EDIT THIS SCRIPT, READ THE README FILE
###################################################################### 
#
#     Dream Catchers CGI Scripts               Feel free to modify 
#     Form Return 4.0                          this script to your 
#     Created by Seth Leonard                  needs, but please
#     for Dream Catchers Technologies, Inc.    keep this portion so
#                                              that I get credit.  
#     http://dreamcatchersweb.com/scripts      The same goes for 
#                                              distribution.
#
#     (c)1996/1997 Dream Catchers Technologies, Inc.,
#     All Rights Reserved
#
######################################################################
#ONLY EDIT THIS PART OF THE SCRIPT!!!!
$backurl = "http://www.foxsden.org/JD/home.htm";
$backname = "JD";
$mailprog = '/bin/mail';
$youmail = 'JamDew2002@hotmail.com';
# DO NOT EDIT BELOW THIS LINE!!!!
#################################################################
read(STDIN, $namevalues, $ENV{'CONTENT_LENGTH'});
open (MAIL, "|$mailprog $youmail") || die "Can't open $mailprog!\n";
print MAIL ("To: $youmail\n");
print MAIL ("From: psf@\npac.syr.edu\n");
print MAIL ("Subject: Form Response\n\n");
# Process info from Fill in Form
@namevalues = split(/&/, $namevalues);
foreach $namevalue (@namevalues) {
	($name, $value) = split(/=/, $namevalue);
	$name =~ tr/+/ /;
	$value =~ tr/+/ /;
	$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
	$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
	$INPUT{$name} = $value;
	unless ($value eq "") {
		print MAIL ("$name: $value\n");
	}
}
close (MAIL);
# Print Follow up HTML
print ("Content-Type: text/html\n\n");
print ("<html><head><title>Thank You</title></head>\n");
print ("<body><h1>Thank You For Filling in the Requested Information</h1>\n");
print ("The information has been sent and here is what you submitted:<hr>\n");
foreach $namevalue (@namevalues) {
	($name, $value) = split(/=/, $namevalue);
	$name =~ tr/+/ /;
	$value =~ tr/+/ /;
	$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
	$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
	$INPUT{$name} = $value;
	unless ($value eq "") {
		print ("$name: $value<br>\n");
	}
}
print ("<hr>\n");
print ("<a href=\"$backurl\">Back to $backname</a><hr>\n");
print ("&copy; <a href=\"http://dreamcatchersweb.com/scripts/\">Dream Catchers Technologies, Inc.</a>\n");
print ("</body></html>\n");
exit;
