[Rt-commit] r9398 - rtir/branches/2.3-EXPERIMENTAL/html/RTIR/Tools

[ruz at bestpractical.com]

Author: ruz
Date: Mon Oct 22 15:23:44 2007
New Revision: 9398

Modified:
   rtir/branches/2.3-EXPERIMENTAL/html/RTIR/Tools/Lookup.html

Log:
* turn on debug mode in Net::Whois::RIPE so we'll get errors as warnings in the log

Modified: rtir/branches/2.3-EXPERIMENTAL/html/RTIR/Tools/Lookup.html
==============================================================================
--- rtir/branches/2.3-EXPERIMENTAL/html/RTIR/Tools/Lookup.html	(original)
+++ rtir/branches/2.3-EXPERIMENTAL/html/RTIR/Tools/Lookup.html	Mon Oct 22 15:23:44 2007
@@ -200,7 +200,7 @@
 use Net::Whois::RIPE;
 my ($whois, $port) = split(/\s*:\s*/, $server, 2);
 $port = 43 unless ($port || '') =~ /^\d+$/;
-my $query = Net::Whois::RIPE->new( $whois, Port => $port );
+my $query = Net::Whois::RIPE->new( $whois, Port => $port, Debug => 1 );
 my ($iterator, $error);
 if ( $query ) {
     $iterator = $query->query_iterator($q);