# checks if poster needs acknowledgment of receipt
#
sub checkAck {
- if( &nameIsInList( $From, "noack.list" ) ) {
+ if( &nameIsInListExactly( $From, "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 ) ) {
- return "$Command_Reject abuse";
+ if( &nameIsInListRegexp( $From, $badGuys ) ) {
+ return "$Command_Reject blocklist";
}
# note that if even a preapproved person uses "BAD words" (that is
# "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;