Saivert

#!/usr/bin/perl
#
# FooBar2000 Now playing script
# Requires foo_write_http component installed in FooBar2000
#

use strict;
use warnings;
use lib '/usr/local/lib/perl5/site_perl/5.6.2/';
use Irssi;
use Irssi::Irc;
use LWP::UserAgent;
#use Data::Dumper;

sub fb2k_cursong{
        my ($data, $server, $witem) = @_;


if ($witem && ($witem->{type} eq "CHANNEL" ||
                        $witem->{type} eq "QUERY")) {

	my $ua = new LWP::UserAgent;

	$ua->agent("Mozilla/5.0 (Windows; U; Windows NT 5.2; en-US; rv:1.8.0.5) Saivert parser/1.0");

	my $req = new HTTP::Request GET => 'http://home.saivert.com:4800/';
	my $res = $ua->request($req);
 
	if ($res->is_success) {
		my $content = $res->content;
		#Irssi::server_find_tag('after-all')->command("/say $content");
                $witem->command("SAY $content");
	} else {
		Irssi::print("fb2k.pl: Could not get songinfo");
	}
}

}

Irssi::command_bind('np', 'fb2k_cursong');