Scroll to navigation

Asused(3pm) User Contributed Perl Documentation Asused(3pm)

NAME

Reg::Asused - Perl module for asused.

SYNOPSIS

  use Reg::Asused;
  use regread;
  use ipv4pack;

  my($asu) = new Reg::Asused;

  my($errNo, $errStr ) = $asu->getDBAlloc($alloc, $whois,  \%regAlloc);
  
  ($errNo, $errStr ) = $asu->getAssign($alloc, $assign, $whois);
  
  ($network, $ret) = $asu->approveNa($whois, $opt{'valid'},  $opt{'regid'});

DESCRIPTION

approveNa

 my ($network, $ret, $vlid) = $asu->approveNa($whois, $arg, $regid);

Will return ref to inetnum result in string and valid result. On error will return undef. ($errno, $errstr) = $asu->error will return error.

checkOverlap

$oCount = $self->checkOverlap($assign, $i, \@assign, \$sOverlap);

Check for overlap in list of inetnum objects. The list @{$assign->{$assignList->[$i]}{'overlap'}}. have list of overlapping inetnums.

If two inetnums are logically sme will set warning in the list @{$assign->{$assignList->[$i]}{'warning'}} have list of overlapping inetnums.

error

return error number and string.

($errorno, $errorstr ) = $asu->error;

reset the error $asu->(undef, undef, 1);

getAssign

Get all assignments for each prefix in @{$alloc->{'dbAlloc'}}.

($errNo, $errStr ) = $asu->getAssign($alloc, $assign, $whois);

Return undef on success.

getDBAlloc

Get allocaions from RIPE whois database for all prefix or allocation under a registary. "-L" "-F" "-c" "-T" in .

check netname same are regid (translated "." "-"), mnt-by is one of valid RIPE maintiner, status is ALLOCATED PA, PI or UNSPECIFIED.

my($errNo, $errStr ) = $asu->getDBAlloc($alloc, $whois, $regAlloc);

$alloc Ref to Net::RIPEWhois::in $whois Ref to Net::RIPEWhois

$regAlloc ref to hash with keys as queries to locate Allocations.

AUTHOR

Antony <antony@ripe.net> software group RIPE NCC <softies@ripe.net>

SEE ALSO

perl(1).
2016-03-04 perl v5.22.1