X-Git-Url: http://git.silcnet.org/gitweb/?a=blobdiff_plain;f=apps%2Firssi%2Fscripts%2Fdns.pl;h=612fab0efd9ca053e67e82758a9378ab7f12062f;hb=63ca577177f9f5db8e553372a9793b0c85f10715;hp=01a12f24a65012765afc61e6287fd499e625875a;hpb=60c165f23f8d5553bd8b4fd43366fbf5f24c2832;p=silc.git

diff --git a/apps/irssi/scripts/dns.pl b/apps/irssi/scripts/dns.pl
index 01a12f24..612fab0e 100644
--- a/apps/irssi/scripts/dns.pl
+++ b/apps/irssi/scripts/dns.pl
@@ -1,11 +1,20 @@
 # /DNS <nick>|<host>|<ip> ...
-# for irssi 0.7.99 by Timo Sirainen
-# version 2.0
 
+use Irssi;
 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
@@ -25,6 +34,7 @@ sub cmd_dns {
   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;
@@ -66,9 +76,9 @@ sub sig_userhost {
   # move resolve_nicks -> resolve_hosts
   foreach my $host (@hosts) {
     if ($host =~ /^([^=\*]*)\*?=.(.*)@(.*)/) {
-      my $nick = $1;
+      my $nick = lc($1);
       my $user = $2;
-      $host = $3;
+      $host = lc($3);
 
       $resolve_hosts{$host} = $resolve_nicks{$nick};
       delete $resolve_nicks{$nick};