use strict;
use Irssi;
use Irssi::Irc;
use Xmms();
use Xmms::Remote();
use vars qw($VERSION %IRSSI);

sub xmms
{
    my ($data, $server, $extra) = @_;
    my $xmms = Xmms::Remote->new;
    my $fname = $xmms->get_playlist_title($xmms->get_playlist_pos);
    if($xmms->is_running())
    {
        $extra->command("SAY Ouvindo: $fname [Irssi+XMMS]");
    }

    else
    {
        $extra->command("SAY Ouvindo: Nada - Nada");
    }
}

Irssi::command_bind("xmms", "xmms", "XMMS");