Xchat + XMMS = Now Playing

[Arceny]

Подскажите скриптик к xchat'у, чтобы он мог цеплять XMMS и выводить в канал то что сейчас играется..!

[BaZilio]

Код: Выделить всё

#!/usr/bin/perl

IRC::register ("XMMS Songtitle", "0.0.7", "XMMS-Plugin", "XChat-xmms ОКЮЦХМ");
IRC::add_command_handler("xmms", "xmms_handler");
sub xmms_handler
{
$title=`/usr/bin/xmmsctrl print %T`;
$ptime=`/usr/bin/xmmsctrl print %m`;
$ttime=`/usr/bin/xmmsctrl print %M`;
#$vol=`/usr/bin/xmmsctrl print %v`;

        IRC::command("/me [xmms] * $title * ($ptime/$ttime)");
        return 1;
}