I was wondering if someone could point me in the right direction for
using the Mail::Mailer module. I have two questions:
I have a simple script to mail log files to systems administrators using
Mail::Mailer --that works fine as it is.
1. Date/Timestamp modification: But I notice that if I pass today's date to
the Mailer using using the "localtime(time)" function, the date that
appears on my email system shows the correct date but a time that's 4 hours
earlier. I thought that maybe it was correcting the time to GMT but this
timestamp is 4 hours more westerly, not easterly at GMT would be. All the
servers and PCs involved point to the same timeserver and that seems fine.
I'm in the U.S. Eastern time zone. The variable, $todaysdate, that
picks up the localtime string shows the correct date and time, before it's
sent off with the Mailer header information but not when it's received from
my mail viewer, Windows Outlook. I notice that the properties on the
Outlook message shows the received and modified times for the message
properly but not the sent time. So it appears that somewhere between my
system, the SMTP server and my Exchange server, the message is getting its
timestamp altered. Any ideas?
2. Any recommendations on performing error checks for the mailer close
results? It looks like it'll take almost anything but an unavailable SMTP
server, and still return true to the "mailer close" command. Does anyone
have a better approach for checking whether the message is delivered or not?
Thanks
Jeff Smith
+++++++++++++++++
Below is the working snippet:
....
my $return;
my $mailer = my $from_address = my @to_address = my $subject = my $body = my
$sentdate = ();
$from_address = '[EMAIL PROTECTED]';
@to_address = ('[EMAIL PROTECTED]');
$sentdate = localtime(time);
print "sentdate is $sentdate\n";
print "@to_address are the addressees\n";
$subject = 'Test Mail Message from PERL Script';
$body = "HI THERE\n";
#print "$from_address $to_address $subject $body are args\n";
#mailer = new Mail::Mailer 'test', Server => 'abcserver.domain.xyz';
$mailer = new Mail::Mailer 'smtp', Server =>'abcserver.domain.xyz';
$mailer->open({ "From" => $from_address,
"To" => [EMAIL PROTECTED],
"Subject" => $subject,
"Date" => $sentdate,
})
or die "Can't open: $!\n";
print $mailer <<EOF;
.......Message Text follows...
.......................
EOF
$return = $mailer->close();
Print $return; # Always 1 it seems---
#End
