2003.08.11 (月) 16:06:08 <u*j*2*6*> この修正前ので国判定でNLやAUが出たときは、結果が正しくないことがおおいとおもいます
shuusei24182:IPWhoisの精度アップ(24129参照)

diff --dos -ur 24181/browseform.pas 24182/browseform.pas
--- 24181/browseform.pas	Sat Mar 08 23:08:16 2003
+++ 24182/browseform.pas	Mon Aug 11 15:53:28 2003
@@ -515,30 +515,39 @@
   str: String;
 begin
   //以下のリストはwp.cgiをもとにしてます
-  if pos('AUNIC-AU',whoisinfo)>0                then nextserver:='whois.aunic.net'
-  else if pos('LACNIC',whoisinfo)>0             then nextserver:='whois.lacnic.net'
-  else if pos('-RIPN',whoisinfo)>0              then nextserver:='whois.ripn.net'
-  else if pos('-FRNIC',whoisinfo)>0             then nextserver:='whois.nic.fr'
-  else if pos('-ITNIC',whoisinfo)>0             then nextserver:='whois.nic.it'
-  else if pos('NETBLK-BRAZIL',whoisinfo)>0      then nextserver:='whois.nic.br'
-  else if pos('NETBLK-PBI',whoisinfo)>0         then nextserver:='whois.arin.net'
-  else if pos('whois.nic.ad.jp',whoisinfo)>0    then nextserver:='whois.nic.ad.jp'
-  else if pos('whois.telstra',whoisinfo)>0      then nextserver:='whois.telstra.net'
-  else if pos('rwhois.exodus',whoisinfo)>0      then nextserver:='rwhois.exodus.net'
-  else if pos('rwhois.dnai',whoisinfo)>0        then nextserver:='rwhois.dnai.com'
-  else if pos('rwhois.digex',whoisinfo)>0       then nextserver:='rwhois.digex.net'
-  else if pos('rwhois.internex',whoisinfo)>0    then nextserver:='rwhois.internex.net'
-  else if pos('rwhois.concentric',whoisinfo)>0  then nextserver:='rwhois.concentric.net'
-  else if pos('JPNIC',whoisinfo)>0              then nextserver:='whois.nic.ad.jp'
-  else if pos('rwhois.oar.net',whoisinfo)>0     then nextserver:='rwhois.oar.net'
-  else if pos('whois.nic.or.kr',whoisinfo)>0    then nextserver:='whois.nic.or.kr'
-  else if pos('rwhois.verio',whoisinfo)>0       then nextserver:='rwhois.verio.net'
-  else if pos('rwhois.cogentco',whoisinfo)>0    then nextserver:='rwhois.cogentco.com'
-  else if pos('rwhois.beanfield',whoisinfo)>0   then nextserver:='rwhois.beanfield.net'
-  else if pos('APNIC',whoisinfo)>0              then
-    if pos('KRNIC',whoisinfo)=0                 then nextserver:='whois.apnic.net';
-  if pos('(NET-',whoisinfo)>0                   then
-    if Pos('NET-',nextstr)=1 then nextstr:=decode_ip(ip)
+  if pos('LACNIC',whoisinfo)>0                then nextserver:='whois.lacnic.net';
+  if pos('APNIC',whoisinfo)>0                 then nextserver:='whois.apnic.net';
+  if pos('APNIC-',whoisinfo)>0                then nextserver:='whois.apnic.net';
+  if pos('AUNIC-AU',whoisinfo)>0              then nextserver:='whois.aunic.net';
+  if pos('NETBLK-RIPE',whoisinfo)>0           then nextserver:='whois.ripe.net';
+  if (pos('NETBLK-',whoisinfo)>0) and
+     (pos('-RIPE',whoisinfo)>0)               then nextserver:='whois.ripe.net';
+  if pos('NET-RIPE',whoisinfo)>0              then nextserver:='whois.ripe.net';
+  if pos('-RIPE',whoisinfo)>0                 then nextserver:='whois.ripe.net';
+  if pos('RIPE-',whoisinfo)>0                 then nextserver:='whois.ripe.net';
+  if pos('NETBLK-BRAZIL',whoisinfo)>0         then nextserver:='whois.nic.br';
+  if pos('whois.nic.ad.jp',whoisinfo)>0       then nextserver:='whois.nic.ad.jp';
+  if pos('whois.telstra',whoisinfo)>0         then nextserver:='whois.telstra.net';
+  if pos('rwhois.exodus',whoisinfo)>0         then nextserver:='rwhois.exodus.net';
+  if pos('rwhois.verio',whoisinfo)>0          then nextserver:='rwhois.verio.net';
+  if pos('rwhois.dnai',whoisinfo)>0           then nextserver:='rwhois.dnai.com';
+  if pos('rwhois.digex',whoisinfo)>0          then nextserver:='rwhois.digex.net';
+  if pos('rwhois.internex',whoisinfo)>0       then nextserver:='rwhois.internex.net';
+  if pos('rwhois.concentric',whoisinfo)>0     then nextserver:='rwhois.concentric.net';
+  // rwhois.eni.net is currently broken
+  //if pos('rwhois.eni',whoisinfo)>0            then nextserver:='rwhois.eni.net';
+  if pos('rwhois.oar',whoisinfo)>0            then nextserver:='rwhois.oar.net';
+  if pos('rwhois.elan',whoisinfo)>0           then nextserver:='rwhois.elan.net';
+  if pos('rwhois.cais',whoisinfo)>0           then nextserver:='rwhois.cais.net';
+  if pos('rwhois.cogentco',whoisinfo)>0       then nextserver:='rwhois.cogentco.com';
+  if pos('rwhois.beanfield',whoisinfo)>0      then nextserver:='rwhois.beanfield.net';
+  if pos('JPNIC',whoisinfo)>0                 then nextserver:='whois.nic.ad.jp';
+  if pos('JNIC',whoisinfo)>0                  then nextserver:='whois.nic.ad.jp';
+  if pos('whois.nic.or.kr',whoisinfo)>0       then nextserver:='whois.nic.or.kr';
+
+  if pos('(NET-',whoisinfo)>0 then
+    if Pos('NET-',nextstr)=1 then
+      nextstr:=decode_ip(ip)
     else
     begin
       str:=whoisinfo;
diff --dos -ur 24181/constants.pas 24182/constants.pas
--- 24181/constants.pas	Mon Aug 11 00:12:10 2003
+++ 24182/constants.pas	Mon Aug 11 15:55:04 2003
@@ -27,7 +27,7 @@
  SLAVANAP_VERSION             = '2.4.1';
  SLAVANAP_BUILD               = '108';
  SLAVANAP_BUILD_DATE          = '24 January 2003';
- SLAVANAP_SHUUSEI             = '81';
+ SLAVANAP_SHUUSEI             = '82';
  SLAVANAP_SHUUSEI_DATE        = '11 August 2003';
  SLAVANAP_VERSION_SHORT       = SLAVANAP_TITLE+' '+SLAVANAP_VERSION;
  SLAVANAP_FULL                = SLAVANAP_TITLE+' '+SLAVANAP_VERSION+