Changeset 349 for trunk/cgi-bin

Timestamp:

10/06/06 12:20:42 (18 years ago)

Author:

Kris Deugau

Message:

/trunk

Backport bugfixery from /branches/stable r336

File:

• trunk/cgi-bin/IPDB.pm (modified) (6 diffs)

trunk/cgi-bin/IPDB.pm

@@ -193 +193 @@
   my $sth;
 
+  # Snag the "type" of the freeblock (alloc_from) "just in case"
+  $sth = $dbh->prepare("select routed from freeblocks where cidr='$alloc_from'");
+  $sth->execute;
+  my ($alloc_from_type) = $sth->fetchrow_array;
+
   # To contain the error message, if any.
   my $msg = "Unknown error allocating $cidr as '$type'";
@@ -344 +349 @@
 
           # Insert the new freeblocks entries
-          # Along with some more HairyPerl(TM) in case we're inserting a
-          # subblock (.r) allocation
+          # Along with some more HairyPerl(TM):
+          #   if $alloc_type_from is p
+          #   OR
+          #   $type matches /^(.)r$/
+          # inserted value for routed column should match.
+          # This solves the case of inserting an arbitrary block into a
+          # "Reserve-for-routed-DSL" block.  Which you really shouldn't
+          # do in the first place, but anyway...
           $sth = $dbh->prepare("insert into freeblocks (cidr,maskbits,city,routed)".
                 " values (?, ?, (select city from routed where cidr >>= '$cidr'),'".
-                (($type =~ /^(.)r$/) ? "$1" : 'y')."')");
+                ( ( ($alloc_from_type =~ /^(p)$/) || ($type =~ /^(.)r$/) ) ? "$1" : 'y')."')");
           foreach my $block (@newfreeblocks) {
             $sth->execute("$block", $block->masklen);
@@ -463 +474 @@
   my $sth;
 
+  # Magic variables used for odd allocation cases.
+  my $container;
+  my $con_type;
+
   # To contain the error message, if any.
   my $msg = "Unknown error deallocating $type $cidr";
@@ -529 +544 @@
       } else { # end alloctype routing case
 
+        # Magic.  We need to get information about the containing block (if any)
+        # so as to make sure that the freeblocks we insert get the correct "type".
+        $sth = $dbh->prepare("select cidr,type from allocations where cidr >> '$cidr'");
+        $sth->execute;
+        ($container, $con_type) = $sth->fetchrow_array;
+
         # Delete all allocations within the block being deleted.  This is
         # deliberate and correct, and removes the need to special-case
@@ -543 +564 @@
 
         # Set up query for compacting free blocks.
-        $sth = $dbh->prepare("select cidr from freeblocks where cidr <<= ".
+        if ($con_type && $con_type eq 'pc') {
+          # Clean up after "bad" allocations (blocks that are not formally
+          # contained which have nevertheless been allocated from a container block)
+          # We want to make certain that the freeblocks are properly "labelled"
+          $sth = $dbh->prepare("select cidr from freeblocks where cidr <<= '$container'");
+        } else {
+          # Standard deallocation.
+          $sth = $dbh->prepare("select cidr from freeblocks where cidr <<= ".
                 "(select cidr from routed where cidr >>= '$cidr') ".
                 " and maskbits<=".$cidr->masklen.
                 " and routed='".(($type =~ /^(.)r$/) ? '$1' : 'y').
                 "' order by maskbits desc");
+        }
 
       } # end alloctype general case
@@ -588 +617 @@
                 " values ('$cidr',".$cidr->masklen.",'<NULL>')");
       } else {
+        # Magic hackery to insert "correct" data for deallocation of
+        # non-contained blocks allocated from within a container.
+        $type = 'pr' if $con_type && $con_type eq 'pc';
+
         $sth = $dbh->prepare("insert into freeblocks (cidr,maskbits,city,routed)".
                 " values ('$cidr',".$cidr->masklen.