/usr/share/irssi/scripts/ls.pl is in irssi-scripts 20120326.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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');
|