[Rt-commit] r9401 - in rtir/branches/2.3-EXPERIMENTAL: .

[sartak at bestpractical.com]

Author: sartak
Date: Mon Oct 22 16:29:19 2007
New Revision: 9401

Modified:
   rtir/branches/2.3-EXPERIMENTAL/   (props changed)
   rtir/branches/2.3-EXPERIMENTAL/html/RTIR/Tools/Elements/GetEmailFromIP

Log:
 r44007 at onn:  sartak | 2007-10-22 16:28:57 -0400
 Net::Whois::RIPE uses _ instead of - in its method names


Modified: rtir/branches/2.3-EXPERIMENTAL/html/RTIR/Tools/Elements/GetEmailFromIP
==============================================================================
--- rtir/branches/2.3-EXPERIMENTAL/html/RTIR/Tools/Elements/GetEmailFromIP	(original)
+++ rtir/branches/2.3-EXPERIMENTAL/html/RTIR/Tools/Elements/GetEmailFromIP	Mon Oct 22 16:29:19 2007
@@ -25,6 +25,9 @@
 <%INIT>
 # $address is passed by reference
 
+# Net::Whois::RIPE does this for its method names
+$field =~ tr/-/_/;
+
 use Net::Whois::RIPE;
 my $whois = Net::Whois::RIPE->new( $server, Debug => 1 );
 if ($whois) {