#!/afs/athena/contrib/perl/p

require '/mit/mkgray/perl/io.pl';
$to = shift(@ARGV);
$from = shift(@ARGV);

if($to eq '-h'){
	print("bogm to from\n");
	exit(0);
}

print("Subject\n");
$subj = &io'input();
$mail = &io'gettext();

open(FM, "|/usr/lib/sendmail -C/mit/mkgray/private/generic.cf -f$from $to");
print("Sending to $to from $from, subject $subj.\n");
print(FM "To: $to\n");
print(FM "Subject: $subj\n");
print(FM $mail);
close(FM);
print("Sent\n");