Net::RIPWhois::in(3) Perl extension for accessing inetnum objects from RIPE whois database.

SYNOPSIS

use Net::RIPEWhois::in

$in = new Net::RIPEWhois::in;

@in = getIn($whois, $prefix, $ALLOCOPT);

$whois->closeWhois();

DESCRIPTION

Get inetnum objects from RIPE whois server. Validate as allocation object.

METHODS

debug

Get or set the debug.

$in->debug(1); set the debug.

$in->debug(undef); turn off the $debug;

error

($errNo, $errMsg) = $in->error; $in->(undef, undef, true); reset the error message

Will get the last error no and error string;

if $whois->debug is set @{$in->{'errMsgAll'}} and @{$in->{'errNoAll'}} will have the list of all errors and error numbers.

new

$in = new Net::RIPEWhois::in

Creates a new inetnum object. ENV variables WHOISHOST and WHOISPORT

getIn

Return a list of inetnum objects returned by whois.

$whois = new Net::RIPEWhois;

@in = $in->getIn($whois, $prefix, $ALLOCOPT);

Selected attributes of inetnum are stored in data structure i<inetnum>. Should always query with fast raw output used by the RIPE whois db.

$in->{inetnum}{attribute}

return undef on error. use $in->error() to get error no. and message.

splitWhoisAns

Split the response string from whois ans and return list of inetnum on success.

@inList = $in->splitWhoisAns( $whoisAnsRef);

Returns undef on error.

Spliting depending on fast raw output format from whois db. Use "-F" to get fast raw output.

validAlloc

Check the inetnum is an alloation or not.

Using netname same as regid, translated ``.'' to "-" .

mnt-by RIPE-NCC-MNT ,RIPE-NCC-HM-MNT

status ALLOCATED PA, ALLOCATED PI, ALLOCATED UNSPECIFIED and not in IANA Delegated list. As specified in the specification when queried "-L" "-T" in the range database should return max 3 inetnum objects. Assignment, Allocation & IANA delegation to RIPE. Skip if it is an IANA delegation and aply the previous check.

@valid = $in->validAlloc(@inlist);

undef on error.

checkYYYYmmDD

Function used to check dates are valid or not. Converts to UTC on YYYYMMDD and concert back to date format if these to matchs treated ad valid date.

$YYYYMMDD = checkYYYYmmDD($YYYYMMDD); Accepts YYMMDD and YYYYMMDD formats. YYMMDD is treated as 19YYMMDD

FILES

/ncc/ip-reg/delegations perl file with list of IANA delegations.

REQUIRES

perl module ipv4pack

AUTHOR

Antony <[email protected]> software group RIPE NCC <[email protected]>