Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

Re: MIME::Lite

by le (Friar)
on Jul 24, 2000 at 23:19 UTC ( [id://24158]=note: print w/replies, xml ) Need Help??


in reply to MIME::Lite

First, your method of getting the date isn't very "perlish". I'd done this:
my ($day, $month, $year) = (localtime)[3,4,5]; $year += 1900; $month += 1; if ($month < 10) { $month = "0" . $month; } $day--; # We want yesterdays date, yeah? Ok, this fails for the first +of the month, I don't have the time to hack that :) my $date = "$year-$month-$day";
(Besides that: did you copy and paste the code snippets? If yes, then you won't have a date at all, if I understand your code right, you tried to use backticks to get the date, but I can see just plain quotes.)

And what happens if you change the second "attach" type to "text/plain"?

Replies are listed 'Best First'.
RE: Re: MIME::Lite
by fundflow (Chaplain) on Jul 24, 2000 at 23:46 UTC
    The $day-- doesn't look so good.
    It will be much easier and safer to use Time::Local

    quoting from there:
    use Time::Local 'timelocal_nocheck'; { # The 365th day of 1999 print scalar localtime timelocal_nocheck 0,0,0,365,0,99; # The twenty thousandth day since 1970 print scalar localtime timelocal_nocheck 0,0,0,20000,0,70; # And even the 10,000,000th second since 1999! print scalar localtime timelocal_nocheck 10000000,0,0,1,0, +99; }
    Another option is to subtract 60*60*24 from the epoch time and use that.

    Cheers.

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://24158]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others chanting in the Monastery: (3)
As of 2025-02-08 02:24 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Which URL do you most often use to access this site?












    Results (95 votes). Check out past polls.