pjs/webtools/mozbot/BotModules/Flood.bm

103 строки
3.6 KiB
Plaintext
Исходник Обычный вид История

# -*- Mode: perl; indent-tabs-mode: nil -*-
# $Id: Flood.bm,v 1.2 2003-10-03 15:46:54 ian%hixie.ch Exp $
###########################
# Flood Protection module #
###########################
package BotModules::Flood;
use vars qw(@ISA);
@ISA = qw(BotModules);
1;
sub RegisterConfig {
my $self = shift;
$self->SUPER::RegisterConfig(@_);
foreach my $chan (@{$self->{'channels'}}) {
$self->registerVariables( ["join_$chan", 0, 0, []] );
}
$self->registerVariables(
['numberOfJoins', 1, 1, '7'],
['secondsToTrigger', 1, 1, '2'],
['minutesToProtect', 1, 1, '5'],
);
}
sub Help {
my $self = shift;
my ($event) = @_;
return {
'' => 'This module will help control "join flood" attacks on IRC',
};
}
# Set - called to set a variable to a particular value.
sub Set {
my $self = shift;
my ($event, $variable, $value) = @_;
# If changing the setting for numberOfJoins make sure
# that the arrays are empty. Otherwise, reducing the
# numberOfJoins value would not work properly.
if ($variable eq 'numberOfJoins') {
foreach my $chan (@{$self->{'channels'}}) {
@{$self->{"join_$chan"}} = ();
}
}
# now actually do the setting of the variable
return $self->SUPER::Set($event, $variable, $value);
}
sub JoinedChannel {
my $self = shift;
my ($event, $channel) = @_;
$self->registerVariables( ["join_$channel", 0, 0, []] );
return $self->SUPER::JoinedChannel($event, $channel); # call inherited method
}
sub SpottedJoin {
my $self = shift;
my ($event, $channel, $who) = @_;
# If numberOfJoins or secondsToTrigger is not a positive Integer, don't do anything
if ($self->{'numberOfJoins'} !~ m/^[1-9][0-9]*$/o || $self->{'secondsToTrigger'} !~ m/^[1-9][0-9]*$/o) {
# We didn't do anything, so don't pretend like we did :)
return $self->SUPER::SpottedJoin($event, $channel, $who);
}
# Here we have the 'join_times' array to push and shift to/from
push(@{$self->{"join_$channel"}}, $event->{'time'});
if (scalar(@{$self->{"join_$channel"}}) >= $self->{'numberOfJoins'}) {
my $oldest = shift(@{$self->{"join_$channel"}});
my $timechange = $event->{'time'} - $oldest;
if ($self->{'secondsToTrigger'} >= $timechange) {
# We have just seen many joins happen very quickly. This channel should
# have its mode set to +i until an op can figure out what went wrong.
$self->mode($event, $event->{'channel'}, '+i');
my $extra_text = "";
# If minutesToProtect is a positive integer we should set mode -i after
# that number of minutes has passed.
if ($self->{'minutesToProtect'} =~ m/^[1-9][0-9]*$/o) {
my $seconds = $self->{'minutesToProtect'} * 60;
my @mode = ('mode', $event->{'channel'}, '-i');
$self->schedule($event, $seconds, 1, @mode);
$extra_text = "I'll set it -i in $self->{'minutesToProtect'} minutes";
}
$self->say($event, "I just saw a lot of joins happen very quickly. Because of " .
"that I set this channel's mode to be Invite Only... $extra_text");
}
}
# By returning 0 we ensure that a join won't be processed more than once.
return 0;
}
sub Scheduled {
my $self = shift;
my ($event, @data) = @_;
my $what = shift(@data);
if ($what eq 'mode') {
$self->mode($event, @data);
} else {
# Call the inherited event
return $self->SUPER::Schedule(@_);
}
}