Beefy Boxes and Bandwidth Generously Provided by pair Networks
more useful options

Re^4: Trap the error msg from Mime::Lite

by chrism01 (Friar)
on Jan 24, 2008 at 00:07 UTC ( #663913=note: print w/replies, xml ) Need Help??

in reply to Re^3: Trap the error msg from Mime::Lite
in thread Trap the error msg from Mime::Lite

Thx for the warning(!). Just checked and the 1st 2 lines are:
package Test::Trap; use version; $VERSION = qv('0.1.0');
so hopefully that's all good. :)

Actually, I already came up with this:

# Send trap { $msg->send or $error_msg = "Error: $! $@\n" }; $_ and $error_msg .= ": $_\n" for $trap->die, $trap->stdout, $trap +->stderr; exit_with_error("email_csv_file() failed: $error_msg") if( $error_ +msg );
to try and get everything. Looks ok?

My exit_with_error($msg) sub sends a regular email via Mail::Mailer and prints to the logfile, then cleans up other stuff and and exit(1) etc.
Y, it's a prodn system. No cxn to internet though (and I don't have root), so I have to go through the sysadmin to get extra modules installed like Test::Trap, etc. Hence the delay in my replies.