Permalink
Switch branches/tags
Nothing to show
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
45 lines (33 sloc) 852 Bytes
use Irssi;
use strict;
use vars qw($VERSION %IRSSI);
$VERSION = "0.1";
%IRSSI = (
authors => 'BC-bd',
contact => 'bd@bc-bd.org',
name => 'ircops',
description => '/IRCOPS - Display IrcOps in current channel',
license => 'GPL v2',
url => 'https://bc-bd.org/svn/repos/irssi/trunk/',
);
sub cmd_ircops {
my ($data, $server, $channel) = @_;
my (@list,$text,$num);
if (!$channel || $channel->{type} ne 'CHANNEL') {
Irssi::print('No active channel in window');
return;
}
foreach my $nick ($channel->nicks()) {
if ($nick->{serverop}) {
push(@list,$nick->{nick});
}
}
$num = scalar @list;
if ($num == 0) {
$text = "no IrcOps on this channel";
} else {
$text = "IrcOps (".$num."): ".join(" ",@list);
}
$channel->print($text);
}
Irssi::command_bind('ircops', 'cmd_ircops');