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