From c47159802b57da25f6258e784f2b425b52e35e72 Mon Sep 17 00:00:00 2001
From: David Runge <david.runge@frqrec.com>
Date: Fri, 31 Oct 2014 18:55:19 +0100
Subject: irssi: adding used scripts and their autorun symlinks (scriptassist
 is a system symlink!)

---
 .irssi/scripts/ls.pl | 40 ++++++++++++++++++++++++++++++++++++++++
 1 file changed, 40 insertions(+)
 create mode 100644 .irssi/scripts/ls.pl

(limited to '.irssi/scripts/ls.pl')

diff --git a/.irssi/scripts/ls.pl b/.irssi/scripts/ls.pl
new file mode 100644
index 0000000..6481081
--- /dev/null
+++ b/.irssi/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');
-- 
cgit v1.2.3-54-g00ecf