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

whee

Browse source
This commit is contained in:
Ryan Voots 2022-06-22 19:37:55 -04:00
parent 7236bfc89b
commit f92261fc40
3 changed files with 15 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
etc/bb3.conf
View file

@ -103,3 +103,16 @@ http_plugin_port 1092
ignore lambdabot ignore lambdabot
ignore lambdabot2 ignore lambdabot2
</bot> </bot>
<bot perlbot-rizon>
channel \#perl
server 192.168.32.1
username perlbot-rizon
password sindarin
port 65432
root_mask perlbot/patrician/simcop2387
ignore lambdabot
ignore lambdabot2
</bot>

3
plugins/core.pm
View file

@ -29,13 +29,12 @@ sub {
if ( Module::CoreList->can('deprecated_in') ) { if ( Module::CoreList->can('deprecated_in') ) {
my $dep = Module::CoreList->deprecated_in($module); my $dep = Module::CoreList->deprecated_in($module);
print " and deprecated in $dep" if $dep; print " and deprecated in $dep" if $dep;
return 'handled';
} }
if ( Module::CoreList->can('removed_from') ) { if ( Module::CoreList->can('removed_from') ) {
my $rem = Module::CoreList->removed_from($module); my $rem = Module::CoreList->removed_from($module);
print " and removed from $rem" if $rem; print " and removed from $rem" if $rem;
return 'handled';
} }
return 'handled';
} }
else { else {
my @modules = Module::CoreList->find_modules(qr/$module/); my @modules = Module::CoreList->find_modules(qr/$module/);

2
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.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/); 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"} sort 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.1 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 5.34 5.36 5.36.0/);
sub new { sub new {
my( $class ) = @_; my( $class ) = @_;