Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot

Re^2: MIME::Lite (format time)

by softworkz (Monk)
on Mar 10, 2005 at 23:01 UTC ( #438461=note: print w/replies, xml ) Need Help??

in reply to Re: MIME::Lite (format time)
in thread MIME::Lite (format time)

I figured it out. I made an adjustment in the module, see the below code.
### Datestamp if desired: # ------------------------------------------------ my $Sec; my $Min; my $Hour; my $MDay; my $Mon; my $Year; my $WDay; my $YDay; my $IsDst; ($Sec,$Min,$Hour,$MDay,$Mon,$Year,$WDay,$YDay,$IsDst)=localtime(time); + # ------------------------------------------------ my $ds_wanted = $params{Datestamp}; my $ds_defaulted = ($is_top and !exists($params{Datestamp})); if (($ds_wanted or $ds_defaulted) and !exists($params{Date})) { my ($u_wdy, $u_mon, $u_mdy, $u_time, $u_y4) = split /\s+/, gmtime().""; ### should be non-locale-dependent $u_time = "$Hour:$Min:$Sec"; # now fix the time my $date = "$u_wdy, $u_mdy $u_mon $u_y4 $u_time UT"; $self->add("date", $date); }

Replies are listed 'Best First'.
Re^3: MIME::Lite (format time)
by moot (Chaplain) on Mar 10, 2005 at 23:05 UTC
    Well, ok, but it strikes me that's a lot of work when all you have to do is adjust the timezone on the SMTP server. You'll probably find it's set to GMT/ UTC, where your client machine is set to GMT+5/ EST or something similar.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://438461]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others contemplating the Monastery: (6)
As of 2017-05-24 05:46 GMT
Find Nodes?
    Voting Booth?