perl-embperl mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From "Gerald Richter" <rich...@ecos.de>
Subject RE: Date patch for Embperl::Mail
Date Sun, 02 Oct 2005 15:56:45 GMT
Hi,

I have made a similar version of your patch, that moves the date generation
into C code, because a similar routine is already there. It also handles the
timezone.

It's in the CVS and will be in 2.0.1

Gerald


---------------------------------------------------------------------------
Besuchen Sie uns auf der Systems 2005 in M√ľnchen, Halle B2, Stand 704
---------------------------------------------------------------------------
Gerald Richter            ecos electronic communication services gmbh
IT-Securitylösungen * Webapplikationen mit Apache/Perl/mod_perl/Embperl

Post:       Tulpenstrasse 5          D-55276 Dienheim b. Mainz
E-Mail:     richter@ecos.de          Voice:   +49 6133 939-122
WWW:        http://www.ecos.de/      Fax:     +49 6133 939-333
---------------------------------------------------------------------------
ECOS BB-5000 Firewall- und IT-Security Appliance: www.bb-5000.info
---------------------------------------------------------------------------

  

> -----Original Message-----
> From: RobertCZ [mailto:robert@robert.cz] 
> Sent: Thursday, September 15, 2005 10:45 AM
> To: embperl@perl.apache.org
> Subject: Date patch for Embperl::Mail
> 
> Hi,
> 
>   as I reported, I have problems with mails sent from 
> Embperl::Mail and Thunderbird/Netscape - mails are dated 
> 1.1.1970.  I don't know what deep cause of the problem is 
> butI fixed it simply by adding Date: header manually. I guess 
> more people will have similar problem so I propose patch 
> Embperl::Mail with something like (I use Date::Calc because I 
> need it anyway but as not to add addtional dependency):
> 
> ... [ around line 130 ]...
> 
> ($Second, $Minute, $Hour, $Day, $Month, $Year, $DoW) = 
> localtime(time) ;
> 
> @month = qw( January February March April May June July 
> August September October November December );
> 
> @dow   = qw( Monday Tuesday Wednesday Thursday Friday 
> Saturday Sunday );
> 
> $MonthStr = substr($month[ $Month ], 0, 3);
> 
> $DoWStr = substr($dow[ $DoW ], 0, 3);
> 
> $Year += 1900;
> 
> $DateHeader = qq(Date: $DoWStr, $Day $MonthStr $Year 
> $Hour:$Minute:$Second);
> 
> 'Date' =~ join(':',@$headers) or push @headers, $DateHeader;
> 
> 
> My Thunderbird shows Date header as
> 
> Date: Thu, 15 Sep 2005 08:41:06 +0200 (CEST)
> 
> 
> I don't know what to do with the time zone so I just ignore 
> it and hope for the best ;-)
> 
> Could you comment and if it's OK - Gerald perhaps add it to 
> the next release? It's bother to add it to every single mail 
> form manually...
> 
> - Robert
> 
> ---------------------------------------------------------------------
> To unsubscribe, e-mail: embperl-unsubscribe@perl.apache.org
> For additional commands, e-mail: embperl-help@perl.apache.org
> 
> 


 
** Virus checked by BB-5000 Mailfilter ** 


---------------------------------------------------------------------
To unsubscribe, e-mail: embperl-unsubscribe@perl.apache.org
For additional commands, e-mail: embperl-help@perl.apache.org


Mime
View raw message