Current File : //usr/share/doc/libmailtools-perl/examples/mail-mailer.pl
#!/usr/bin/perl -w
# Note by Mark Overmeer:
# This script does work, but Mail::Send may provide a nicer interface
# NAME
# mail-mailer.pl - Smtp client written in Perl
#
# SYNOPSIS
# mail-mailer.pl -s "Test" --smtp=my-smtp-server.com admin@net1.net
#
# INTRODUCTION
# This script can be an alternative to the 'mail' Unix command when
# sending e-mails.
# It reads the mail body from the standard input.
# If your system is Windows, use the '--smtp' option to send your
# e-mails.
# This script works in Linux, Unix and Windows environments.
#
# OPTIONS
# -f From
# -s Subject
# -c Cc-address
# -b bcc-address
# --sendmail Use sendmail to send the e-mail
# --qmail Use qmail-inject to send the e-mail
# --smtp=HOSTNAME Use HOSTNAME as the SMTP server.
# --help Prints the help info and exits
#
# EXAMPLES
# cat mailbody.txt | mail-mailer.pl -f me@mydom.com -s "Hy dude" --sendmail friend@dom.com
#
# AUTHOR
# Bruno Negrao G Zica <bnegrao@engepel.com.br>
#
# COPYRIGHT
# Copyright (c) 2004 Bruno Negrao G Zica. All rights reserved.
# This program is free software; you can redistribute it and/or modify
# it under the same terms as Perl itself.
#
# LAST MODIFIED
# 01/12/2004
##################################################################
use Mail::Mailer;
use Getopt::Long;
use strict;
# hash that'll receive the arguments and options
my %opt;
GetOptions ( \%opt, 'help', 'f=s', 's=s', 'c=s', 'b=s', 'sendmail',
'qmail', 'smtp=s' );
if ($opt{help}) { help(); exit 0; }
$opt{to} = $ARGV[$#ARGV]; # the "To" address is the last argument
die "Error: You didn't specify a destination e-mail address.\n"
unless ( $opt{to} || $opt{c} || $opt{b} );
# Defining the method to send the message
my $mailer; # Mail::Mailer object
if ($opt{sendmail}) {
$mailer = new Mail::Mailer 'sendmail';
} elsif ($opt{qmail}) {
$mailer = new Mail::Mailer 'qmail';
} elsif ($opt{smtp}) {
$mailer = new Mail::Mailer 'smtp', Server => $opt{smtp};
} else {
die "Error: you didn't specify the delivery method. ".
"Possible methods are:\n'--qmail', '--sendmail', and ".
"--smtp=HOSTNAME\n";
}
# Setting the headers
my %headers; # hash with the e-mail headers
$headers{To} = $opt{to};
$headers{From} = $opt{f} if defined $opt{f};
$headers{Cc} = $opt{c} if defined $opt{c};
$headers{Bcc} = $opt{b} if defined $opt{b};
$headers{Subject} = $opt{s} if defined $opt{s};
$mailer->open(\%headers);
# Reading and feeding the e-mail body
while (<STDIN>) {
last if ( $_ =~ /^\.$/ );
print $mailer $_;
}
# Finishing
$mailer->close();
# Subroutines
sub help {
print '
Example 1: Entering the e-mail body by hand:
mail-mailer.pl -s "Hy buddy" --qmail friend@domain.com
[ ENTER YOU MESSAGE BODY ]
[ A SINGLE . (dot sign) ALONE IN ONE LINE TO SAY ]
[ YOU FINISHED YOUR E-MAIL ]
.
Example 2: Using the output of another program as the body:
dir c:\ | perl mail-mailer.pl -f me@mydom.com -s "My c:\" admin@mydom.com --smtp=server1.mydom.com
OPTIONS
-f addr From address.
-s TEXT Subject.
-c addr Cc-address.
-b addr bcc-address.
--sendmail Use sendmail to send the e-mail.
--qmail Use qmail-inject to send the e-mail.
--smtp HOSTNAME Use HOSTNAME as the SMTP server.
--help Prints this help text.
';
}
Mini Shell