[Rt-commit] [svn] r1591 - rtir/branches/1.1-TESTING/html/RTIR/Tools

[leira at pallas.eruditorum.org]

Author: leira
Date: Wed Sep 29 22:44:16 2004
New Revision: 1591

Modified:
   rtir/branches/1.1-TESTING/html/RTIR/Tools/Lookup.html
Log:
Make sure $server variable is set correctly.


Modified: rtir/branches/1.1-TESTING/html/RTIR/Tools/Lookup.html
==============================================================================
--- rtir/branches/1.1-TESTING/html/RTIR/Tools/Lookup.html	(original)
+++ rtir/branches/1.1-TESTING/html/RTIR/Tools/Lookup.html	Wed Sep 29 22:44:16 2004
@@ -177,10 +177,16 @@
 my $TicketType;
 my $TicketObj;
 #  {{{ Set up the whois query
-foreach my $s (sort keys %$servers) {
-  # just pick the first one
-  $server = $servers->{$s} unless ($server);
-  last;
+if (!$server) {
+  foreach my $s (sort keys %$servers) {
+    # just pick the first one
+    if (ref($servers->{$s}) eq 'HASH') {
+        $server = $servers->{$s}->{'Host'} unless ($server);
+    } else {
+        $server = $servers->{$s} unless ($server);
+    }
+    last;
+  }
 }
 
 $beauty = ( exists($beauties->{ ({ reverse %$servers }->{$server}) })