- Timestamp:
- 04/13/16 18:03:15 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/cgi-bin/IPDB.pm
r839 r849 2903 2903 2904 2904 # reset $basetype so caller can just pass the complete allocation type 2905 if ($basetype =~ / .i/) {2905 if ($basetype =~ /^.?i$/) { 2906 2906 $basetype = 'i'; 2907 2907 } else { … … 3222 3222 my $type = shift || 'b'; # default to netblock for lazy callers 3223 3223 3224 # reset $type so caller can just pass the complete allocation type 3225 if ($type =~ /^.?i$/) { 3226 $type = 'i'; 3227 } else { 3228 $type = 'b'; 3229 } 3230 3224 3231 # catch some errors, someday 3225 3232 # if (!$id || $id !~ /^\d+$/) { 3226 3233 # $errstr = "Allocation ID must be numeric 3227 3234 # } 3228 3229 # netblocks are in the allocations table; pool IPs are in the poolips table.3230 # If we try to look up a CIDR in an integer field we should just get back nothing.3231 my ($btype) = $dbh->selectrow_array("SELECT type FROM allocations WHERE id=?", undef, ($id) );3232 3235 3233 3236 # Note city, vrf, parent_id and master_id removed due to JOIN uncertainty for block allocations
Note:
See TracChangeset
for help on using the changeset viewer.