summaryrefslogtreecommitdiffstats
path: root/scripts/ls.pl
diff options
context:
space:
mode:
Diffstat (limited to 'scripts/ls.pl')
-rw-r--r--scripts/ls.pl40
1 files changed, 40 insertions, 0 deletions
diff --git a/scripts/ls.pl b/scripts/ls.pl
new file mode 100644
index 0000000..6481081
--- /dev/null
+++ b/scripts/ls.pl
@@ -0,0 +1,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');