email on 2K in perl

I am not using IW's email interface.

Currently on Solaris if I want to send email from a perl script, then I write the email to a file and do something like:

cat /tmp/email > mail andy

Now if I want to do this on 2K what are my choices ?

Tips/pointers/RTFMs appreciated.

Andy

Find more posts tagged with

Comments

Adam Stoller

Use one of the various Perl mail modules (Mail::Mailer, Mail: Smiley Frustrated

endmail, etc.) - besides giving you a better chance at platform independence, it's usually more efficient to use those than to exec a separate shell process to run the other binary program within.

Failing that - you could look into 'blat' - which, at least once upon a time, was shipped with TeamSite on W2K.

--fish
Senior Consultant, Quotient Inc.
http://www.quotient-inc.com

Migrateduser

I would definitely recommend Mail::Mailer - works like a charm. Here's the basic sequence of steps we use:

use Mail::Mailer;
my $domain = 'nike.com';
my $mailserver = "mail.$domain";

my $mailer = new Mail::Mailer('smtp', Server => $mailserver);
my %headers=();
$headers{'Subject'} = "Interwoven Store Content Workflow Deployment Problem - Job $jobid";
my $msg = "There is a problem with the workflow deployment of Store $dest content " .
"to production.\n\n" .
"Please investigate and fix this problem.\n" .
"Workarea: $workarea\n\nFiles:\n";

foreach my $file (@files) {
$msg .= " $file\n";
}

$msg .= "\nErrors:\n\n$errors\n";

$headers{'To'} = ["davidh.smith\@nike.com",$address];
$headers{'From'} = "iwoven\@nike.com";
$mailer->open(\%headers);
print $mailer $msg;
$mailer->close;

Dave Smith
Sr. Software Engineer
Nike, Inc.
(503) 671-4238
DavidH.Smith@nike.com

nipper

I notice you do no error checking here. When I ran it (not using mail.nike.com) it completed but no email was sent. Should I just check for non-zero returns from $mailer->open(\%headers); etc ?

Thanks

me

Migrateduser

Error checking? What's that? I'm not sure how you'd put error handling in there - I think the only thing that you can really tweak is the $mailserver value. It just works for me, so I don't mess with it. There might be some other threads in the archives that discuss what you can do to verify what's wrong when it's not working.

Dave Smith
Sr. Software Engineer
Nike, Inc.
(503) 671-4238
DavidH.Smith@nike.com

Adam Stoller

$mailer->open(\%headers);
print $mailer $msg;
$mailer->close;
The above should be wrapped in an eval() to trap errors:


eval {
    $mailer->open(\%headers);
    print $mailer $msg;
    $mailer->close;
};
if ($@){
# error occured - at the very least log it before doing a callback
}
else {
# optional - log and do callback, or skip the else and just do a callback
}

--fish
Senior Consultant, Quotient Inc.
http://www.quotient-inc.com