3 defined($la= $ENV{'NNTPMERGE_AUTHD_AS'}) || die "no la";
5 $outnews= "/usr/local/lib/exchange/outnews";
9 print "200 nyxpost\r\n";
16 length($_=<>) || exit(1);
18 s/^\.//; s/\r\n$/\n/; $art.= $_;
20 defined($c= open(P,"-|")) || die "fork: $!";
22 open(STDERR,">&STDOUT");
23 defined($c2= open(Q,"|-")) || die "fork: $!";
25 exec($outnews,"--sender",$la,$route);
28 print(Q $art) || die "write: $!";
29 close(Q); $? && die "outnews: $?";
32 undef $/; $_= <P>; $/= "\n"; s/\n/ /g;
39 } elsif (m/^QUIT$/i) {
43 print "500 too stupid\r\n";