/usr/share/perl5/Mail/Transport/Mailx.pm is in libmail-box-perl 2.099-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 | # Copyrights 2001-2011 by Mark Overmeer.
# For other contributors see ChangeLog.
# See the manual pages for details on the licensing terms.
# Pod stripped from pm file by OODoc 2.00.
use strict;
use warnings;
package Mail::Transport::Mailx;
use vars '$VERSION';
$VERSION = '2.099';
use base 'Mail::Transport::Send';
use Carp;
sub init($)
{ my ($self, $args) = @_;
$args->{via} = 'mailx';
$self->SUPER::init($args) or return;
$self->{MTM_program}
= $args->{proxy}
|| $self->findBinary('mailx')
|| $self->findBinary('Mail')
|| $self->findBinary('mail')
|| return;
$self->{MTM_style}
= defined $args->{style} ? $args->{style}
: $^O =~ m/linux|freebsd|bsdos|netbsd|openbsd/ ? 'BSD'
: 'RFC822';
$self;
}
#------------------------------------------
sub _try_send_bsdish($$)
{ my ($self, $message, $args) = @_;
my @options = ('-s' => $message->subject);
{ local $" = ',';
my @cc = map {$_->format} $message->cc;
push @options, ('-c' => "@cc") if @cc;
my @bcc = map {$_->format} $message->bcc;
push @options, ('-b' => "@bcc") if @bcc;
}
my @to = map {$_->format} $message->to;
my $program = $self->{MTM_program};
if((open MAILER, '|-')==0)
{ close STDOUT;
{ exec $program, @options, @to }
$self->log(NOTICE => "Cannot start contact to $program: $!");
exit 1;
}
$self->putContent($message, \*MAILER, body_only => 1);
my $msgid = $message->messageId;
if(close MAILER) { $self->log(PROGRESS => "Message $msgid send.") }
else
{ $self->log(ERROR => "Sending via mailx mailer $program failed: $! ($?)");
return 0;
}
1;
}
sub trySend($@)
{ my ($self, $message, %args) = @_;
return $self->_try_send_bsdish($message, \%args)
if $self->{MTM_style} eq 'BSD';
my $program = $self->{MTM_program};
unless(open MAILER, '|-', $program, '-t')
{ $self->log(NOTICE => "Cannot start contact to $program: $!");
return 0;
}
$self->putContent($message, \*MAILER);
unless(close MAILER)
{ $self->log(ERROR => "Sending via mailx mailer $program failed: $! ($?)");
return 0;
}
1;
}
#------------------------------------------
1;
|