Current Path : /usr/local/lib/perl5/site_perl/5.8.9/Mail/Mailer/ |
FreeBSD hs32.drive.ne.jp 9.1-RELEASE FreeBSD 9.1-RELEASE #1: Wed Jan 14 12:18:08 JST 2015 root@hs32.drive.ne.jp:/sys/amd64/compile/hs32 amd64 |
Current File : //usr/local/lib/perl5/site_perl/5.8.9/Mail/Mailer/sendmail.pm |
# Copyrights 1995-2008 by Mark Overmeer <perl@overmeer.net>. # For other contributors see ChangeLog. # See the manual pages for details on the licensing terms. # Pod stripped from pm file by OODoc 1.05. use strict; package Mail::Mailer::sendmail; use vars '$VERSION'; $VERSION = '2.04'; use base 'Mail::Mailer::rfc822'; sub exec($$$$) { my($self, $exe, $args, $to, $sender) = @_; # Fork and exec the mailer (no shell involved to avoid risks) # We should always use a -t on sendmail so that Cc: and Bcc: work # Rumor: some sendmails may ignore or break with -t (AIX?) # Chopped out the @$to arguments, because -t means # they are sent in the body, and postfix complains if they # are also given on comand line. exec( $exe, '-t', @$args ); } 1;