From 0b1270abd4b8009c26a2a3b5811598520ab5987c Mon Sep 17 00:00:00 2001 From: David Runge Date: Sun, 1 Feb 2015 21:49:19 +0100 Subject: .irssi: Removing irssi settings from dotfiles repository. --- .irssi/scripts/ls.pl | 40 ---------------------------------------- 1 file changed, 40 deletions(-) delete mode 100644 .irssi/scripts/ls.pl (limited to '.irssi/scripts/ls.pl') diff --git a/.irssi/scripts/ls.pl b/.irssi/scripts/ls.pl deleted file mode 100644 index 6481081..0000000 --- a/.irssi/scripts/ls.pl +++ /dev/null @@ -1,40 +0,0 @@ -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 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