diff --git a/docs/upgrades/upgrade_4.8.0-4.9.0.sql b/docs/upgrades/upgrade_4.8.0-4.9.0.sql index d555a4e49..0d606b4f7 100644 --- a/docs/upgrades/upgrade_4.8.0-4.9.0.sql +++ b/docs/upgrades/upgrade_4.8.0-4.9.0.sql @@ -977,6 +977,8 @@ INSERT INTO template VALUES (1,'Default Site Map','\r\n INSERT INTO template VALUES (2,'Descriptive Site Map','\r\n

\r\n
\r\n\r\n\r\n

\r\n\r\n\r\n\r\n \"> \r\n \r\n - \r\n \r\n

\r\n','SiteMap'); alter table page add column languageId int not null default 1; insert into international (internationalId,languageId,namespace,message,lastUpdated) values (823,1,'WebGUI','Go to the new page.', 1038706332); +insert into settings values ("mailFooter","^c;\n^e;\n^u;\n"); +insert into international (internationalId,languageId,namespace,message,lastUpdated) values (824,1,'WebGUI','Email Footer', 1038708558); diff --git a/lib/WebGUI/Mail.pm b/lib/WebGUI/Mail.pm index cfd615b4f..ebcd697c3 100644 --- a/lib/WebGUI/Mail.pm +++ b/lib/WebGUI/Mail.pm @@ -17,6 +17,7 @@ package WebGUI::Mail; use Net::SMTP; use strict; use WebGUI::ErrorHandler; +use WebGUI::Macro; use WebGUI::Session; =head1 NAME @@ -74,7 +75,7 @@ use WebGUI::Session; =cut sub send { - my ($smtp, $message, $from); + my ($smtp, $message, $from, $footer); $from = $_[4] || ($session{setting}{companyName}.' <'.$session{setting}{companyEmail}.'>'); #header $message = "To: $_[0]\n"; @@ -86,7 +87,7 @@ sub send { #body $message .= $_[2]."\n"; #footer - $message .= "\n $session{setting}{companyName}\n $session{setting}{companyEmail}\n $session{setting}{companyURL}\n"; + $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; diff --git a/lib/WebGUI/Operation/Settings.pm b/lib/WebGUI/Operation/Settings.pm index 5c1638e51..60fbfcc92 100644 --- a/lib/WebGUI/Operation/Settings.pm +++ b/lib/WebGUI/Operation/Settings.pm @@ -124,6 +124,7 @@ sub www_editMailSettings { $f = WebGUI::HTMLForm->new; $f->hidden("op","saveSettings"); $f->textarea("recoverPasswordEmail",WebGUI::International::get(134),$session{setting}{recoverPasswordEmail}); + $f->textarea("mailFooter",WebGUI::International::get(824),$session{setting}{mailFooter}); $f->text("smtpServer",WebGUI::International::get(135),$session{setting}{smtpServer}); $f->submit; $output .= $f->print;