package LinuxRulz::Bot;
use lib '.';
use Moses;
use namespace::autoclean;

use Carp;
use Config::JFDI;
use Data::Dumper;

use lib '/home/linuxrulz/libs/perl/';
use lib '/home/linuxrulz/catalyst/LinuxRulz/lib/';

use LinuxRulz::Schema;
use LinuxRulz::LDAP;

use POE::Component::IRC::Qnet::State;
use POE::Component::IRC::Plugin qw( :ALL );

server   'irc.quakenet.org';
port     '6667';
password '';
username 'linuxrulz';
nickname 'Linuxrulz';

channels   ("#linuxrulz.bots");

poco_irc_args ( Debug => 1, plugin_debug=>1 );

plugins (
#	'AuthPlugin'  => 'LinuxRulz::Bot::Plugin::AuthPlugin',
#	'TestPlugin1' => 'LinuxRulz::Bot::Plugin::TestPlugin1',
#	'DCCPlugin'   => 'LinuxRulz::Bot::Plugin::DCCPlugin',
#	'TwitterBridge'   => 'LinuxRulz::Bot::Plugin::TwitterBridge',
	'HTTPDPlugin' => 'LinuxRulz::Bot::Plugin::HTTPDPlugin',
);

owner 'stephan48!stephanj@stephan48.users.quakenet.org';

has database => (
    isa      => 'Object',
    is       => 'rw',
    required => 0,
);

has ldap => (
    isa      => 'Object',
    is       => 'rw',
    required => 0,
);

has config => (
    isa      => 'Object',
    is       => 'rw',
    required => 0,
);

sub _build__irc {
	POE::Component::IRC::Qnet::State->spawn(
        Nick     => $_[0]->get_nickname,
        Server   => $_[0]->get_server,
        Port     => $_[0]->get_port,
        Ircname  => $_[0]->get_nickname,
        Options  => $_[0]->get_poco_irc_options,
        Flood    => $_[0]->can_flood,
        Username => $_[0]->get_username,
        Password => $_[0]->get_password,
        %{ $_[0]->get_poco_irc_args },
    );
}

after 'START' => sub {
    my ($self, $heap) = @_[ OBJECT, HEAP ];
	
	my $config = Config::JFDI->new(name => "linuxrulz", path => "/home/linuxrulz/catalyst/LinuxRulz/");
	
	my $database    = LinuxRulz::Schema->connect($config->get->{'Model::DataBase'}->{'connect_info'});

	if(!$database)
	{
		croak "Connection to DataBase could not be established!";
	}
	
	my $ldap_config = $config->get->{'Model::LDAP'};
	my $ldap        = $ldap_config->{connection_class}->new(%{$ldap_config});
	my $mesg        = $ldap->bind(%{$ldap_config});

	croak 'LDAP error: ' . $mesg->error if $mesg->is_error;

	$self->ldap( $ldap );
	$self->database( $database );
	$self->config( $config );
};

event irc_001 => sub {
	my ( $self, $heap ) = @_[ OBJECT, HEAP ];
};

event irc_public => sub {
	my ( $self, $nickstr, $channel, $msg ) = @_[ OBJECT, ARG0, ARG1, ARG2 ];
	my ($nick) = split /!/, $nickstr;
	
	if($msg =~ /^!(.*)/)
	{
		$self->privmsg("#linuxrulz.bots" => "Command Unhandled!");
		#return PCI_EAT_NONE;
	}
};

event irc_msg => sub {
    my ( $self, $nickstr, $msg ) = @_[ OBJECT, ARG0, ARG1 ];
    my ($nick) = split /!/, $nickstr;

};

1;