|
$mailprogram="/usr/lib/sendmail";
$sendto="$input{xemailx}";
$from="$input{xmailx}";
$subject="$input{xsubjext}";
open(MAIL, "|$mailprogram -t -oi") || die "Can't open mail program: $!\n";
print MAIL "To: $sendto\n";
print MAIL "From: $from\n";
print MAIL "Subject: $subject\n\n";
print MAIL <<EOF; # Start a "here document"
Registration Information for $input{$first_name}
$input{$last_name}:
Date of Registration: $today
First Name: $input{$first_name}
Last Name: $input{$last_name}
Street Address: $input{$address}
City: $input{$city}
State/Province: $input{$state}
EOF
close MAIL;
|