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

Update readme to remove freenode mention

Browse source
This commit is contained in:
Ryan Voots 2021-06-07 11:12:26 -04:00
parent c54b2f0264
commit 7236bfc89b
6 changed files with 102 additions and 75 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
README.pod
View file

@ -13,8 +13,6 @@ This is the source code for perlbot, the resident infobot on Freenode’s
=over 4 =over 4
=item * L<http://perl-begin.org/FAQs/freenode-perl/>
=item * L<https://github.com/simcop2387/perlbuut> =item * L<https://github.com/simcop2387/perlbuut>
=back =back

57
etc/bb3.conf
View file

@ -37,47 +37,11 @@ http_plugin_port 1092
</plugin_manager> </plugin_manager>
<bot perlbot> <bot perlbot>
channel \#buubot channel \#\#perl
channel \#\#turtles
channel \#perlcafe
channel \#webgui
channel \#citadel
channel \#modperl
channel \#perl
channel \#ipv6
channel \#perlbot
channel \#mrtg
channel \#ipv6-fr
channel \#freebsd-fr
channel \#botpark
channel \#css
channel \#modus
channel \#perl-cats
channel \#cout.dev
channel \#web-locals
channel \#regex
channel \#regexen
channel \#mojo
ignore buubot
ignore avarbot
ignore jeval
ignore gumbybrain
ignore perlbot
ignore buubot3
ignore loudbot
ignore serfbot
ignore farnsworth
ignore frogbot
ignore EvanCarroll
ignore EvanCarrol
ignore EvanCaroll
ignore EvanCarol
ignore EC
server 192.168.32.1 server 192.168.32.1
username perlbot username perlbot
password sindarin password UjecyickehumBevGixrejparpheyndoc
port 65432 port 65432
root_mask p3m/member/simcop2387 root_mask p3m/member/simcop2387
</bot> </bot>
@ -122,3 +86,20 @@ http_plugin_port 1092
port 65432 port 65432
root_mask ~simcop238@simcop2387.info root_mask ~simcop238@simcop2387.info
</bot> </bot>
<bot perlbot-libera>
channel \#buubot
channel \#perl
channel \#perlbot
channel \#botpark
channel \#perl-cats
server 192.168.32.1
username perlbot-libera
password AtlyeSlognakjabDatCujatyijFeach9
port 65432
root_mask perlbot/patrician/simcop2387
ignore lambdabot
ignore lambdabot2
</bot>

82
etc/plugins.conf
View file

@ -1,7 +1,7 @@
server "*" { server "*" {
channel "*" { channel "*" {
plugin "*" { addressed: true } plugin "*" { addressed: true }
plugin "join" { access: op; addressed: true } plugin "join" { access: root; addressed: true }
plugin "allowpaste" { access: op; addressed: true } plugin "allowpaste" { access: op; addressed: true }
plugin "pastebinadmin" { access: op; addressed: true } plugin "pastebinadmin" { access: op; addressed: true }
plugin "part" { access: op } plugin "part" { access: op }
@ -13,6 +13,16 @@ server "*" {
plugin "karma_modify" { addressed: false; } plugin "karma_modify" { addressed: false; }
plugin "seen" {addressed: false; } plugin "seen" {addressed: false; }
} }
channel "##perl" {
plugin "factoids" {
addressed: false;
}
plugin "eval" {addressed: true; }
plugin "deparse" {addressed: true; }
plugin "perldoc" {addressed: true; }
plugin "corelist" {addressed: true; }
plugin "default" {plugin: "factoids";}
}
channel "#pdl" { channel "#pdl" {
plugin "eval" {addressed: false; } plugin "eval" {addressed: false; }
plugin "deparse" {addressed: false; } plugin "deparse" {addressed: false; }
@ -54,6 +64,24 @@ server "*" {
plugin "eval" {addressed: false; } plugin "eval" {addressed: false; }
plugin "deparse" {addressed: false; } plugin "deparse" {addressed: false; }
} }
channel "#regex" {
plugin "factoids" {
addressed: false;
}
plugin "default" {plugin: "factoids"; }
}
channel "#regexen" {
plugin "factoids" {
addressed: false;
}
plugin "default" {plugin: "factoids"; }
}
channel "#reg3x" {
plugin "factoids" {
addressed: false;
}
plugin "default" {plugin: "factoids"; }
}
} }
server "discord.gg" { server "discord.gg" {
channel "*" { channel "*" {
@ -69,12 +97,34 @@ server "matrix.org" {
} }
} }
server "*.freenode.net" { server "*.freenode.net" {
channel {
plugin "*" { addressed: true }
plugin "join" { access: root; addressed: true }
plugin "allowpaste" { access: op; addressed: true }
plugin "pastebinadmin" { access: op; addressed: true }
plugin "part" { access: op }
plugin "reload_plugins" { access: root }
plugin "restart" { access: root }
plugin "conf_dump" { access: root; }
plugin "save_config" { access: root; }
plugin "conf" { access: root; }
plugin "karma_modify" { addressed: false; }
plugin "seen" {addressed: false; }
}
channel "##perl" {
plugin "factoids" {
addressed: false;
}
plugin "default" {plugin: "factoids";}
plugin "eval" {addressed: true; }
plugin "deparse" {addressed: true; }
plugin "perldoc" {addressed: true; }
plugin "corelist" {addressed: true; }
}
}
server "*.libera.chat" {
channel "#perlbot" { channel "#perlbot" {
plugin "factoids" { plugin "factoids" {
namespaced: true;
prefix_command: "!";
chanspace: "#perlbot";
serverspace: "freenode.net";
filtersep: true; filtersep: true;
addressed: false; addressed: false;
} }
@ -83,31 +133,19 @@ server "*.freenode.net" {
channel "#regex" { channel "#regex" {
plugin "factoids" { plugin "factoids" {
addressed: false; addressed: false;
namespaced: true;
chanspace: "#regex";
serverspace: "freenode.net";
prefix_command: "!";
filtersep: true;
} }
plugin "default" {plugin: "factoids"; } plugin "default" {plugin: "factoids"; }
} }
channel "#regexen" { channel "#regexen" {
plugin "factoids" { plugin "factoids" {
addressed: false; addressed: false;
namespaced: true;
chanspace: "#regex";
serverspace: "freenode.net";
prefix_command: "!";
filtersep: true;
} }
plugin "default" {plugin: "factoids"; } plugin "default" {plugin: "factoids"; }
} }
channel "#lpmc" { channel "#reg3x" {
plugin "eval" {addressed: false; } plugin "factoids" {
plugin "deparse" {addressed: false; } addressed: false;
} }
channel "#learnprogramming" { plugin "default" {plugin: "factoids"; }
plugin "eval" {addressed: false; }
plugin "deparse" {addressed: false; }
} }
} }

3
plugins/factoids.pm
View file

@ -224,7 +224,10 @@ sub handle ($self, $said, $pm) {
$said->{body} =~ s/^\s*(what|who|where|how|when|why)\s+($COPULA_RE)\s+(?<fact>.*?)\??\s*$/$+{fact}/i; $said->{body} =~ s/^\s*(what|who|where|how|when|why)\s+($COPULA_RE)\s+(?<fact>.*?)\??\s*$/$+{fact}/i;
my $prefix = $conf->{command_prefix}; my $prefix = $conf->{command_prefix};
warn "Checking for prefix: $prefix in ".Dumper($conf);
return unless $prefix; return unless $prefix;
$said->{nosuggest} = 1; $said->{nosuggest} = 1;

4
plugins/supereval.pm
View file

@ -62,7 +62,7 @@ sub make_pastebin_all {
} }
} }
my @versions = ('', 't', qw(1 2 3 4 5.0 5.1 5.2 5.3 5.4 5.5 tall all rall yall), map {$_, $_."t"} qw/5.6 5.8 5.8.4 5.8.8 5.10 5.10.0 5.12 5.14 5.16 5.18 5.20 5.22 5.24 5.26 5.28 5.32 5.32.1 5.32.0 5.30 5.30.3 5.30.2 5.30.1 5.30.0 5.28.2 5.28.1 5.28.0 5.26.3 5.26.2 5.26.1 5.26.0 5.24.4 5.24.3 5.24.2 5.24.1 5.24.0 5.22.4 5.22.3 5.22.2 5.22.1 5.22.0 5.20.3 5.20.2 5.20.1 5.20.0 5.18.4 5.18.3 5.18.2 5.18.1 5.18.0 5.16.3 5.16.2 5.16.1 5.16.0 5.14.4 5.14.3 5.14.2 5.14.1 5.14.0 5.12.5 5.12.4 5.12.3 5.12.2 5.12.1 5.12.0 5.10.1 5.10.0 5.8.9 5.8.8 5.8.7 5.8.6 5.8.5 5.8.4 5.8.3 5.8.2 5.8.1 5.8.0 5.6.2 5.6.1 5.6.0/); my @versions = ('', 't', qw(1 2 3 4 5.0 5.1 5.2 5.3 5.4 5.5 tall all rall yall), map {$_, $_."t"} qw/5.6 5.8 5.8.4 5.8.8 5.10 5.10.0 5.12 5.14 5.16 5.18 5.20 5.22 5.24 5.26 5.28 5.32 5.32.1 5.32.0 5.34.0 5.34 5.30 5.30.3 5.30.2 5.30.1 5.30.0 5.28.2 5.28.1 5.28.0 5.26.3 5.26.2 5.26.1 5.26.0 5.24.4 5.24.3 5.24.2 5.24.1 5.24.0 5.22.4 5.22.3 5.22.2 5.22.1 5.22.0 5.20.3 5.20.2 5.20.1 5.20.0 5.18.4 5.18.3 5.18.2 5.18.1 5.18.0 5.16.3 5.16.2 5.16.1 5.16.0 5.14.4 5.14.3 5.14.2 5.14.1 5.14.0 5.12.5 5.12.4 5.12.3 5.12.2 5.12.1 5.12.0 5.10.1 5.10.0 5.8.9 5.8.8 5.8.7 5.8.6 5.8.5 5.8.4 5.8.3 5.8.2 5.8.1 5.8.0 5.6.2 5.6.1 5.6.0/);
sub new { sub new {
my( $class ) = @_; my( $class ) = @_;
@ -173,7 +173,7 @@ sub command {
# we were addressed, but not nested, in #perl6. Switch to perl6, otherwise use perl5 # we were addressed, but not nested, in #perl6. Switch to perl6, otherwise use perl5
if ($said->{channel} eq "#pdl" && !$said->{nested} && $orig_type =~ /^[ws]*$/) { if ($said->{channel} eq "#pdl" && !$said->{nested} && $orig_type =~ /^[ws]*$/) {
$type = "perl5.32" $type = "perl5.34"
} }
if ($command eq 'r' && (!$said->{addressed} && !$said->{nested} && ($said->{channel} ne "#perl6" && $said->{channel} eq '#raku'))) { if ($command eq 'r' && (!$said->{addressed} && !$said->{nested} && ($said->{channel} ne "#perl6" && $said->{channel} eq '#raku'))) {

27
plugins/translate.pm
View file

@ -1,23 +1,30 @@
use strict; use strict;
use warnings; use warnings;
#use Bing::Translate; use LWP::UserAgent;
use JSON::MaybeXS qw/decode_json encode_json/;
use Data::Dumper;
my $ua = LWP::UserAgent->new();
return sub { return sub {
my( $said ) = @_; my( $said ) = @_;
open(my $fh, "<etc/bing_secret.txt") or die "Couldn't read $!";
my $cid = "Perlbot";
my $secret = <$fh>;
chomp $secret;
close($fh);
my $tro = Bing::Translate->new($cid, $secret);
if ($said->{body} =~ /^\s*(?<from>\S+)\s+(?<to>\S+)\s+(?<text>.*)$/) { if ($said->{body} =~ /^\s*(?<from>\S+)\s+(?<to>\S+)\s+(?<text>.*)$/) {
# print $secret; my $json = {
print $tro->translate($+{text}, $+{from}, $+{to}); source_language => $+{from},
target_language => $+{to},
text => $+{text}
};
my $resp = $ua->post("http://192.168.1.229:10000/translate_text", Content => encode_json($json));
my $cont = $resp->decoded_content();
my $output = decode_json($cont);
print Dumper $output;
} else { } else {
print "help text"; print "help text";
} }