1use Irssi;
2use strict;
3
4use vars qw($VERSION %IRSSI);
5
6$VERSION = "0.1";
7%IRSSI = (
8    authors     => 'BC-bd',
9    contact     => 'bd@bc-bd.org',
10    name        => 'ircops',
11    description => '/IRCOPS - Display IrcOps in current channel',
12    license     => 'GPL v2',
13    url         => 'https://bc-bd.org/svn/repos/irssi/trunk/',
14);
15
16sub cmd_ircops {
17	my ($data, $server, $channel) = @_;
18
19	my (@list,$text,$num);
20
21	if (!$channel || $channel->{type} ne 'CHANNEL') {
22		Irssi::print('No active channel in window');
23		return;
24	}
25
26	foreach my $nick ($channel->nicks()) {
27		if ($nick->{serverop}) {
28			push(@list,$nick->{nick});
29		}
30	}
31
32	$num = scalar @list;
33
34	if ($num == 0) {
35		$text = "no IrcOps on this channel";
36	} else {
37		$text = "IrcOps (".$num."): ".join(" ",@list);
38	}
39
40	$channel->print($text);
41}
42
43Irssi::command_bind('ircops', 'cmd_ircops');
44
45