/usr/share/doc/libmime-tools-perl/examples/mimesender is in libmime-tools-perl 5.503-1.
This file is owned by root:root, with mode 0o755.
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 | #!/usr/bin/perl
=head1 NAME
mimesender - an example of integrating MIME-tools with Mail::Send.
=head1 SYNOPSIS
Usage:
mimesender YOU@YOUR.HOST
=head1 DESCRIPTION
This just fakes up a little message and sends it by using Mail::Send
and the 'sendmail' handler.
=head1 AUTHOR
Eryq, eryq@zeegee.com.
=cut
use Mail::Send;
use MIME::Entity 4.113;
use File::Spec;
### Args?
my ($to) = @ARGV;
$to or die "Usage: mimesender toaddr\n";
### Create MIME entity, with attachment, sent to us:
my $ent = MIME::Entity->build(From => "secret\@admirer.net",
To => $to,
Subject => 'Hello there!',
Data => "Saluations...");
$ent->attach(Type => 'text/plain',
Data => "...and Felicitations!");
### Send it:
$sender = new Mail::Send;
foreach ($ent->head->tags) { # give the sender our headers
$sender->set($_, map {chomp $_; $_} $ent->head->get($_));
}
$fh = $sender->open('sendmail');
$ent->print_body($fh);
$fh->close;
|