summaryrefslogtreecommitdiffstats
path: root/scripts/ls.pl
blob: 64810818818ec0f1264db102e21893cc5842969b (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
use vars qw($VERSION %IRSSI);

use Irssi 20020120;
$VERSION = "0.02";
%IRSSI = (
    authors	=> "c0ffee",
    contact	=> "c0ffee\@penguin-breeder.org",
    name	=> "List nicks in channel",
    description	=> "Use /ls <regex> to show all nicks (including ident\@host) matching regex in the current channel",
    license	=> "Public Domain",
    url		=> "http://www.penguin-breeder.org/irssi/",
    changed	=> "Fri Sep 06 15:36 CEST 2002",
);


sub cmd_ls {
	my ($data, $server, $channel) = @_;
	my @nicks;
	my $n;
	my $nick;

	if ($channel->{type} ne "CHANNEL") {

		Irssi::print("Your are not on a channel");
		return;

	}

	@nicks = $channel->nicks();

	foreach $nick (@nicks) {

		$n = $nick->{nick} . "!" . $nick->{host};

		$channel->print("$n") if $n =~ /$data/i;
		
	}
}

Irssi::command_bind('ls','cmd_ls');