#!/usr/local/bin/perl

# Richard 'Rick' Hernandez,  Mail/News/Sys Admin/Analyst
# rick@pobox.com <A HREF="http://pobox.com/~rick>My Home Page</A>

# postit
# Purpose: a quick clearing of the mail filter and a save of
# the mail until it is posted.
# This can be replaced with your own methods.

$POSTIT            = "/home/usenet/bin/mail2news";
$tmpfile           = "/home/usenet/spool/$ARGV[0].$$";
$ENV{'ARTICLE'}    = $tmpfile;
$ENV{'NEWSGROUP'}  = $ARGV[0];
$ENV{'STATUS'}     = 0;
$ENV{'NNTPSERVER'} = "news.sandiegoca.ncr.com";

open (TMPFILE, ">$tmpfile") || die "Failed tempfile open,";
print TMPFILE while (<STDIN>);
close TMPFILE;

system("$POSTIT >/dev/null 2>&1 &");