21 lines
701 B
Perl
21 lines
701 B
Perl
$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; |