#!/usr/bin/perl -w
use strict;
use LWP::UserAgent;

my $script = 'xchat-nabaz-messages.pl';
my $ver    = '0.0.1';

#Nabaztag config
my $key    = '00000000';
my $token  = '00000000';
my $serial = '00000000';

#Nickname to match
my $bot       = 'dummy';

IRC::register ($script, $ver, "", "");
IRC::add_message_handler('PRIVMSG', 'parse_line');
IRC::print("*** $script v$ver loaded");

sub parse_line {
#received a PRIVMSG
#Line::ebi!~ebi@194.50.176.239 PRIVMSG #bitflux :rabbit

my $line = shift;
# replace the funky colour stuff:
$line =~ s/\cc[0-9]{2}//g;

if ($line =~ /:(.+)!(.+)@(.+)\s([A-Z]+)\s(.+)\s?:(.+)/) {
    my $nick    = '';
    my $user    = '';
    my $host    = '';
    my $msgtype = '';
    my $to      = '';
    my $msgtxt  = '';
	($nick, $user, $host, $msgtype, $to, $msgtxt) = ($1, $2, $3, $4, $5, $6);
        if ($nick eq $bot) {
            my $url = "http://my.nabaztag.com/vl/FR/api.jsp?key=$key&sn=$serial&token=$token&tts=$msgtxt";
            my $ua       = LWP::UserAgent->new;
            my $request  = HTTP::Request->new(GET => $url);
            my $response = $ua->request($request);
        }
    }
	return 0;
}