3
0
mirror of https://github.com/pragma-/pbot.git synced 2024-11-09 21:49:34 +01:00
pbot/Plugins/AntiNickSpam.pm

100 lines
3.1 KiB
Perl
Raw Normal View History

2017-12-31 02:27:48 +01:00
# File: AntiNickSpam.pm
# Author: pragma_
#
# Purpose: Temporarily mutes $~a in channel if too many nicks were
# mentioned within a time period; used to combat botnet spam
# This Source Code Form is subject to the terms of the Mozilla Public
# License, v. 2.0. If a copy of the MPL was not distributed with this
# file, You can obtain one at http://mozilla.org/MPL/2.0/.
package Plugins::AntiNickSpam;
2020-02-15 23:38:32 +01:00
2020-02-09 04:48:05 +01:00
use parent 'Plugins::Plugin';
2017-12-31 02:27:48 +01:00
2020-02-09 04:48:05 +01:00
use warnings; use strict;
2019-07-11 03:40:53 +02:00
use feature 'unicode_strings';
2017-12-31 02:27:48 +01:00
use Time::Duration qw/duration/;
use Time::HiRes qw/gettimeofday/;
sub initialize {
2020-02-15 23:38:32 +01:00
my ($self, %conf) = @_;
$self->{pbot}->{event_dispatcher}->register_handler('irc.public', sub { $self->on_public(@_) });
$self->{pbot}->{event_dispatcher}->register_handler('irc.caction', sub { $self->on_action(@_) });
$self->{nicks} = {};
2017-12-31 02:27:48 +01:00
}
sub unload {
2020-02-15 23:38:32 +01:00
my ($self) = @_;
$self->{pbot}->{event_dispatcher}->remove_handler('irc.public');
$self->{pbot}->{event_dispatcher}->remove_handler('irc.caction');
}
2017-12-31 02:27:48 +01:00
sub on_action {
2020-02-15 23:38:32 +01:00
my ($self, $event_type, $event) = @_;
my ($nick, $user, $host, $msg) = ($event->{event}->nick, $event->{event}->user, $event->{event}->host, $event->{event}->args);
my $channel = $event->{event}->{to}[0];
return 0 if $event->{interpreted};
$self->check_flood($nick, $user, $host, $channel, $msg);
return 0;
2017-12-31 02:27:48 +01:00
}
sub on_public {
2020-02-15 23:38:32 +01:00
my ($self, $event_type, $event) = @_;
my ($nick, $user, $host, $msg) = ($event->{event}->nick, $event->{event}->user, $event->{event}->host, $event->{event}->args);
my $channel = $event->{event}->{to}[0];
return 0 if $event->{interpreted};
$self->check_flood($nick, $user, $host, $channel, $msg);
return 0;
2017-12-31 02:27:48 +01:00
}
sub check_flood {
2020-02-15 23:38:32 +01:00
my ($self, $nick, $user, $host, $channel, $msg) = @_;
return 0 if not $self->{pbot}->{chanops}->can_gain_ops($channel);
$channel = lc $channel;
my @words = split /\s+/, $msg;
my @nicks;
foreach my $word (@words) {
$word =~ s/[:;\+,\.!?\@\%\$]+$//g;
if ($self->{pbot}->{nicklist}->is_present($channel, $word) and not grep { $_ eq $word } @nicks) {
push @{$self->{nicks}->{$channel}}, [scalar gettimeofday, $word];
push @nicks, $word;
}
2017-12-31 02:27:48 +01:00
}
2020-02-15 23:38:32 +01:00
$self->clear_old_nicks($channel);
2017-12-31 02:27:48 +01:00
2020-02-15 23:38:32 +01:00
if (exists $self->{nicks}->{$channel} and @{$self->{nicks}->{$channel}} >= 10) {
$self->{pbot}->{logger}->log("Nick spam flood detected in $channel\n");
$self->{pbot}->{banlist}->ban_user_timed(
$channel,
'q',
'$~a',
60 * 15,
$self->{pbot}->{registry}->get_value('irc', 'botnick'),
'nick spam flooding',
);
2020-02-15 23:38:32 +01:00
}
2017-12-31 02:27:48 +01:00
}
sub clear_old_nicks {
2020-02-15 23:38:32 +01:00
my ($self, $channel) = @_;
my $now = gettimeofday;
return if not exists $self->{nicks}->{$channel};
while (1) {
if (@{$self->{nicks}->{$channel}} and $self->{nicks}->{$channel}->[0]->[0] <= $now - 15) {
shift @{$self->{nicks}->{$channel}};
} else {
last;
}
2017-12-31 02:27:48 +01:00
}
2020-02-15 23:38:32 +01:00
delete $self->{nicks}->{$channel} if not @{$self->{nicks}->{$channel}};
2017-12-31 02:27:48 +01:00
}
1;