1use vars qw($VERSION %IRSSI); 2 3use Irssi 20020120; 4$VERSION = "0.02"; 5%IRSSI = ( 6 authors => "c0ffee", 7 contact => "c0ffee\@penguin-breeder.org", 8 name => "List nicks in channel", 9 description => "Use /ls <regex> to show all nicks (including ident\@host) matching regex in the current channel", 10 license => "Public Domain", 11 url => "http://www.penguin-breeder.org/irssi/", 12 changed => "Fri Sep 06 15:36 CEST 2002", 13); 14 15 16sub cmd_ls { 17 my ($data, $server, $channel) = @_; 18 my @nicks; 19 my $n; 20 my $nick; 21 22 if ($channel->{type} ne "CHANNEL") { 23 24 Irssi::print("Your are not on a channel"); 25 return; 26 27 } 28 29 @nicks = $channel->nicks(); 30 31 foreach $nick (@nicks) { 32 33 $n = $nick->{nick} . "!" . $nick->{host}; 34 35 $channel->print("$n") if $n =~ /$data/i; 36 37 } 38} 39 40Irssi::command_bind('ls','cmd_ls'); 41