Perlbot/perlbuut
1
0
Fork 0
mirror of https://github.com/perlbot/perlbuut synced 2025-06-07 10:45:40 -04:00
Code Issues Releases Wiki Activity

pba commands

Browse source
This commit is contained in:
Ryan Voots 2017-05-12 21:06:11 -04:00
parent fe159c958d
commit 58ad5f85d3
1 changed files with 67 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

67
plugins/pastebinadmin.pm Normal file
View file

@ -0,0 +1,67 @@
package Bot::BB3::Plugin::Pastebinadmin;
use POE::Component::IRC::Common qw/l_irc/;
use DBD::SQLite;
use strict;
sub new {
my( $class ) = @_;
my $self = bless {}, $class;
$self->{name} = "pastebinadmin";
$self->{opts} = {
command => 1,
};
return $self;
}
sub dbh {
my( $self, $env ) = @_;
if( $self->{$env . "dbh"} and $self->{$env . "dbh"}->ping ) {
return $self->{$env . "dbh"};
}
my $dbh = $self->{$env . "dbh"} = DBI->connect( "dbi:SQLite:dbname=/var/www/domains/perl.bot/".$env."/pastes.db", "", "", { PrintError => 0, RaiseError => 1 } );
return $dbh;
}
sub postload {
my( $self, $pm ) = @_;
delete $self->{wwwdbh}; # UGLY HAX GO.
delete $self->{devdbh};
# Basically we delete the dbh we cached so we don't fork
# with one active
}
sub add_ban_word {
my ($self, $env, $who, $where, $word) = @_;
$self->dbh($env)->do("INSERT INTO banned_words (word, who, 'where') VALUES (?, ?, ?)", {}, $word, $who, $where);
}
sub command {
my( $self, $said, $pm ) = @_;
my( $cmd ) = join ' ', @{ $said->{recommended_args} };
my ($env, $command, @args);
if ($cmd =~ /^\s*(?<dev>--dev)?\s*(?<command>\S+)\s*(?<args>.*?)\s*$/i) {
$env = $+{dev} ? "dev" : "www";
$command = $+{command};
@args = split ' ', $+{args};
}
if ($command eq 'banword') {
$self->add_ban_word($env, $said->{sender_raw}, $said->{server}. $said->{channel}, $_) for (@args);
use Data::Dumper;
return ("handled", "Added words [".join(', ', @args)."] to ban list");
} else {
return ("handled", "Failed to parse [$env, $command, @args]");
}
}
no warnings 'void';
"Bot::BB3::Plugin::Pastebinadmin";
__DATA__
The pastebinadmin plugin. Lets operators change options on the https://perlbot.pl/ pastebin. perlbot: pastebinadmin [--dev] <command> [<args>]. see https://github.com/perlbot/perlbuut-pastebin/wiki/Op-Tools