fixed bug 686630

This commit is contained in:
JT Smith 2003-02-15 18:54:41 +00:00
parent bb326b5f22
commit 49460425d0
2 changed files with 29 additions and 46 deletions

View file

@ -87,12 +87,11 @@ sub send {
$message .= "BCC: $_[5]\n" if ($_[5]);
$message .= "Subject: ".$_[1]."\n";
$message .= "\n";
$message = WebGUI::Macro::process($message);
#body
$message .= $_[2]."\n";
#footer
$message .= "\n".$session{setting}{mailFooter};
#process macros on message
$message = WebGUI::Macro::process($message);
$message .= WebGUI::Macro::process("\n".$session{setting}{mailFooter});
if ($session{setting}{smtpServer} =~ /\/sendmail/) {
if (open(MAIL,"| $session{setting}{smtpServer} -t -oi")) {
print MAIL $message;