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

move things back to isolated network now that i understand what i broke on my router and have fixed it

Browse source
This commit is contained in:
Ryan Voots 2021-04-25 18:19:10 -04:00
parent 6610a67388
commit c54b2f0264
2 changed files with 9 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lib/Bot/BB3/PluginManager.pm
View file

@ -7,6 +7,7 @@ use Data::Dumper;
use Text::Glob qw/match_glob/;
use Memoize;
use Regexp::Assemble;
use Scalar::Util qw/blessed/;
use strict;
sub new {
@ -453,6 +454,13 @@ sub _execute_plugin_chain {
for my $command ( @$commands ) {
local $@;
unless (blessed($command)) {
use Data::Dumper;
warn "Unblessed command! ".Dumper($command);
next;
};
my( $return, $output ) = eval { $command->command( $said, $self ) };
use Data::Dumper;

2
lib/Bot/BB3/Roles/Evalpastebin.pm
View file

@ -50,7 +50,7 @@ sub _start {
# TODO setup TCP server.
$self->{server} = POE::Component::Server::TCP->new(
Port => 1784,
Address =>'192.168.32.1',
Address =>'192.168.196.2',
ClientFilter => "POE::Filter::Line",
ClientInput => \&receive_paste,
);