diff options
author | Geert Hauwaerts <geert@hauwaerts.be> | 2015-06-12 19:40:15 +0200 |
---|---|---|
committer | Geert Hauwaerts <geert@hauwaerts.be> | 2015-06-12 19:40:15 +0200 |
commit | a663d2f674f1408fcd54a3d1f8823dffdcc8123f (patch) | |
tree | 95563c54760e05ebf971f46360241d5476613b18 /scripts/kills.pl | |
parent | 788f181ecb956addf17fe3c5bddc6a56a97b8681 (diff) | |
download | irssi-a663d2f674f1408fcd54a3d1f8823dffdcc8123f.zip |
Updated the bundled scripts to their latest version (#143)
Updated the bundled scripts to their latest version (#143)
Removed sb_search.pl which is not contributed into the script archive, I
will poke coekie about it.
Diffstat (limited to 'scripts/kills.pl')
-rw-r--r-- | scripts/kills.pl | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/scripts/kills.pl b/scripts/kills.pl index 7ed2d533..50d9383d 100644 --- a/scripts/kills.pl +++ b/scripts/kills.pl @@ -10,6 +10,7 @@ # There's a pretty good explanation of (ircnet) ircd's server kills in # http://www.irc.org/tech_docs/ircnet/kills.html +use strict; use Irssi; use vars qw($VERSION %IRSSI); @@ -47,13 +48,13 @@ sub msg_quit { my @printargs = (); if ($killmsg =~ /([^ ]*) != (.*)/) { # 1 != 2 - my $server1 = $1, $server2 = $2; + my $server1 = $1, my $server2 = $2; $server1 =~ s/([^\[]*)\[([^\]]*)\]/\1/; $msg .= "$2 != $server2"; } elsif ($killmsg =~ /([^ ]*) <- (.*)/) { # 1 <- 2 - my $server1 = $1, $server2 = $2; + my $server1 = $1, my $server2 = $2; if ($server1 =~ /^\(/) { # (addr1)server1 <- (add2)server2 @@ -84,9 +85,9 @@ sub msg_quit { $msg = $killmsg; } - @list = $server->nicks_get_same($nick); + my @list = $server->nicks_get_same($nick); while (@list) { - $channel = $list[0]; + my $channel = $list[0]; shift @list; # skip nick record shift @list; |