use strict;
use vars qw($VERSION %IRSSI);

use Irssi;

sub moc {

    my ($param, $server, $witem) = @_;
    if ($server || $server->{connected}) {
        my $mocpinfo = `conkyRhythmbox -d AR`;
        $mocpinfo = $mocpinfo + "-" + `conkyRhythmbox -d TI`;
        if ($witem && ($witem->{type} eq "CHANNEL" || $witem->{type} eq "QUERY")){
            $witem->command('ME np: ' . $mocpinfo);}
    }

}

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