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
13 $fromaddr =~ s/^[-A-Za-z]+\s*\:\s*//;
14 $needAck = ! &nameIsInListExactly( $fromaddr, "noack.list" );
19 ######################################################################
36 if( /^Newsgroups: / ) {
38 $Newsgroups =~ s/^Newsgroups: //i;
39 } elsif( /^Subject: / ) {
41 } elsif( /^From: / ) {
43 } elsif( /^Path: / ) {
45 } elsif( /^Keywords: / ) {
47 } elsif( /^Summary: / ) {
49 } elsif( /^Message-ID: / ) {
59 ######################################################################
63 ######################################################################