#!/usr/bin/perl
use strict;
use Irssi;
use vars qw($VERSION);

$VERSION = "0.1";
%IRSSI = (
   authors => 'Simon Arlott',
   name=> 'MPC',
   description => 'MPC now playing script',
   license => 'GPL-2',
);

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

	if (!$witem || !($witem->{type} eq "CHANNEL" || $witem->{type} eq "QUERY")) {
		Irssi::print("Not on active channel/query");
		return;
	}

	my $host = Irssi::settings_get_str('mpc_host');
	my $port = Irssi::settings_get_int('mpc_port');
	Irssi::Server::command(Irssi::active_server(),
		"DESCRIBE -".$witem->{server}->{tag}." ".$witem->{name}." np: "
		.qx(MPD_HOST=$host MPD_PORT=$port mpc 2>&1|head -n 2|tr '\n' ' '));
}

Irssi::settings_add_str('misc', 'mpc_host', "localhost");
Irssi::settings_add_int('misc', 'mpc_port', 6600);
Irssi::command_bind('np', 'cmd_mpc');