John Deretich wrote:
> Hi,
>
> My emails are being sent with no sent date.
> How can I use NET::SMTP to fix the problem?
Switch to MIME::Lite and it will handle this for you automatically.
Or steal the code and modify it to your liking :
### Datestamp if desired:
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
my $date = "$u_wdy, $u_mdy $u_mon $u_y4 $u_time UT";
$self->add("date", $date);
}
Basically you want to add a "Date: xxxxxxxxx\n" to the header - where xxxxxxxxx
can be gotten from the above snippet inside the if.
--
,-/- __ _ _ $Bill Luebkert Mailto:[EMAIL PROTECTED]
(_/ / ) // // DBE Collectibles Mailto:[EMAIL PROTECTED]
/ ) /--< o // // Castle of Medieval Myth & Magic http://www.todbe.com/
-/-' /___/_<_</_</_ http://dbecoll.tripod.com/ (My Perl/Lakers stuff)
_______________________________________________
Perl-Win32-Admin mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
