Added a date stamp to outgoing mail to maintain compliance with the RFC2822 specification.
This commit is contained in:
parent
cdfdd07219
commit
52c551bb83
2 changed files with 25 additions and 5 deletions
|
|
@ -16,6 +16,7 @@ package WebGUI::Mail;
|
|||
|
||||
use Net::SMTP;
|
||||
use strict;
|
||||
use WebGUI::DateTime;
|
||||
use WebGUI::ErrorHandler;
|
||||
use WebGUI::Macro;
|
||||
use WebGUI::Session;
|
||||
|
|
@ -86,6 +87,7 @@ sub send {
|
|||
$message .= "CC: $_[3]\n" if ($_[3]);
|
||||
$message .= "BCC: $_[5]\n" if ($_[5]);
|
||||
$message .= "Subject: ".$_[1]."\n";
|
||||
$message .= "Date: ".WebGUI::DateTime::epochToHuman("","%W, %d %C %y %j:%n:%s %O")."\n";
|
||||
$message .= "\n";
|
||||
$message = WebGUI::Macro::process($message);
|
||||
#body
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue