4 $MNG_ROOT = $ENV{'MNG_ROOT'} || die "Root dir for moderation not specified";
6 require "$MNG_ROOT/bin/robomod.pl";
8 ###################################################################### checkAck
9 # checks if poster needs ack
12 $needAck = ! &nameIsInList( $From, "noack.list" );
17 ######################################################################
34 if( /^Newsgroups: / ) {
36 $Newsgroups =~ s/^Newsgroups: //i;
37 } elsif( /^Subject: / ) {
39 } elsif( /^From: / ) {
41 } elsif( /^Path: / ) {
43 } elsif( /^Keywords: / ) {
45 } elsif( /^Summary: / ) {
47 } elsif( /^Message-ID: / ) {
57 ######################################################################
61 ######################################################################