#!/usr/bin/perl -U
# $Id: bbsmail,v 1.1.1.1 2000/08/25 14:20:33 deardragon Exp $

$bbsuid=9999;
$bbsgid=999;
$mail2bbs="/home/bbs/bin/mail2bbs";
require "/home/bbs/bin/mailgate.pl";

$)=$bbsgid;
$(=$bbsgid;
$<=$bbsuid;
$>=$bbsuid;
$ENV{'PATH'}='/bin:/usr/etc:/usr/local/bin:/usr/ucb';
while ( $ARGV[0] =~ /^-/ ) {
	$_ = shift;
	if ( /^-d/ ) {
		$debug=1;
	} 
}
$normaluser = $ARGV[0];
$logdir="/home/bbs/reclog";
mkdir($logdir,0700) unless -d $logdir;
open(LOG,">> $logdir/mail-log") || warn "can't open warn file $!\n";
print LOG "\n";
print "\nMail to $normaluser \n";
print LOG "Mail to $normaluser \n";
&readmail;
for ($n=0; $n < $MAILBODY; $n++) {
        print LOG $MAIL[$n];
}
print LOG "\'$Header{'From'}\' \'$normaluser\'  \'$Header{'Subject'}\' \'$Header{'Received'}\' \'$Header{'Reply-To'}\' \'$Header{'To'}\'  \n";
open(BBSGATE,"| $mail2bbs \'$Header{'From'}\' \'$normaluser\'  \'$Header{'Subject'}\' \'$Header{'Received'}\' \'$Header{'Reply-To'}\' \'$Header{'To'}\' ");
for ($n= $MAILBODY; $n <= $#MAIL; $n++) {
	print BBSGATE $MAIL[$n];
}
close(BBSGATE);
if ($? ==0 ) {
     print LOG "$Header{'From'} mail to $normaluser successfully\n";
     print "$Header{'From'} mail to $normaluser successfully\n";
} elsif ($? ==767 ) {
     print LOG "$Header{'From'} mail to $normaluser failed, return code $?\n";
     print "$Header{From} mail to $normaluser failed, return code $?\n";
     close(LOG);
     die "Shared memory error\n";
} elsif ($? ==768 ) {
     print LOG "$Header{'From'} mail to $normaluser failed, return code $?\n";
     print "$Header{From} mail to $normaluser failed, return code $?\n";
     close(LOG);
     die "Service refused\n";
} else {
     print LOG "$Header{'From'} mail to $normaluser failed, return code $?\n";
     print "$Header{From} mail to $normaluser failed, return code $?\n";
     close(LOG);
     die "BBS user $normaluser unknown\n";
}
close(LOG);
0;
