X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=lib%2FApp%2FFonBot%2FPlugin%2FBitlBee.pm;h=7e9aa8da0e2f9ca08274869489a55f626daa3357;hb=4e1612f394dc932cb4ab60eb95f48fd15c27ba00;hp=319266234eb58fe0ca24fc716c8f446820318dcb;hpb=8dc70d07c47947a1b1a9de7d377aee1003aca0ae;p=app-fonbot-daemon.git diff --git a/lib/App/FonBot/Plugin/BitlBee.pm b/lib/App/FonBot/Plugin/BitlBee.pm index 3192662..7e9aa8d 100644 --- a/lib/App/FonBot/Plugin/BitlBee.pm +++ b/lib/App/FonBot/Plugin/BitlBee.pm @@ -1,6 +1,6 @@ package App::FonBot::Plugin::BitlBee; -our $VERSION = '0.000_3'; +our $VERSION = '0.000_5'; use v5.14; use strict; @@ -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;