Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change

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 the voices are still...

How do I use this? | Other CB clients
Other Users?
Others pondering the Monastery: (5)
As of 2018-06-22 05:51 GMT
Find Nodes?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?

    Results (121 votes). Check out past polls.