Re: 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";
[download]

(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"?

Comment on Re: MIME::Lite Download Code

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; }` [download] Another option is to subtract 606024 from the epoch time and use that. Cheers.	[reply] [d/l]

Replies are listed 'Best First'.

RE: Re: MIME::Lite
by fundflow (Chaplain) on Jul 24, 2000 at 23:46 UTC

Time::Local

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;
        }
[download]

[reply]
[d/l]