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: / );
24 if( $From !~ m/([\w-\.]*)\@([\w-\.]+)/ || $From =~ m/\n/) {
25 print STDERR "From line `$From' is incorrect\n";
29 if( !&nameIsInListExactly( $From, "noack.list" ) ) { # need to preapprove
30 print STDERR "Adding $From to the noack list...\n";
31 open( NOACK, ">>$NoAckFile" ) or die $!;
32 print NOACK "$From\n" or die $!;
33 close( NOACK ) or die $!;
35 print STDERR "$From already is in noack list\n";