GitHub/pbot
3
0
Fork 0
mirror of https://github.com/pragma-/pbot.git synced 2025-02-03 07:54:05 +01:00
Code Issues Projects Releases Wiki Activity

RelayUnreg: limit notification to once every 15 minutes

Browse Source
This commit is contained in:
Pragmatic Software 2018-08-13 14:23:13 -07:00
parent 6929e1ed5d
commit 05b1159421
1 changed files with 17 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
PBot/Plugins/RelayUnreg.pm
View File

@ -21,6 +21,7 @@ sub initialize {
$self->{pbot} = delete $conf{pbot} // Carp::croak("Missing pbot reference to " . __FILE__);
$self->{pbot}->{event_dispatcher}->register_handler('irc.public', sub { $self->on_public(@_) });
$self->{queue} = [];
$self->{notified} = {};
$self->{pbot}->{timer}->register(sub { $self->check_queue }, 1, 'RelayUnreg');
}
@ -34,6 +35,9 @@ sub on_public {
my ($nick, $user, $host, $msg) = ($event->{event}->nick, $event->{event}->user, $event->{event}->host, $event->{event}->args);
my $channel = lc $event->{event}->{to}[0];
$msg =~ s/^\s+|\s+$//g;
return 0 if not length $msg;
# exit if channel hasn't muted $~a
return 0 if not exists $self->{pbot}->{bantracker}->{banlist}->{$channel}->{'+q'}->{'$~a'};
@ -79,8 +83,11 @@ sub on_public {
# don't notify/relay if user is voiced
return 0 if $self->{pbot}->{nicklist}->get_meta($channel, $nick, '+v');
$self->{pbot}->{logger}->log("RelayUnreg: Notifying $nick to register with NickServ in $channel.\n");
$event->{conn}->privmsg($nick, "Please register your nick to speak in $channel. See https://freenode.net/kb/answer/registration and https://freenode.net/kb/answer/sasl");
unless (exists $self->{notified}->{lc $nick}) {
$self->{pbot}->{logger}->log("RelayUnreg: Notifying $nick to register with NickServ in $channel.\n");
$event->{conn}->privmsg($nick, "Please register your nick to speak in $channel. See https://freenode.net/kb/answer/registration and https://freenode.net/kb/answer/sasl");
$self->{notified}->{lc $nick} = gettimeofday;
}
# don't relay unregistered chat unless enabled
return 0 if not $self->{pbot}->{registry}->get_value($channel, 'relay_unregistered_chat');
@ -110,6 +117,14 @@ sub check_queue {
}
shift @{$self->{queue}};
}
# check notification timeouts here too, why not?
my $timeout = gettimeofday + 60 * 15;
foreach my $nick (keys %{$self->{notified}}) {
if ($self->{notified}->{$nick} >= $timeout) {
delete $self->{notified}->{$nick};
}
}
}
1;