3 # Collection of common functions
6 $MNG_ROOT = $ENV{'MNG_ROOT'} || die "Root dir for moderation not specified";
8 ###################################################################### checkAck
9 # checks if poster needs ack
11 local( $listName ) = pop( @_ );
12 local( $address ) = pop( @_ );
18 open( LIST, "$MNG_ROOT/data/$listName" );
20 while( $item = <LIST> ) {
24 next if $item =~ /^ *$/;
26 if( eval { $address =~ /$item/i; } || "\L$address" eq "\L$item" ) {
39 print STDERR $msg . "\n";
43 ######################################################################
46 if( defined( $ENV{'STUMP_PARANOID_PGP'} ) ) {
47 $paranoid_pgp = $ENV{'STUMP_PARANOID_PGP'} eq "YES";