A.3. form_mail.cfg
GlobalSub <<EndOfSub
sub form_mail {
my($to, $subject, $reply, $body) = @_;
my($ok);
$subject = '<no subject>' unless defined $subject && $subject;
$reply = '' unless defined $reply;
$reply = "Reply-to: $reply\n" if $reply;
$ok = 0;
SEND: {
open(Vend::MAIL,"|$Vend::Cfg->{'SendMailProgram'} -t") or last SEND;
print Vend::MAIL
"To: $to\n",
$reply,
"Subject: $subject\n",
"Errors-To: $Vend::Cfg->{MailOrderTo}\n\n",
$body
or last SEND;
close Vend::MAIL or last SEND;
$ok = ($? == 0);
}
if (!$ok) {
logError("Unable to send mail using $Vend::Cfg->{'SendMailProgram'}\n" .
"To '$to'\n" .
"With subject '$subject'\n" .
"With reply-to '$reply'\n" .
"And body:\n$body");
}
$ok;
}
EndOfSub