#!/usr/local/bin/perl

$POSTIT           = "/home/usenet/bin/mail2news";
$tmpfile          = "/home/usenet/spool/usenet$$";
$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");