mirror of
https://github.com/pragma-/pbot.git
synced 2024-12-24 11:42:35 +01:00
143 lines
3.8 KiB
Perl
143 lines
3.8 KiB
Perl
# File: ChanOps.pm
|
|
# Author: pragma_
|
|
#
|
|
# Purpose: Provides channel operator status tracking and commands.
|
|
|
|
package PBot::ChanOps;
|
|
|
|
use warnings;
|
|
use strict;
|
|
|
|
use vars qw($VERSION);
|
|
$VERSION = $PBot::PBot::VERSION;
|
|
|
|
use Time::HiRes qw(gettimeofday);
|
|
use PBot::HashObject;
|
|
|
|
sub new {
|
|
if(ref($_[1]) eq 'HASH') {
|
|
Carp::croak("Options to ChanOps should be key/value pairs, not hash reference");
|
|
}
|
|
|
|
my ($class, %conf) = @_;
|
|
|
|
my $self = bless {}, $class;
|
|
$self->initialize(%conf);
|
|
return $self;
|
|
}
|
|
|
|
sub initialize {
|
|
my ($self, %conf) = @_;
|
|
|
|
my $pbot = delete $conf{pbot};
|
|
if(not defined $pbot) {
|
|
Carp::croak("Missing pbot reference to ChanOps");
|
|
}
|
|
|
|
$self->{pbot} = $pbot;
|
|
$self->{unban_timeout} = PBot::HashObject->new(pbot => $pbot, name => 'Unban Timeouts', filename => "$pbot->{data_dir}/unban_timeouts");
|
|
$self->{op_commands} = [];
|
|
$self->{is_opped} = {};
|
|
|
|
$pbot->timer->register(sub { $self->check_opped_timeouts }, 10);
|
|
$pbot->timer->register(sub { $self->check_unban_timeouts }, 10);
|
|
}
|
|
|
|
sub gain_ops {
|
|
my $self = shift;
|
|
my $channel = shift;
|
|
|
|
if(not exists ${ $self->{is_opped} }{$channel}) {
|
|
$self->{pbot}->conn->privmsg("chanserv", "op $channel");
|
|
$self->{is_opped}->{$channel}{timeout} = gettimeofday + 300; # assume we're going to be opped
|
|
$self->{pbot}->{irc}->flush_output_queue();
|
|
$self->{pbot}->{irc}->do_one_loop();
|
|
} else {
|
|
$self->perform_op_commands();
|
|
}
|
|
}
|
|
|
|
sub lose_ops {
|
|
my $self = shift;
|
|
my $channel = shift;
|
|
$self->{pbot}->conn->privmsg("chanserv", "op $channel -" . $self->{pbot}->botnick);
|
|
}
|
|
|
|
sub perform_op_commands {
|
|
my $self = shift;
|
|
$self->{pbot}->logger->log("Performing op commands...\n");
|
|
foreach my $command (@{ $self->{op_commands} }) {
|
|
if($command =~ /^mode (.*?) (.*)/i) {
|
|
$self->{pbot}->conn->mode($1, $2);
|
|
$self->{pbot}->logger->log(" executing mode $1 $2\n");
|
|
} elsif($command =~ /^kick (.*?) (.*?) (.*)/i) {
|
|
$self->{pbot}->conn->kick($1, $2, $3) unless $1 =~ /\Q$self->{pbot}->botnick\E/i;
|
|
$self->{pbot}->logger->log(" executing kick on $1 $2 $3\n");
|
|
}
|
|
shift(@{ $self->{op_commands} });
|
|
$self->{pbot}->{irc}->flush_output_queue();
|
|
$self->{pbot}->{irc}->do_one_loop();
|
|
}
|
|
$self->{pbot}->logger->log("Done.\n");
|
|
}
|
|
|
|
sub ban_user {
|
|
my $self = shift;
|
|
my ($mask, $channel) = @_;
|
|
unshift @{ $self->{op_commands} }, "mode $channel +b $mask";
|
|
$self->gain_ops($channel);
|
|
}
|
|
|
|
sub unban_user {
|
|
my $self = shift;
|
|
my ($mask, $channel) = @_;
|
|
$self->{pbot}->logger->log("Unbanning $mask\n");
|
|
delete $self->{unban_timeout}->hash->{$mask};
|
|
$self->{unban_timeout}->save_hash();
|
|
unshift @{ $self->{op_commands} }, "mode $channel -b $mask";
|
|
$self->gain_ops($channel);
|
|
}
|
|
|
|
sub ban_user_timed {
|
|
my $self = shift;
|
|
my ($mask, $channel, $length) = @_;
|
|
|
|
$self->ban_user($mask, $channel);
|
|
$self->{unban_timeout}->hash->{$mask}{timeout} = gettimeofday + $length;
|
|
$self->{unban_timeout}->hash->{$mask}{channel} = $channel;
|
|
$self->{unban_timeout}->save_hash();
|
|
}
|
|
|
|
sub check_unban_timeouts {
|
|
my $self = shift;
|
|
|
|
return if not $self->{pbot}->{joined_channels};
|
|
|
|
my $now = gettimeofday();
|
|
|
|
foreach my $mask (keys %{ $self->{unban_timeout}->hash }) {
|
|
if($self->{unban_timeout}->hash->{$mask}{timeout} < $now) {
|
|
$self->unban_user($mask, $self->{unban_timeout}->hash->{$mask}{channel});
|
|
} else {
|
|
#my $timediff = $unban_timeout{$mask}{timeout} - $now;
|
|
#$logger->log "ban: $mask has $timediff seconds remaining\n"
|
|
}
|
|
}
|
|
}
|
|
|
|
sub check_opped_timeouts {
|
|
my $self = shift;
|
|
my $now = gettimeofday();
|
|
|
|
foreach my $channel (keys %{ $self->{is_opped} }) {
|
|
if($self->{is_opped}->{$channel}{timeout} < $now) {
|
|
$self->lose_ops($channel);
|
|
} else {
|
|
# my $timediff = $is_opped{$channel}{timeout} - $now;
|
|
# $logger->log("deop $channel in $timediff seconds\n");
|
|
}
|
|
}
|
|
}
|
|
|
|
1;
|