html/ls.pl

• package main
  • cmd_ls
• EOF

   1 use vars qw($VERSION %IRSSI);
   2 
   3 use 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 
  16 sub 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 
  40 Irssi::command_bind('ls','cmd_ls');