Beefy Boxes and Bandwidth Generously Provided by pair Networks
Keep It Simple, Stupid
 
PerlMonks  

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, version.pm etc. Hence the delay in my replies.

Cheers
Chris


Comment on Re^4: Trap the error msg from Mime::Lite
Select or Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://663913]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others meditating upon the Monastery: (13)
As of 2014-07-30 13:14 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My favorite superfluous repetitious redundant duplicative phrase is:









    Results (232 votes), past polls