#!/usr/bin/perl

# $Id: accept,v 1.2 1997/11/23 23:47:22 crosser Exp $
#
# $Log: accept,v $
# Revision 1.2  1997/11/23 23:47:22  crosser
# add comment
#

# Spool incoming message for fido7 "automoderator"
# Copyright (c) 1997 Eugene G. Crosser

$LIBDIR="/usr/local/lib/fido7";
$LOGDIR="/var/fido7/log";
$ERRLOG="accept";

umask 002;

unshift(@INC,$LIBDIR);
chdir($LOGDIR);
open(STDERR,">>".$ERRLOG) || die "cannot open $errlog: $!";

require "config.pl";

$mode=$0;
$mode=~s#.*/##;
$mode=substr($mode,0,1);
$file=$SPOOL.'/'.$mode.'/'.time.'.'.$$;

print STDERR "accept: \"$file\"\n";

unless (open(STDOUT,">".$file)) {
	print STDERR "could not open \"$file\": $!\n";
	exit(71); # EX_OSERR
}

while (<STDIN>) { print; }
