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/dns.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/dns.pl')
| -rw-r--r-- | scripts/dns.pl | 22 |
1 files changed, 14 insertions, 8 deletions
diff --git a/scripts/dns.pl b/scripts/dns.pl index 612fab0e..989cdc3e 100644 --- a/scripts/dns.pl +++ b/scripts/dns.pl @@ -1,18 +1,24 @@ # /DNS <nick>|<host>|<ip> ... +# version 2.1.1 +# +# updated the script to fix a bug where the script would let +# a trailing whitespace go through (ex: tab completion) +# - inch <inch@stmpd.net> -use Irssi; use strict; use Socket; use POSIX; use vars qw($VERSION %IRSSI); -$VERSION = "2.1"; +$VERSION = "2.1.1"; %IRSSI = ( - authors => 'Timo Sirainen', - name => 'dns', - description => '/DNS <nick>|<host>|<ip> ...', - license => 'Public Domain', - changed => 'Sun Mar 10 23:23 EET 2002' + authors => "Timo \'cras\' Sirainen", + contact => "tss\@iki.fi", + name => "dns", + description => "/DNS <nick>|<host>|<ip> ...", + license => "Public Domain", + url => "http://irssi.org/", + changed => "2002-03-04T22:47+0100" ); my (%resolve_hosts, %resolve_nicks, %resolve_print); # resolve queues @@ -28,7 +34,7 @@ my $pipe_tag; sub cmd_dns { my ($nicks, $server) = @_; return if !$nicks; - + $nicks =~ s/\s+$//; # get list of nicks/hosts we want to know my $tag = !$server ? undef : $server->{tag}; my $ask_nicks = ""; |