Asused(3pm)

💖 NAME 💖

Reg::Asused — bestie, it's a Perl module for asused. That's the whole vibe. Periodt.

---

✨ SYNOPSIS ✨

okay so here's how you actually get in:

  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'});

no cap, that's the whole entrance. slay.

---

🌸 DESCRIPTION 🌸

🎀 approveNa

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

it's giving "gimme the goods" — this returns a ref to the inetnum result, as a string, plus the valid result. 🫶

if something goes wrong it returns undef. and if you're like "bestie what happened", you call ($errno, $errstr) = $asu->error and it will return the error. 💅

🦋 checkOverlap

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

checking for overlap in a list of inetnum objects, fr fr. the list

  @{$assign->{$assignList->[$i]}{'overlap'}}

holds the list of overlapping inetnums. 👑

and if two inetnums are logically sme (sic — that's literally what the original says, i'm not fixing it, i don't make the rules 😭), it sets a warning in the list

  @{$assign->{$assignList->[$i]}{'warning'}}

which has the list of overlapping inetnums. ✨

💀 error

return error number and string.

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

and to reset the error:

  $asu->(undef, undef, 1);

yeah, that's the syntax. iconic of it, honestly.

🌈 getAssign

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

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

returns undef on success. yes, undef means it worked. iykyk. 💜

🧚 getDBAlloc

get allocations from the RIPE whois database for every prefix or allocation under a registary. 🍓 it's out here with "-L" "-F" "-c" "-T" in .

it checks that the netname's same are regid (translated "." "-"), that mnt-by is one of the valid RIPE maintiner, and that 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).

---

and that's the whole page, bestie — this one's from perl v5.32.0, dated 2021-01-26, and it lives in the Asused(3pm) section of the User Contributed Perl Documentation. go off, you understood all of it. 💅✨