Hallo
I have changed follow lines:
$elapsed_time = tv_interval ($start_time, [gettimeofday]);
$findate = POSIX::strftime( "%d %b ",$sec,$min,$hour,$mday,$mon,$year);
to:
$elapsed_time = tv_interval ($start_time, [gettimeofday]);
$findate = POSIX::strftime(" %e %b ",$sec,$min,$hour,$mday,$mon,$year);
$findate =~ s/^\s+//;
With this changes the mail-header looks better, because qmail prints only 1
digit in the mail header when the day of the month is < 10!
Received: (qmail 22567 invoked from network); 2 Oct 2003 21:04:15 -0000
So I change %d to %e.
And I add the line:
$findate =~ s/^\s+//;
because between "server1;" and "2 Oct" there are sometimes 2 spaces.
Received: from [EMAIL PROTECTED] by server1; 2 Oct 2003 20:53:42 -0000
I know there is a better way to delete the space, but I am not a Perl
hacker ;-)
Thanks for your feedback.
--
Gruss: Severin Olloz
OpenPGP key id: 0x99082EAF (1024/2048 DSA/ElGamal)
Key fingerprint: 6CE2 5F27 F10B A7BD 20AE CB79 B087 9C8F 9908 2EAF
-------------------------------------------------------
This SF.Net email is sponsored by: Oracle 10g
Get certified on the hottest thing ever to hit the market... Oracle 10g.
Take an Oracle 10g class now, and we'll give you the exam FREE.
http://ads.osdn.com/?ad_id=3149&alloc_id=8166&op=click
_______________________________________________
Qmail-scanner-general mailing list
[EMAIL PROTECTED]
https://lists.sourceforge.net/lists/listinfo/qmail-scanner-general
