X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=lib%2FApp%2FFonBot%2FPlugin%2FBitlBee.pm;h=8b3dd32ea1857b5bd134927b8ddf8f0672fef099;hb=962dff7b76ec32cd68e0e96b8d3cc6d1f9759d00;hp=319266234eb58fe0ca24fc716c8f446820318dcb;hpb=7be318a6bf7a8f960c4192f52e7e5c8763d002ee;p=app-fonbot-daemon.git diff --git a/lib/App/FonBot/Plugin/BitlBee.pm b/lib/App/FonBot/Plugin/BitlBee.pm index 3192662..8b3dd32 100644 --- a/lib/App/FonBot/Plugin/BitlBee.pm +++ b/lib/App/FonBot/Plugin/BitlBee.pm @@ -16,28 +16,28 @@ use App::FonBot::Plugin::Config qw/$bitlbee_enabled $bitlbee_nick $bitlbee_serve ################################################## sub _start{ - return unless $bitlbee_enabled; - my $self=$_[OBJECT]; - - $self->{irc} = POE::Component::IRC->spawn( - Flood => 1, - Nick => $bitlbee_nick, - Username => $bitlbee_nick, - Ircname => 'FonBot', - Server => $bitlbee_server, - Port => $bitlbee_port, - ); - $self->{irc}->yield(register => qw/msg public/); - $self->{irc}->yield(connect => {}); - $self->{irc}->plugin_add(Connector => POE::Component::IRC::Plugin::Connector->new); - - $_[KERNEL]->alias_set('BITLBEE') + return unless $bitlbee_enabled; + my $self=$_[OBJECT]; + + $self->{irc} = POE::Component::IRC->spawn( + Flood => 1, + Nick => $bitlbee_nick, + Username => $bitlbee_nick, + Ircname => 'FonBot', + Server => $bitlbee_server, + Port => $bitlbee_port, + ); + $self->{irc}->yield(register => qw/msg public/); + $self->{irc}->yield(connect => {}); + $self->{irc}->plugin_add(Connector => POE::Component::IRC::Plugin::Connector->new); + + $_[KERNEL]->alias_set('BITLBEE') } sub irc_public{ - my ($self, $msg)=@_[OBJECT, ARG2]; - $self->{irc}->yield(privmsg => '&bitlbee', "identify $bitlbee_password") if $msg =~ /^Welcome to the BitlBee gateway!$/; - $self->{irc}->yield(privmsg => '&bitlbee', 'yes') if $msg =~ /New request:/; + my ($self, $msg)=@_[OBJECT, ARG2]; + $self->{irc}->yield(privmsg => '&bitlbee', "identify $bitlbee_password") if $msg =~ /^Welcome to the BitlBee gateway!$/; + $self->{irc}->yield(privmsg => '&bitlbee', 'yes') if $msg =~ /New request:/; } 1;