Mail::Mailer, strict, and From

[Anonymous Monk]

Not really a legal firm...anyway I just installed Mail::Mailer and ran into this:

Can't use string ("From") as a HASH ref while "strict refs" in use at 
+/usr/local/lib/perl5/site_perl/5.10.0/Mail/Mailer.pm line 180.

This is the documented method (such as it is) and I don't see how the "From" field can be avoided in sending an email, at least w/ Mail::Mailer since the option ($MTA->open(From=>$from ..., etc) is what it is.

I also just set up a new system and moved to perl 5.10 and noticed (because of this issue) that I apparently can no longer remove "use strict" (ie, the exact same error occurs). What's that about? Perhaps the module uses strict somewhere, but I doubt it because there are a few of these queries around the web (with no response).

Is there a better module for doing this (sending mail via a MTA) so that I don't have to learn all the little switches or whatever for postfix?

[sflitman]

I'd use MIME::Tools, it works really well. You just need to know where sendmail is located, postfix installs its own version of it which is compatible. Here's some code I use all the time:

use strict;
use vars qw/$cmdMail/;
use LWP::MediaTypes qw(guess_media_type read_media_types);
use MIME::Entity;

BEGIN {
   $cmdMail='/usr/lib/sendmail';   # location of your sendmail
   read_media_types('/etc/mime.types');  # location of your mime.types
+ file
}

...

sub sendmail {   # returns undef or error
   my ($from,$to,$subject,$body,@attachments)=@_;
   my $ret;
   my $top=build MIME::Entity
         From         => $from,
         'Reply-to'   => $from,
         To           => $to,
         Subject      => $subject,
         Data         => $body;
   if (@attachments) {
      for my $path (@attachments) {
          my $type=guess_media_type($path);
          $top->attach(
              Path     => $path,
              Type     => $type,
              Encoding => '-SUGGEST'
          );
       }
    }
    $top->sync_headers(Length=>'COMPUTE') if @attachments;
    if (open(MAIL,"| $cmdMail -t -i")) {
       $top->print(\*MAIL);
       close MAIL;
    } else {
       $ret="Mail to $to failed: $!";
    }
    $ret;
}

...

my $err=sendmail('[e-mail]','[e-mail]','Your turke
+y is done!',"Come get some!  Don't forget the beer!",'/home/programme
+r/Pictures/beer.jpg');
die $err if $err;

...

HTH,
SSF

[Your Mother]

I believe open in Mail::Mailer takes a hash ref, not a list of args. So $MTA->open(From=>$from ..., etc) should be $MTA->open({From=>$from ..., etc}). It's complaining because the first arg "From" isn't the hash ref it expects.

[Anonymous Monk]

Yep! Still ain't sure about that no more removing "use strict" tho.

[fmerges]

Hi,

I like to use Mail::Send interface instead

Regards,