[app-fonbot-daemon.git] / lib / App / FonBot / Plugin / BitlBee.pm

package App::FonBot::Plugin::BitlBee;

our $VERSION = '0.000_5';

use v5.14;
use strict;
use warnings;

use parent qw/App::FonBot::Plugin::IRC/;

use POE;
use POE::Component::IRC::Plugin::Connector;

use App::FonBot::Plugin::Config qw/$bitlbee_enabled $bitlbee_nick $bitlbee_server $bitlbee_port $bitlbee_password/;

##################################################

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')
}

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:/;
}

1;
__END__

=encoding utf-8

=head1 NAME

App::FonBot::Plugin::BitlBee - FonBot plugin that provides the BitlBee user interface

=head1 SYNOPSIS

    use App::FonBot::Plugin::BitlBee;
    App::FonBot::Plugin::BitlBee->init;

    END { App::FonBot::Plugin::BitlBee->fini }

=head1 DESCRIPTION

This is one of the two implementations of C<App::FonBot::Plugin::IRC>. It identifies with a bitlbee server, accepts all buddy requests and processes received commands.

=head1 CONFIGURATION VARIABLES

These are the L<App::FonBot::Plugin::Config> configuration variables used in this module

=over

=item C<$bitlbee_enabled>

If false, the BitlBee plugin is disabled.

=item C<$bitlbee_nick>

BitlBee nickname

=item C<$bilbee_server>

BitlBee server hostname

=item C<$bitlbee_port>

BitlBee server port

=item C<$bitlbee_password>

BitlBee identify password

=back

=head1 AUTHOR

Marius Gavrilescu C<< <marius@ieval.ro> >>

=head1 COPYRIGHT AND LICENSE

Copyright 2013 Marius Gavrilescu

This file is part of fonbotd.

fonbotd is free software: you can redistribute it and/or modify
it under the terms of the GNU Affero General Public License as published by
the Free Software Foundation, either version 3 of the License, or
(at your option) any later version.

fonbotd is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU Affero General Public License for more details.

You should have received a copy of the GNU Affero General Public License
along with fonbotd.  If not, see <http://www.gnu.org/licenses/>


=cut
Commit	Line	Data
	1	package App::FonBot::Plugin::BitlBee;
	2
	3	our $VERSION = '0.000_5';
	4
	5	use v5.14;
	6	use strict;
	7	use warnings;
	8
	9	use parent qw/App::FonBot::Plugin::IRC/;
	10
	11	use POE;
	12	use POE::Component::IRC::Plugin::Connector;
	13
	14	use App::FonBot::Plugin::Config qw/$bitlbee_enabled $bitlbee_nick $bitlbee_server $bitlbee_port $bitlbee_password/;
	15
	16	##################################################
	17
	18	sub _start{
	19	return unless $bitlbee_enabled;
	20	my $self=$_[OBJECT];
	21
	22	$self->{irc} = POE::Component::IRC->spawn(
	23	Flood => 1,
	24	Nick => $bitlbee_nick,
	25	Username => $bitlbee_nick,
	26	Ircname => 'FonBot',
	27	Server => $bitlbee_server,
	28	Port => $bitlbee_port,
	29	);
	30	$self->{irc}->yield(register => qw/msg public/);
	31	$self->{irc}->yield(connect => {});
	32	$self->{irc}->plugin_add(Connector => POE::Component::IRC::Plugin::Connector->new);
	33
	34	$_[KERNEL]->alias_set('BITLBEE')
	35	}
	36
	37	sub irc_public{
	38	my ($self, $msg)=@_[OBJECT, ARG2];
	39	$self->{irc}->yield(privmsg => '&bitlbee', "identify $bitlbee_password") if $msg =~ /^Welcome to the BitlBee gateway!$/;
	40	$self->{irc}->yield(privmsg => '&bitlbee', 'yes') if $msg =~ /New request:/;
	41	}
	42
	43	1;
	44	__END__
	45
	46	=encoding utf-8
	47
	48	=head1 NAME
	49
	50	App::FonBot::Plugin::BitlBee - FonBot plugin that provides the BitlBee user interface
	51
	52	=head1 SYNOPSIS
	53
	54	use App::FonBot::Plugin::BitlBee;
	55	App::FonBot::Plugin::BitlBee->init;
	56
	57	END { App::FonBot::Plugin::BitlBee->fini }
	58
	59	=head1 DESCRIPTION
	60
	61	This is one of the two implementations of C<App::FonBot::Plugin::IRC>. It identifies with a bitlbee server, accepts all buddy requests and processes received commands.
	62
	63	=head1 CONFIGURATION VARIABLES
	64
	65	These are the L<App::FonBot::Plugin::Config> configuration variables used in this module
	66
	67	=over
	68
	69	=item C<$bitlbee_enabled>
	70
	71	If false, the BitlBee plugin is disabled.
	72
	73	=item C<$bitlbee_nick>
	74
	75	BitlBee nickname
	76
	77	=item C<$bilbee_server>
	78
	79	BitlBee server hostname
	80
	81	=item C<$bitlbee_port>
	82
	83	BitlBee server port
	84
	85	=item C<$bitlbee_password>
	86
	87	BitlBee identify password
	88
	89	=back
	90
	91	=head1 AUTHOR
	92
	93	Marius Gavrilescu C<< <marius@ieval.ro> >>
	94
	95	=head1 COPYRIGHT AND LICENSE
	96
	97	Copyright 2013 Marius Gavrilescu
	98
	99	This file is part of fonbotd.
	100
	101	fonbotd is free software: you can redistribute it and/or modify
	102	it under the terms of the GNU Affero General Public License as published by
	103	the Free Software Foundation, either version 3 of the License, or
	104	(at your option) any later version.
	105
	106	fonbotd is distributed in the hope that it will be useful,
	107	but WITHOUT ANY WARRANTY; without even the implied warranty of
	108	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	109	GNU Affero General Public License for more details.
	110
	111	You should have received a copy of the GNU Affero General Public License
	112	along with fonbotd. If not, see <http://www.gnu.org/licenses/>
	113
	114
	115	=cut