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

Allow different defaults per channel

Browse source
This commit is contained in:
Ryan Voots 2016-10-01 18:47:34 -04:00
parent 2c593cb8c5
commit ae81c8dff8
4 changed files with 56 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
etc/bb3.conf
View file

@ -33,7 +33,7 @@ http_plugin_port 1092
# Change this to be bot specific?
<plugin_manager>
default_plugin factoids
default_plugin default
</plugin_manager>
<bot perlbot>

5
etc/plugins.conf
View file

@ -24,14 +24,12 @@ server "*" {
plugin "eval" {addressed: false; }
plugin "deparse" {addressed: false; }
plugin "badfacts" {addressed: false; }
plugin "default" {plugin: "nfacts"}
}
channel "#buubot" {
plugin "eval" {addressed: false; }
plugin "deparse" {addressed: false; }
}
channel "#regex" {
plugin "badfacts" {addressed: false; }
}
}
server "*.freenode.net" {
channel "#perlbot" {
@ -53,5 +51,6 @@ server "*.freenode.net" {
plugins: false;
filtersep: true;
}
plugin "default" {plugin: "nfacts"; }
}
}

51
plugins/default.pm Normal file
View file

@ -0,0 +1,51 @@
package Bot::BB3::Plugin::Default;
use strict;
no warnings 'void';
use Data::Dumper;
our $pname = "default";
sub get_conf_for_channel {
my ($self, $pm, $server, $channel) = @_;
my $conf = $pm->plugin_conf($pname, $server, $channel);
return $conf;
}
sub new {
my( $class ) = @_;
my $self = bless {}, $class;
$self->{name} = $pname;
$self->{opts} = {
command => 1,
};
return $self;
}
sub command {
my ($self, $_said, $pm) = @_;
my $said = {%$_said}; # copy it so we can mutate it later
my $conf = $self->get_conf_for_channel($pm, $said->{server}, $said->{channel});
if ($said->{addressed}) {
my $plug_name = $conf->{plugin} // 'fact';
my $plugin = $pm->get_plugin( $plug_name );
$said->{body} =~ s/^default //g;
$said->{recommended_args} = [ split /\s+/, $said->{body} ];
local $@;
my( $status, $results ) = eval { $plugin->command( $said, $pm ) };
my $err = $@;
return ($status, $results);
}
return;
}
"Bot::BB3::Plugin::Default";
__DATA__
default plugin handler that supports per channel configurations

4
plugins/nfacts.pm
View file

@ -95,9 +95,9 @@ sub handle {
my $prefix = $conf->{prefix} || "!";
my $regex = qr/^\Q$prefix\E(?<fact>[^@].*?)(?:\s@\s*(?<user>\S*))?$/;
my $regex = qr/^\Q$prefix\E(?<fact>[^@].*?)(?:\s@\s*(?<user>\S*)\s*)?$/;
if ($said->{body} =~ /^\Q$prefix\E(?<fact>[^@].*?)(?:\s@\s*(?<user>\S*))?$/ ||
if ($said->{body} =~ /^\Q$prefix\E(?<fact>[^@].*?)(?:\s@\s*(?<user>\S*)\s*)?$/ ||
$said->{body} =~ /^\Q$prefix\E!@(?<user>\S+)\s+(?<fact>.+)$/) {
my $fact = $+{fact};
my $user = $+{user};