/var/www/www.irssi.org-old/scripts/html/ircops.pl

• package main
  • cmd_ircops
• EOF

   1 use Irssi;
   2 use strict;
   3 
   4 use 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 
  16 sub 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 
  43 Irssi::command_bind('ircops', 'cmd_ircops');
  44