add if you swear 3 or more times you are unceremoniously logged out

[spider.git] / perl / DXMsg.pm

diff --git a/perl/DXMsg.pm b/perl/DXMsg.pm
index bb8cbb68331692ce272df62b938c94c54e27f6bd..238bf1b3ddba2a5898d276b0d4d6d307c26438af 100644 (file)
--- a/perl/DXMsg.pm
+++ b/perl/DXMsg.pm
@@ -886,6 +886,7 @@ sub do_send_stuff
                confess "local var gone missing" if !ref $self->{loc};
                my $loc = $self->{loc};
                if (my @ans = BadWords::check($line)) {
+                       $self->{badcount} += @ans;
                        Log('msg', $self->call . " used badwords: @ans to @{$loc->{to}} in msg");
                        return ($self->msg('e17', @ans), $self->msg('m1'));
                }
@@ -942,6 +943,7 @@ sub do_send_stuff
                        $self->state('prompt');
                } else {
                        if (my @ans = BadWords::check($line)) {
+                               $self->{badcount} += @ans;
                                Log('msg', $self->call . " used badwords: @ans to @{$loc->{to}} subject: '$loc->{subject}' in msg");
                                Log('msg', "line: $line");
                                return ($self->msg('e17', @ans));