#!/usr/local/bin/perl
require '/home/todd/toddweb.env';
require "$PAGEHOMEDIR/weblib.lib";
&ReadParse(*in);
$Option=$in{Option};
$subscribe="subscribe";
$subscribe="unsubscribe" if $Option=~/^Unsub/;
$reqaddr='awizard-request@TRConnection.com';
$listname="awizard";
$listname.="-digest" if $Option =~ /Daily Digest/;
if($in{email} !~ /@/){
	&htmlopen("Bad E-mail address");
	print STDOUT <<EOF;
Please insure that your e-mail address is correct. It must include "\@someaddress.com" to be valid
EOF
	exit;
}
if($Option){
$Option="Message delivery option: $Option\n\n";
}
if($Option||$in{"comment"}!~/^\r?\n$/){
$in{comment}=~s/\r\n/\n/g;
open(MAIL,"|/usr/lib/sendmail -t");
select(MAIL);
$HOST=$ENV{REMOTE_HOST};
$HOST="\"$HOST\" " if $HOST;
print <<EOF;
To: $reqaddr
From: $in{'realname'} <$in{'email'}>
Subject: $in{'subject'}

EOF
print <<EOF if($reqaddr eq "awizard-request\@rocemabra.com" || $reqaddr eq "awizard-request\@TRConnection.com");

$subscribe $listname "$in{'realname'}" <$in{'email'}>
-- 
EOF
print <<EOF;
$Option$in{'comment'}
**********************
This mail was generated from a WWW session on $ENV{SERVER_NAME}.

It originated from the host ${HOST}at IP address [$ENV{REMOTE_ADDR}].
The User Agent was $ENV{HTTP_USER_AGENT}.
EOF
print "The originator was configured in the User Agent as $ENV{HTTP_FROM}.\n"
	if $ENV{HTTP_FROM};
print "The script that called it was $ENV{HTTP_REFERER}.\n"
	if $ENV{HTTP_REFERER};
select(STDOUT);
&htmlopen("Mail sent","");
print STDOUT <<EOF;
Your request has been sent...

<pre>
From: $in{'realname'} &lt;$in{'email'}&gt;
Subject: $in{'subject'}

EOF
print <<EOF if($reqaddr eq "awizard-request\@rocemabra.com" || $reqaddr eq "awizard-request\@TRConnection.com");
$subscribe $listname "$in{'realname'}" &lt;$in{'email'}>
-- 
EOF
print <<EOF;
$in{'comment'}
</pre>
EOF
}
else{
&htmlopen("Mail not sent","");
print STDOUT <<EOF;
I'd rather you didn't send a blank message...
<p>
<a href=$ENV{HTTP_REFERER}>Return to message page</a>
(or use the back button)
EOF
}
&htmlclose;