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
10 sub nameIsInListRegexp {
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; } ) {
36 sub nameIsInListExactly {
37 local( $listName ) = pop( @_ );
38 local( $address ) = pop( @_ );
44 open( LIST, "$MNG_ROOT/data/$listName" );
46 while( $item = <LIST> ) {
50 next if $item =~ /^ *$/;
52 if( "\L$address" eq "\L$item" ) {
65 print STDERR $msg . "\n";
69 ######################################################################
72 if( defined( $ENV{'STUMP_PARANOID_PGP'} ) ) {
73 $paranoid_pgp = $ENV{'STUMP_PARANOID_PGP'} eq "YES";