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

[spider.git] / cmd / talk.pl

diff --git a/cmd/talk.pl b/cmd/talk.pl
index 45ac857ee935bf7bb7fa7f142435f79da82edf5b..9b7d359d3d6323aff40889ddbe13e4069b28c4a7 100644 (file)
--- a/cmd/talk.pl
+++ b/cmd/talk.pl
@@ -40,6 +40,7 @@ return (1, $self->msg('e7', $call)) unless $dxchan;
 if ($line) {
        my @bad;
        if (@bad = BadWords::check($line)) {
+               $self->badcount(($self->badcount||0) + @bad);
                return (1, $self->msg('e17', @bad));
        }
        $dxchan->talk($self->call, $to, $via, $line) if $dxchan;