---
name: "Reg::Asused"
section: "3pm"
platform: "linux"
package: "asused"
version: "3.72-14"
release: "Debian 13 (Trixie)"
platforms: ["linux"]
url: "https://new.carta.tech/Reg::Asused"
---

# Reg::Asused(3pm)

Perl module for asused.

## 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 allocations 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)](/perl/1.md).