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