Recommended patch to SMTP.pm

Hi, Regarding the issue described in http://lists.otrs.org/pipermail/otrs/2003-October/002990.html I see that OTRS still does not include the "Date:" header by itself. This causes problems if the tickets pass only through qmail servers because qmail expects the MUA to add the header (so actually the messages arrive "Date:-less"). I thought this piece of code was submited to CVS but I see now that still after 7 months since my initial posting OTRS behaves the same. Anyway the following patch (applied to OTRS >= 1.1.1, cvs head included) should fix the problem: --- SMTP.pm.orig 2004-05-14 10:11:01.000000000 +0300 +++ SMTP.pm 2004-05-14 10:27:01.000000000 +0300 @@ -15,6 +15,7 @@ use MIME::Words qw(:all); use Mail::Address; use Net::SMTP; +use POSIX; use vars qw($VERSION); $VERSION = '$Revision: 1.6 $'; @@ -81,6 +82,7 @@ $Param{Header} .= "Message-ID: <".time().".".rand(999999)."\@$Self->{FQDN}>\n"; $Param{Header} .= "Content-Type: $Param{ContentType}\n" if ($Param{ContentType}); } + $Param{Header} .= "Date: ".strftime("%a, %e %b %Y %H:%M:%S %z", localtime(time))."\n"; my @To = (); my $ToString = (); foreach (qw(To Cc Bcc)) { Best regards, Mihai Maties
participants (1)
-
Mihai Maties