diff options
-rw-r--r-- | whoseip/whoseip.pl | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/whoseip/whoseip.pl b/whoseip/whoseip.pl index 2464155..87974f6 100644 --- a/whoseip/whoseip.pl +++ b/whoseip/whoseip.pl @@ -250,6 +250,12 @@ sub ripe_decode { $ref->{cidr} = join ',', Net::CIDR::range2cidr($r); } elsif ($input =~ /^country:\s+(.+)/) { $ref->{country} = $1; + } elsif ($input =~ /^netname:\s+(.+)-TRANSFERRED.*/) { + # A kludge to handle networks transferred to another RIR + # E.g.: netname: AFRINIC-NET-TRANSFERRED-20050223 + my $s = $1; + $s =~ s/-/./g; + $ref->{referto} = "whois.$s:43"; } elsif ($input eq '') { $ref->{state} = RIPE_IGNR; } |