2 # Processes the "No Ack" request
5 # get the directory where robomod is residing
6 $MNG_ROOT = $ENV{'MNG_ROOT'} || die "Root dir for moderation not specified";
9 require "$MNG_ROOT/bin/robomod.pl";
11 $NoAckFile = "$MNG_ROOT/data/noack.list";
13 $Argv = join( ' ', @ARGV );
16 $From = $_ if( /^From: / );
23 if( $From =~ m/([\w-\.]*)\@([\w-\.]+)/ ) {
26 print STDERR "From line `$From' is incorrect\n";
30 if( !&nameIsInList( $From, "noack.list" ) ) { # need to preapprove
31 print STDERR "Adding $From to the noack list...\n";
32 open( NOACK, ">>$NoAckFile" );
33 print NOACK "$From\n";
36 print STDERR "$From already is in noack list\n";