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

Timestamp:

10/19/12 16:15:59 (12 years ago)

Author:

Kris Deugau

Message:

/trunk

Move SQL for node search page into IPDB.pm. See #34.
Also tweak some handling for the lingering global statement handle
variable, since it may be undefined instead of a statement handle.

File:

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

trunk/cgi-bin/IPDB.pm

@@ -26 +26 @@
         %allocated %free %routed %bigfree %IPDBacl %aclmsg
         &initIPDBGlobals &connectDB &finish &checkDBSanity &allocateBlock &addMaster
-        &deleteBlock &getBlockData &mailNotify
+        &deleteBlock &getBlockData
+        &getNodeList
+        &mailNotify
         );
 
@@ -34 +36 @@
                 @masterblocks %allocated %free %routed %bigfree %IPDBacl %aclmsg
                 &initIPDBGlobals &connectDB &finish &checkDBSanity &allocateBlock
-                &addMaster &deleteBlock &getBlockData &mailNotify
+                &addMaster &deleteBlock &getBlockData
+                &getNodeList
+                &mailNotify
                 )]
         );
@@ -832 +836 @@
 
 
+## IPDB::getNodeList()
+# Gets a list of node ID+name pairs as an arrayref to a list of hashrefs
+sub getNodeList {
+  my $dbh = shift;
+  
+  my $ret = $dbh->selectall_arrayref("SELECT node_id, node_name FROM nodes ORDER BY node_type,node_id",
+        { Slice => {} });
+  return $ret;
+} # end getNodeList()
+
+
 ## IPDB::mailNotify()
 # Sends notification mail to recipients regarding an IPDB operation