Changeset 533 for trunk/cgi-bin/main.cgi

Timestamp:

10/31/12 15:47:53 (12 years ago)

Author:

Kris Deugau

Message:

/trunk

Clean up and move SQL for finding a free block to allocate from
into IPDB.pm. See #34.
Also fix a minor "Use of uninitialized value...".

File:

• trunk/cgi-bin/main.cgi (modified) (3 diffs)

trunk/cgi-bin/main.cgi

@@ -405 +405 @@
   } else { # end show pool options
 
-##fixme: uninitialized
-    if ($webvar{fbassign} eq 'y') {
+    if ($webvar{fbassign} && $webvar{fbassign} eq 'y') {
       $cidr = new NetAddr::IP $webvar{block};
       $webvar{maskbits} = $cidr->masklen;
@@ -415 +414 @@
         return;
       }
-      my $sql;
-      my $city;
-      my $failmsg;
-      my $extracond = '';
-      if ($webvar{allocfrom} eq '-') {
-##fixme: uninitialized
-        $extracond = ($webvar{allowpriv} eq 'on' ? '' : 
-                " and not (cidr <<= '192.168.0.0/16'".
-                        " or cidr <<= '10.0.0.0/8'".
-                        " or cidr <<= '172.16.0.0/12')");
-      }
-      my $sortorder;
+
+##fixme ick, ew, bleh.  gotta handle the failure message generation better.  push it into findAllocateFrom()?
+      my $failmsg = "No suitable free block found.<br>\n";
       if ($webvar{alloctype} eq 'rm') {
-        if ($webvar{allocfrom} ne '-') {
-          $sql = "select * from freeblocks where maskbits<=$webvar{maskbits} and routed='n'".
-                " and cidr <<= '$webvar{allocfrom}'";
-          $sortorder = "maskbits desc";
-        } else {
-          $sql = "select * from freeblocks where maskbits<=$webvar{maskbits} and routed='n'";
-          $sortorder = "maskbits desc";
-        }
-        $failmsg = "No suitable free block found.<br>\nWe do not have a free".
-          " routeable block of that size.<br>\nYou will have to either route".
-          " a set of smaller netblocks or a single smaller netblock.";
+        $failmsg .= "We do not have a free routeable block of that size.<br>\n".
+                "You will have to either route a set of smaller netblocks or a single smaller netblock.";
       } else {
-##fixme
-# This section needs serious Pondering.
-        # Pools of most types get assigned to the POP they're "routed from"
-        # This includes WAN blocks and other netblock "containers"
-        # This does NOT include cable pools.
         if ($webvar{alloctype} =~ /^.[pc]$/) {
-          $city = $webvar{city};
-          $failmsg = "No suitable free block found.<br>\nYou will have to route another".
-            " superblock from one of the<br>\nmaster blocks or chose a smaller".
-            " block size for the pool.";
+          $failmsg .= "You will have to route another superblock from one of the<br>\n".
+                "master blocks or chose a smaller block size for the pool.";
         } else {
           if (!$webvar{pop}) {
@@ -455 +429 @@
             return;
           }
-          $city = $webvar{pop};
-          $failmsg = "No suitable free block found.<br>\nYou will have to route another".
-            " superblock to $webvar{pop}<br>\nfrom one of the master blocks or".
-            " chose a smaller blocksize.";
-        }
-        if (defined $webvar{allocfrom} && $webvar{allocfrom} ne '-') {
-          $sql = "select cidr from freeblocks where city='$city' and maskbits<=$webvar{maskbits}".
-                " and cidr <<= '$webvar{allocfrom}' and routed='".
-                (($webvar{alloctype} =~ /^(.)r$/) ? "$1" : 'y')."'";
-          $sortorder = "maskbits desc,cidr";
-        } else {
-          $sql = "select cidr from freeblocks where city='$city' and maskbits<=$webvar{maskbits}".
-                " and routed='".(($webvar{alloctype} =~ /^(.)r$/) ? "$1" : 'y')."'";
-          $sortorder = "maskbits desc,cidr";
+          $failmsg .= "You will have to route another superblock to $webvar{pop}<br>\n".
+                "from one of the master blocks or chose a smaller blocksize.";
         }
       }
-      $sql = $sql.$extracond." order by ".$sortorder;
-      $sth = $ip_dbh->prepare($sql);
-      $sth->execute;
-      my @data = $sth->fetchrow_array();
-      if ($data[0] eq "") {
+
+      $cidr = findAllocateFrom($ip_dbh, $webvar{maskbits}, $webvar{alloctype}, $webvar{city}, $webvar{pop},
+        (master => $webvar{allocfrom}, allowpriv => $webvar{allowpriv}) );
+      if (!$cidr) {
         $page->param(err => $failmsg);
         return;
       }
-      $cidr = new NetAddr::IP $data[0];
+      $cidr = new NetAddr::IP $cidr;
     } # check for freeblocks assignment or IPDB-controlled assignment