projects
/
spider.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fix new swearing code.
[spider.git]
/
perl
/
DXCommandmode.pm
diff --git
a/perl/DXCommandmode.pm
b/perl/DXCommandmode.pm
index 04a1b2866e850daf066562cc469456f2f5a7fc4d..29840c410e4c788359f97cbe26780dce0ce0519d 100644
(file)
--- a/
perl/DXCommandmode.pm
+++ b/
perl/DXCommandmode.pm
@@
-311,7
+311,7
@@
sub normal
my @bad;
if (@bad = BadWords::check($cmdline)) {
$self->badcount(($self->badcount||0) + @bad);
my @bad;
if (@bad = BadWords::check($cmdline)) {
$self->badcount(($self->badcount||0) + @bad);
- Log
('DXCommand', "$self->{call} swore: $cmdline
");
+ Log
Dbg('DXCommand', "$self->{call} swore: $cmdline with words:" . join(',', @bad) . ")
");
} else {
for (@{$self->{talklist}}) {
$self->send_talks($_, $rawline);
} else {
for (@{$self->{talklist}}) {
$self->send_talks($_, $rawline);
@@
-343,7
+343,7
@@
sub normal
# check for excessive swearing
if ($self->{badcount} && $self->{badcount} >= $maxbadcount) {
# check for excessive swearing
if ($self->{badcount} && $self->{badcount} >= $maxbadcount) {
- Log('DXCommand', "$self->{call} logged out for excessive swearing");
+ Log
Dbg
('DXCommand', "$self->{call} logged out for excessive swearing");
$self->disconnect;
return;
}
$self->disconnect;
return;
}