#!/usr/bin/perl -w

#
# mailout
# jon@akopia.com
# 2000-10-05
#

use strict;
use Mail::Sendmail;
use Getopt::Std;

undef $/;

&usage unless @ARGV;

my %opts;
getopt('fsbcr', \%opts);

&usage("No sender (-f ...) specified!\n") unless $opts{f};
my $to = $ARGV[0];
&usage("No recipient specified!\n")       unless $to;
warn "No subject (-s ...) specified!\n"   unless $opts{s};

#for (my $i=0; $i<@ARGV; $i++) {print "$i: $ARGV[$i]\n";} exit;
my %mail = (
	To      => $to,
	From    => $opts{f},
	Subject => $opts{s},
	Message => <STDIN>,
);

$mail{Cc}         = $opts{c} if $opts{c};
$mail{Bcc}        = $opts{b} if $opts{b};
$mail{'Reply-To'} = $opts{r} if $opts{r};

sendmail(%mail) or die "$Mail::Sendmail::error\n";

print "Mail to '$to' has been sent.\n";


sub usage {
	$_ = <<END;
Usage: $0 -f sender [-s subject] [-c cc] [-b bcc]
       [-r reply-to] recipient < message
END
	$_ .= $_[0] if $_[0];
	die $_;
}