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

Timestamp:

10/25/12 17:59:15 (12 years ago)

Author:

Kris Deugau

Message:

/trunk

Clean up and move most SQL for node handling into IPDB.pm. See #34.
Tweak "new assignment" and "edit block" templates a little to match
and for consistency.

File:

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

trunk/cgi-bin/main.cgi

@@ -368 +368 @@
 
 ## node hack
-  $sth = $ip_dbh->prepare("SELECT node_id, node_name FROM nodes ORDER BY node_type,node_id");
-  $sth->execute() or print "DEBUG: failed retrieval from nodes: ".$sth->errstr,"<br>\n";
-  my @nodes;
-  while (my ($nid,$nname) = $sth->fetchrow_array()) {
-    my %row = (nid => $nid, nname => $nname);
-    push (@nodes, \%row);
-  }
-  $page->param(nodelist => \@nodes);
+  my $nlist = getNodeList($ip_dbh);
+  $page->param(nodelist => $nlist);
 ## end node hack
 
@@ -428 +422 @@
   } else { # end show pool options
 
+##fixme: uninitialized
     if ($webvar{fbassign} eq 'y') {
       $cidr = new NetAddr::IP $webvar{block};
@@ -442 +437 @@
       my $extracond = '';
       if ($webvar{allocfrom} eq '-') {
+##fixme: uninitialized
         $extracond = ($webvar{allowpriv} eq 'on' ? '' : 
                 " and not (cidr <<= '192.168.0.0/16'".
@@ -519 +515 @@
 ## node hack
   if ($webvar{node} && $webvar{node} ne '-') {
-    $sth = $ip_dbh->prepare("SELECT node_name FROM nodes WHERE node_id=?");
-    $sth->execute($webvar{node});
-    my ($nodename) = $sth->fetchrow_array();
+    my $nodename = getNodeName($ip_dbh, $webvar{node});
     $page->param(nodename => $nodename);
     $page->param(nodeid => $webvar{node});
@@ -756 +750 @@
 
 ## node hack
-  $sth = $ip_dbh->prepare("SELECT nodes.node_id,node_name FROM nodes INNER JOIN noderef".
-        " ON nodes.node_id=noderef.node_id WHERE noderef.block='$webvar{block}'");
-  $sth->execute;
-  my ($nodeid,$nodename) = $sth->fetchrow_array();
+  my ($nodeid,$nodename) = getNodeInfo($ip_dbh, $webvar{block});
   $page->param(havenodeid => $nodeid);
 
@@ -771 +762 @@
 #  (currently) have a nodeid set in the first place.
     if ($IPDBacl{$authuser} =~ /c/) {
-      $sth = $ip_dbh->prepare("SELECT node_id, node_name FROM nodes ORDER BY node_type,node_id");
-      $sth->execute;
-      my @nodelist;
-      while (my ($nid,$nname) = $sth->fetchrow_array()) {
-        my %row = (
-                selme => ($nodeid == $nid),
-                nodeid => $nid,
-                nodename => $nname,
-                );
-        push (@nodelist, \%row);
+      my $nlist = getNodeList($ip_dbh);
+      foreach (@{$nlist}) {
+        $$_{selme} = ($$_{node_id} == $nodeid);
       }
-      $page->param(nodelist => \@nodelist);
+      $page->param(nodelist => $nlist);
     }
   }
@@ -870 +854 @@
 ## node hack
   if ($webvar{node} && $webvar{node} ne '-') {
-    $sth = $ip_dbh->prepare("SELECT node_name FROM nodes WHERE node_id=?");
-    $sth->execute($webvar{node});
-    my ($nodename) = $sth->fetchrow_array();
+    my $nodename = getNodeName($ip_dbh, $webvar{node});
     $page->param(nodename => $nodename);
   }