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


No such thing as a small change
	PerlMonks

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

by Sidhekin (Priest)

on Jan 23, 2008 at 13:36 UTC ( [id://663783]=note: print w/replies, xml )

Need Help??

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

What I need to do is capture those error(s), print a copy to stdout (which along with stderr is re-directed to my logfile) and save a copy in a variable that I can then use elsewhere.

Right. I think I'd choose grep for that one. Replace my last line above with these:

my @errors = grep { defined && length } $trap->die, $trap->stderr, $tr
+ap->stdout;
print "Error: $_\n" for @errors;
# any and all error(s) are now left in @errors
[download]

Update: Oh, and "logfile"? Is this for production, not just testing? Then I'd definitely get Test::Trap version 0.1.0 — it fixes, among other things, a bug that in this case might slowly fill up your /tmp partition. Oops.

print "Just another Perl ${\(trickster and hacker)},"
The Sidhekin proves Sidhe did it!

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

Replies are listed 'Best First'.

Re^4: Trap the error msg from Mime::Lite
by chrism01 (Friar) on Jan 24, 2008 at 00:07 UTC

package Test::Trap;

use version; $VERSION = qv('0.1.0');
[download]

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 );
[download]

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

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom