projects
/
silc.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Merged Irssi SVN (upcoming irssi 0.8.11).
[silc.git]
/
apps
/
irssi
/
scripts
/
dns.pl
diff --git
a/apps/irssi/scripts/dns.pl
b/apps/irssi/scripts/dns.pl
index 01a12f24a65012765afc61e6287fd499e625875a..612fab0efd9ca053e67e82758a9378ab7f12062f 100644
(file)
--- a/
apps/irssi/scripts/dns.pl
+++ b/
apps/irssi/scripts/dns.pl
@@
-1,11
+1,20
@@
# /DNS <nick>|<host>|<ip> ...
# /DNS <nick>|<host>|<ip> ...
-# for irssi 0.7.99 by Timo Sirainen
-# version 2.0
+use Irssi;
use strict;
use Socket;
use POSIX;
use strict;
use Socket;
use POSIX;
+use vars qw($VERSION %IRSSI);
+$VERSION = "2.1";
+%IRSSI = (
+ authors => 'Timo Sirainen',
+ name => 'dns',
+ description => '/DNS <nick>|<host>|<ip> ...',
+ license => 'Public Domain',
+ changed => 'Sun Mar 10 23:23 EET 2002'
+);
+
my (%resolve_hosts, %resolve_nicks, %resolve_print); # resolve queues
my $userhosts; # number of USERHOSTs currently waiting for reply
my $lookup_waiting; # 1 if we're waiting a reply for host lookup
my (%resolve_hosts, %resolve_nicks, %resolve_print); # resolve queues
my $userhosts; # number of USERHOSTs currently waiting for reply
my $lookup_waiting; # 1 if we're waiting a reply for host lookup
@@
-25,6
+34,7
@@
sub cmd_dns {
my $ask_nicks = "";
my $print_error = 0;
foreach my $nick (split(" ", $nicks)) {
my $ask_nicks = "";
my $print_error = 0;
foreach my $nick (split(" ", $nicks)) {
+ $nick = lc($nick);
if ($nick =~ /[\.:]/) {
# it's an IP or hostname
$resolve_hosts{$nick} = $tag;
if ($nick =~ /[\.:]/) {
# it's an IP or hostname
$resolve_hosts{$nick} = $tag;
@@
-66,9
+76,9
@@
sub sig_userhost {
# move resolve_nicks -> resolve_hosts
foreach my $host (@hosts) {
if ($host =~ /^([^=\*]*)\*?=.(.*)@(.*)/) {
# move resolve_nicks -> resolve_hosts
foreach my $host (@hosts) {
if ($host =~ /^([^=\*]*)\*?=.(.*)@(.*)/) {
- my $nick =
$1
;
+ my $nick =
lc($1)
;
my $user = $2;
my $user = $2;
- $host =
$3
;
+ $host =
lc($3)
;
$resolve_hosts{$host} = $resolve_nicks{$nick};
delete $resolve_nicks{$nick};
$resolve_hosts{$host} = $resolve_nicks{$nick};
delete $resolve_nicks{$nick};