#!/usr/bin/perl -w

use strict;
use Mail::Mailer;
use Getopt::Std;
use vars qw( %opts $line $user $body );

getopts('f:t:s:h', \%opts);

$user = getpwuid($<);

sub usage() {
  print <<EOF;
Usage: $0 [options]
Example: $0 -t root\@jerkcity.com -f die.puny\@earthling.net -s \'Your
+ comic is the wierdest thing _ever_\'
Synopsis: sends mail to the specified address

-h         : displays this help screen
-t ADDRESS : address to mail to
-f ADDRESS : address to mail from (default is your user name: \'$user\
+')
-s SUBJECT : subject of the mail

If no flags are given, then the first argument given is assumed to be 
+the address to mail to, or if no options are given, this help screen 
+is displayed.
EOF
  exit;
}

if ($opts{'h'}) {
  usage();
}

if (!$opts{'t'}) {
  if ($ARGV[0]) {
    $opts{'t'} = $ARGV[0];
  } else {
    die "You must enter an address to mail to. See $0 -h for help on u
+sage.";
  }
}

if (!$opts{'f'}) {
  $opts{'f'} = $user;
}

if (!$opts{'s'}) {
  $opts{'s'} = 'No subject';
}

print "Enter body of message, use a single \'.\' on a line to finish.\
+n";
while ($line = <STDIN>) {
  last if ($line =~ /^\.$/);
  $body .= $line;
}


sendmail ($opts{'f'}, $opts{'t'}, $opts{'s'}, $body);

print "Mail Sent.\n";

exit;

sub sendmail {
  my ($from, $to, $subject, $body) = @_;
  
  my $mailer;
  eval {
    $mailer = Mail::Mailer->new('sendmail');
  };
  if ($@) {
    warn "Couldn't send mail: $@";
  } else {
    $mailer->open({ To       => $to,
                    From     => $from,
                    Subject  => $subject });
    print $mailer $body;
    unless (close ($mailer)) {
      warn "Couldn't close mailer: $!";
    }
  }
}
[download]