Mega Code Archive

 

Categories / Perl / Network

 

Send email out

$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;