oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fixed bug 664371

Browse source
This commit is contained in:
JT Smith 2003-01-11 16:49:16 +00:00
parent e4d1d494e0
commit c34557e60e
1 changed files with 6 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lib/WebGUI/Mail.pm
View file

@ -92,9 +92,12 @@ sub send {
#footer
$message .= "\n".WebGUI::Macro::process($session{setting}{mailFooter});
if ($session{setting}{smtpServer} =~ /\/sendmail/) {
open(MAIL,'| '.$session{setting}{smtpServer}.' -t -oi') or WebGUI::ErrorHandler::warn("Couldn't connect to mail server: ".$session{setting}{smtpServer});
print MAIL $message;
close(MAIL);
if (open(MAIL,"| $session{setting}{smtpServer} -t -oi")) {
print MAIL $message;
close(MAIL) or WebGUI::ErrorHandler::warn("Couldn't close connection to mail server: ".$session{setting}{smtpServer});
} else {
WebGUI::ErrorHandler::warn("Couldn't connect to mail server: ".$session{setting}{smtpServer});
}
} else {
$smtp = Net::SMTP->new($session{setting}{smtpServer}); # connect to an SMTP server
if (defined $smtp) {