Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation

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.


Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://663913]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (7)
As of 2018-03-17 22:25 GMT
Find Nodes?
    Voting Booth?
    When I think of a mole I think of:

    Results (227 votes). Check out past polls.