Added a date stamp to outgoing mail to maintain compliance with the RFC2822 specification.

This commit is contained in:
JT Smith 2003-04-13 03:46:21 +00:00
parent cdfdd07219
commit 52c551bb83
2 changed files with 25 additions and 5 deletions

View file

@ -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