Lines Matching refs:ipb
64 my $ipb = Ipblock->retrieve($ipid);
66 unless $ipb;
67 $ips{$ipb->id} = $ipb;
74 my $ipb;
76 $ipb = Ipblock->search(address=>$address, version=>4, prefix=>32)->first;
78 $ipb = Ipblock->search(address=>$address, version=>6, prefix=>128)->first;
83 if ( $ipb ){
84 $ips{$ipb->id} = $ipb;
146 foreach my $ipb ( values %ips ){
147 foreach my $ar ( $ipb->a_records ){
151 foreach my $ptr ( $ipb->ptr_records ){
213 my $ipb = Ipblock->retrieve($ipid);
215 unless $ipb;
216 unless ( $manager->can($user, 'edit', $ipb) ){
220 unless ( $ipb->status->name eq 'Static' ){
230 if ( my $host = $ipb->dhcp_scopes->first ){
243 ipblock => $ipb,
254 $rest->print_serialized($rest->get(obj=>$ipb, depth=>0));
373 my $ipb = Ipblock->retrieve($ipid);
375 unless $ipb;
378 unless ( $ipb->is_address ){
383 foreach my $ar ( $ipb->a_records ){
386 foreach my $ptr ( $ipb->ptr_records ){
390 foreach my $scope ( $ipb->dhcp_scopes ){