hamradio/spider
1
0
Fork 0
mirror of git://scm.dxcluster.org/scm/spider synced 2024-09-21 07:47:10 +00:00
Code Issues Packages Projects Releases Wiki Activity

added some extra spaced out swearwords

Browse Source
This commit is contained in:
minima 2001-10-01 20:37:18 +00:00
parent 8825f74051
commit e0cfa6eebc
2 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
perl/BadWords.pm
View File

@ -76,6 +76,10 @@ sub check
return "COCK";
} elsif ($s =~ /S[\s\W]*H[\s\W]*[I1][\s\W]*T/) {
return "SHIT";
} elsif ($s =~ /P[\s\W]*[I1][\s\W]*S[\s\W]*S/) {
return "PISS";
} elsif ($s =~ /B[\s\W]*[O0][\s\W]*L[\s\W]*L[\s\W]*[O0][\s\W]*[CK]/) {
return "BOLLOCKS";
}
return ();

2
perl/Editable.pm
View File

@ -62,7 +62,7 @@ sub modline
if (my @ans = BadWord::check($line)) {
return ($dxchan->msg('e17', @ans));
}
${$self->{lines}}[$no], $line;
${$self->{lines}}[$no] = $line;
return ();
}