# checks if poster needs acknowledgment of receipt
#
sub checkAck {
- if( &nameIsInList( $From, "noack.list" ) ) {
+ my $fromaddr = $From;
+ $fromaddr =~ s/^[-A-Za-z]+\s*\:\s*//;
+ print STDERR "checking noack.list for \"$From|$fromaddr\"\n";
+ if( &nameIsInListExactly( $fromaddr, "noack.list" ) ) {
$needAck = "no";
} else {
$needAck = "yes";
return "$Command_Reject signature Your PGP signature does NOT match, or is not in our keyring";
}
- if( &nameIsInList( $From, $PGPMustList ) ||
- ($PGPCheckPreapproved && &nameIsInList($From, $goodGuys) ) ) {
+ if( &nameIsInListRegexp( $From, $PGPMustList ) ||
+ ($PGPCheckPreapproved && &nameIsInListExactly($From, $goodGuys) ) ) {
if( $FromSig eq "" ) {
return "$Command_Reject signature You are REQUIRED to sign your posts.";
}
}
}
- if( &nameIsInList( $From, $badGuys ) ) {
+ if( &nameIsInListRegexp( $From, $badGuys ) ) {
return "$Command_Reject blocklist";
}
# "suspicious" and will be forwarded to a humen mod for review.
# As an example of a bad word may be "MAKE MONEY FAST - IT REALLY WORKS!!!"
#
- if( $badWord = &nameIsInList( $Body, $badWords ) ) {
+ if( $badWord = &nameIsInListRegexp( $Body, $badWords ) ) {
print STDERR "BAD WORD $badWord FOUND!!!\n";
return $Command_Suspicious; # messages from approved guys MAY be
# suspicious if they write about
}
# Checking preapproved list
- if( &nameIsInList( $From, $goodGuys ) ) {
+ if( &nameIsInListExactly( $From, $goodGuys ) ) {
local( $from ) = $From; $from =~ s/^From: //i;
print STDERR "$from is a PREAPPROVED person\n";
return $Command_Approve;
return 1 if( $header =~ /^Supersedes:/i );
return 1 if( $header =~ /^Precedence:/i );
return 1 if( $header =~ /^Apparently-To:/i );
- return 1 if( $header =~ /^Date:/i );
return 1 if( $header =~ /^Expires:/i );
return 1 if( $header =~ /^Distribution:/i );
return 1 if( $header =~ /^Path:/i );