projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
accadb4
)
made the regexes slightly less aggressive
author
minima
<minima>
Wed, 24 Oct 2001 23:53:08 +0000
(23:53 +0000)
committer
minima
<minima>
Wed, 24 Oct 2001 23:53:08 +0000
(23:53 +0000)
Changes
patch
|
blob
|
history
perl/BadWords.pm
patch
|
blob
|
history
diff --git
a/Changes
b/Changes
index 8ff3b6aeb6c36cf0ffa63886701c887892ccb6b0..e7df720fad6ec979e4f2baf946962f51ed28d274 100644
(file)
--- a/
Changes
+++ b/
Changes
@@
-14,6
+14,9
@@
registration you will also issue passwords to those registered users.
change them.
4. A non-registered user will get the /spider/data/motd_nor file instead of
the motd on login.
change them.
4. A non-registered user will get the /spider/data/motd_nor file instead of
the motd on login.
+5. made the BadWord regexes slightly less aggressive WARNING this may let
+some constructions thru, but hopefully will also allow more legitimate
+foreign (mainly) things thru as well.
19Oct01=======================================================================
1. Allow DELETE (0x7f) for backspace in console.pl
2. redo prefix table using latest cty.dat
19Oct01=======================================================================
1. Allow DELETE (0x7f) for backspace in console.pl
2. redo prefix table using latest cty.dat
diff --git
a/perl/BadWords.pm
b/perl/BadWords.pm
index 7ae0373f436f007edcd259af76b2699f3f210a6d..d0572cc2de4cb9f99b60b02461383d56c8117e6f 100644
(file)
--- a/
perl/BadWords.pm
+++ b/
perl/BadWords.pm
@@
-75,7
+75,7
@@
sub create_regex
my $w = uc $_;
my @l = split //, $w;
my $e = join '+[\s\W]*', @l;
my $w = uc $_;
my @l = split //, $w;
my $e = join '+[\s\W]*', @l;
- $s .= "push \@out, \$1 if \$str =~ /($e)/;\n";
+ $s .= "push \@out, \$1 if \$str =~ /
\\b
($e)/;\n";
}
}
$s .= "return \@out;\n}";
}
}
$s .= "return \@out;\n}";