Changeset 532 for trunk/cgi-bin/IPDB.pm

Timestamp:

10/30/12 16:01:39 (12 years ago)

Author:

Kris Deugau

Message:

/trunk

Clean up and move SQL to IPDB.pm for pool-selector for static IPs
on allocation confirmation page. See #34.

File:

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

trunk/cgi-bin/IPDB.pm

@@ -28 +28 @@
         &addMaster
         &listSummary &listMaster &listRBlock &listFree &listPool
-        &getTypeList
+        &getTypeList &getPoolSelect
         &getParent &getRoutedCity
         &allocateBlock &updateBlock &deleteBlock &getBlockData
@@ -42 +42 @@
                 &addMaster
                 &listSummary &listMaster &listRBlock &listFree &listPool
-                &getTypeList
+                &getTypeList &getPoolSelect
                 &getParent &getRoutedCity
                 &allocateBlock &updateBlock &deleteBlock &getBlockData
@@ -497 +497 @@
   return $tlist;
 }
+
+
+## IPDB::getPoolSelect()
+# Get a list of pools matching the passed city and type that have 1 or more free IPs
+sub getPoolSelect {
+  my $dbh = shift;
+  my $iptype = shift;
+  my $pcity = shift;
+
+  my ($ptype) = ($iptype =~ /^(.)i$/);
+  return if !$ptype;
+  $ptype .= '_';
+
+  my $plist = $dbh->selectall_arrayref(
+        "SELECT (SELECT city FROM allocations WHERE cidr=poolips.pool) AS poolcit, ".
+        "poolips.pool AS poolblock, COUNT(*) AS poolfree FROM poolips,allocations ".
+        "WHERE poolips.available='y' AND poolips.pool=allocations.cidr ".
+        "AND allocations.city = ? AND poolips.type LIKE ? ".
+        "GROUP BY pool", { Slice => {} }, ($pcity, $ptype) );
+  return $plist;
+} # end getPoolSelect()