why don't u try MIME::Lite to create mail massage and send it using Net::SMTP or anything it has ready mate attachment adding facility and it adds date and time automatically.
Sign L Rakhitha Malinda Karunarathne Web :- rakhitha.cjb.net Email :[EMAIL PROTECTED] Rakhitha Malinda Karunarathne. ----- Original Message ----- From: "John W. Krahn" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Monday, January 06, 2003 9:19 AM Subject: Re: Sent time in a Net::SMTP mail > Jenda Krynicky wrote: > > > > From: "John W. Krahn" <[EMAIL PROTECTED]> > > > Or, you could do it the "correct" way. :-) > > > > > > use POSIX 'strftime'; > > > > > > my $date = strftime '%a, %d %b %Y %H:%M:%S %z', localtime; > > > $smtp->datasend( "Date: $date\n" ); > > > > I'm not sure this is the correct way. > > This prints > > Sun, 05 Jan 2003 18:42:54 Central Europe Standard Time > > on my computer (Win2k, ActivePerl 5.5.1 build 631 as well as > > ActivePerl 5.8.0 build 804). > > Which is NOT understood properly by my mailer (Pegasus Mail 4.02a). > > On my system the manpage for strftime says: > > man 3 strftime > [snip] > %z The time-zone as hour offset from GMT. Required to > emit RFC822-conformant dates (using "%a, %d %b %Y > %H:%M:%S %z"). (GNU) > > As I don't have a Windows system to test this on I'm not sure why this > is happening. > However the POSIX manpage states: > > man 3pm POSIX > [snip] > If > you want your code to be portable, your format > (`fmt') argument should use only the conversion > specifiers defined by the ANSI C standard. These > are `aAbBcdHIjmMpSUwWxXyYZ%'. > > So it looks like the %z format is not portable. > If it doesn't work on your machine you can calculate it like this: > > $ perl -MPOSIX -MTime::Local -e' > $local = time; > $gm = timelocal( gmtime $local ); > $sign = qw( + + - )[ $local <=> $gm ]; > $calc = sprintf "%s%02d%02d", $sign, (gmtime abs( $local - $gm ))[2,1]; > > print "Calculated: $calc\n", strftime( "strftime: %z\n", localtime ); > ' > Calculated: -0800 > strftime: -0800 > > > > > John > -- > use Perl; > program > fulfillment > > -- > To unsubscribe, e-mail: [EMAIL PROTECTED] > For additional commands, e-mail: [EMAIL PROTECTED] > > -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
