diff options
author | David Runge <david.runge@frqrec.com> | 2014-10-31 18:55:19 +0100 |
---|---|---|
committer | David Runge <david.runge@frqrec.com> | 2014-10-31 18:55:19 +0100 |
commit | c47159802b57da25f6258e784f2b425b52e35e72 (patch) | |
tree | 9c36e48a2c9513beeff267208f273123f1e91bda /.irssi/scripts/ls.pl | |
parent | 3a61d7ddb0576949228da7a4d4074c8e0710c442 (diff) | |
download | dotfiles-c47159802b57da25f6258e784f2b425b52e35e72.tar.gz dotfiles-c47159802b57da25f6258e784f2b425b52e35e72.tar.bz2 dotfiles-c47159802b57da25f6258e784f2b425b52e35e72.tar.xz dotfiles-c47159802b57da25f6258e784f2b425b52e35e72.zip |
irssi: adding used scripts and their autorun symlinks (scriptassist is a system symlink!)
Diffstat (limited to '.irssi/scripts/ls.pl')
-rw-r--r-- | .irssi/scripts/ls.pl | 40 |
1 files changed, 40 insertions, 0 deletions
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'); |