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');
|
