brmlab/brmdoor
4
0
Fork 0
mirror of https://github.com/brmlab/brmdoor.git synced 2025-06-08 11:44:01 +02:00
Code Issues Projects Releases Packages Wiki Activity

brmd: Try to deal with IRC disconnects gracefully

Browse source
This commit is contained in:
Petr Baudis 2011-03-11 03:01:58 +01:00
parent 364c556f08
commit ac70e3ef7c
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
brmd.pl
View file

@ -2,7 +2,7 @@
use strict; use strict;
use warnings; use warnings;
use POE qw(Component::IRC Component::Client::TCP Component::Server::HTTP); use POE qw(Component::IRC Component::IRC::Plugin::Connector Component::Client::TCP Component::Server::HTTP);
use HTTP::Status qw/RC_OK/; use HTTP::Status qw/RC_OK/;
our $channel = "#brmlab"; our $channel = "#brmlab";
@ -51,6 +51,8 @@ sub _start {
my $irc = $heap->{irc}; my $irc = $heap->{irc};
$irc->yield( register => 'all' ); $irc->yield( register => 'all' );
$heap->{connector} = POE::Component::IRC::Plugin::Connector->new();
$irc->plugin_add( 'Connector' => $heap->{connector} );
$irc->yield( connect => { } ); $irc->yield( connect => { } );
} }