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

[chrism01]

#!/usr/bin/perl -w
use MIME::Lite;         # send mail attachments
use Sys::Hostname;      # Used to insert hostname in emails
use Cwd;                # Get current full dir for error msgs
use strict;             # Enforce declarations

    my (

        $hostname,          # name of this box for sending
        $prog_full_name,    # prog path + name
        $contact_email,     # contact email address
        $msg,               # msg object
        $sender,            # sender of email 
        $subject,           # subject line in email
        $body_text          # actual email msg text
        );

    
    # Get hostname anyway we can using Sys::Hostname;
    # tries syscall(SYS_gethostname), `hostname`, `uname -n`
    $hostname = Sys::Hostname::hostname();

    # Get program full path name
    $prog_full_name = cwd()."/${0}";

    # Set the fields required by Mailer...
    $contact_email = '';
    $sender = "$prog_full_name";
    $subject = "$prog_full_name: Asset Mgr Report";
    $body_text = "This is an automated message:\n\n";

    # ... and send it
    # Header
    $msg = MIME::Lite->new(
                            From    => $sender,
                            To      => $contact_email,
                            Subject => $subject,
                            Type    =>'multipart/mixed'
                            );
    # Body Content
    $msg->attach(
                Type     => 'TEXT',
                Data     => $body_text
                );
    # Attachment
    $msg->attach(
                Type     => 'text/plain',
                Path     => "/home/chrism/t.csv",
                Filename => "t.csv",
                Disposition => 'attachment'
                );
    # Send
    $msg->send or print "Error: $@\n";

Output is:

sendmail: fatal: No recipient addresses found in message header
Error:

where 1st line appears in logfile, 2nd line shows error text is not in $@.
Same occurs if I use $! instead as above.

If I try this instead

    eval{$msg->send};
    print "Error: $@\n" if($@);

I only get the logged msg. My own error msg does not appear.

[Corion]

The error message

No recipient addresses found in message header

seems to confirm that you never set $contact_email. Did you just remove your email address from the line initializing it for privacy reasons or is the recipient really empty?

$contact_email = '[e-mail]';

would be an example of initializing the email address. Of course, you would possibly use a local email address instead of an address that is routed through the internet.

[chrism01]

As per my orig post, I did it deliberately, in order to force the error, so I could test the error handling....
Unfortunately I can't 'grab' the error msg for further processing....

[hipowls]

send spawns out to sendmail. If you have Net::SMTP installed you can use

eval {
    $msg->send_by_smtp;
};
if ($@) {
    # handle error
}

[Corion]

I'm stupid and didn't read your message, sorry!

I think the string you see comes from the sendmail program directly. Maybe you can close STDERR in the hope that that will shut up the sendmail error output. Otherwise, you could skip using sendmail and talk SMTP directly, but not every machine is set up for that either:

$msg->send('smtp','some.host.local');

[chrism01]

Hi guys,
tried both those, but got 'Error: Failed to connect to mail server: Connection refused at ./m.pl line 53' in both cases.
Seems it doesn't like smtp... weird huh?