Adding whois.ripe.net to IP_TROUBLE

Peter Maersk-Moller (peter.maersk-moller@jrc.it)
Thu, 29 Aug 1996 12:43:49 +0200

--6e87_1f27-724a_5ffd-73d8_8e7
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Content-MD5: zc9aBFZPcqU4z83lC0JqkQ==
X-Sun-Data-Type: text

Hi scotty/tkined users !

When you use the whois in the ip_trouble package you sometimes gets
replies like this

European Regional Internet Registry/RIPE NCC (NETBLK-RIPE)
These addresses have been further assigned to European users.
Their contact information can be found in the RIPE database.
........

The reason is that only whois.internic.net has been consulted. Below is a
patch which enables you to ask both internic and the RIPE. I don't
know how to make a patch, but I did something like

$ diff ip_trouble.tcl ip_trouble.tcl.original

The ip_trouble.tcl package with this feature can also be fetched at

ftp://ftp.sai.jrc.it/pub/software/tkined/ip_trouble.tcl-whois_whois.ripe.net_added_feature

What about whois for Asia etc. ? Please let me know if you know about
whois servers with whois Asia related stuff.

Regards

Peter Maersk-Moller

<PRE>
--- Any opinion or statements below will be of my own and not the JRC ---

Peter Maersk-Moller
Network Manager
---
TP441 Email : peter.maersk-moller@jrc.it
Space Applications Institute Phone : +39 (0)332 785820
Joint Research Center Fax : +39 (0)332 785461
I-21020 Ispra (VA) Priv. : +39 (0)332 647256
Italy DK : +45 38882869
NICHDL: PMM2-RIPE, PM13-RIPE
\|||/ CoolTalk : pmmj@ceo0912.jrc.it
(. .)
+-----------------------------ooO-(_)-Ooo--------------------------------+
| __ _ |
| / / (_)__ __ ____ __ |
| / /__/ / _ \/ // /\ \/ / . . . t h e c h o i c e o f a |
|/____/_/_//_/\___/ /_/\_\ G N U g e n e r a t i o n . . .|
| |
+------------------------------------------------------------------------+
|| ||
ooO Ooo
</PRE>

--6e87_1f27-724a_5ffd-73d8_8e7
Content-Type: application/octet-stream
Content-Transfer-Encoding: 7bit
Content-MD5: 0hM1jgUKEAx4ok/1cqC7XQ==
Content-Description: ip_trouble.patch

360,365d359
< proc "Whois Internic" { list } {
< return ["Whois Info" whois.internic.net $list]
< }
< proc "Whois RIPE" { list } {
< return ["Whois Info" whois.ripe.net $list]
< }
367c361
< proc "Whois Info" { server list } {

---
> proc "Whois Info" { list } {
371,372c365,366
< #   set server whois.internic.net
< 
---
>     set server whois.internic.net
> 		
396,397c390
< 	    if {(! [info exists whois($ip)]) || \
< 	        ([lindex $whois($ip) 0] != $server) } {
---
> 	    if {! [info exists whois($ip)]} {
414c407,408
< 		set whois($ip) [linsert $answer 0 $server]
---
> 
> 		set whois($ip) $answer
416,423c410,413
<             writeln "Answer from : [lindex $whois($ip) 0]\n"
<             set j 1
<             for {set i [llength $whois($ip)]} { $j < $i } { incr j 1}  {
<                 writeln [lindex $whois($ip) $j]
<             }
< #	    foreach line $whois($ip) {
< #		writeln $line
< #	    }
---
> 
> 	    foreach line $whois($ip) {
> 		writeln $line
> 	    }
771,772c761
< 	    "DNS Info" "Whois Info:Whois Internic" "Whois Info:Whois RIPE" \
< 	    "NTP Info" "" \
---
> 	    "DNS Info" "Whois Info" "NTP Info" "" \
--6e87_1f27-724a_5ffd-73d8_8e7--