Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change

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.


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

Log In?

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

How do I use this? | Other CB clients
Other Users?
Others chilling in the Monastery: (11)
As of 2016-05-25 13:29 GMT
Find Nodes?
    Voting Booth?