Changeset 941 for trunk/cgi-bin/admin.cgi

Timestamp:

12/23/22 13:17:53 (2 years ago)

Author:

Kris Deugau

Message:

/trunk

Add termination/demarc node report to admin tools

File:

• trunk/cgi-bin/admin.cgi (modified) (2 diffs)

trunk/cgi-bin/admin.cgi

@@ -115 +115 @@
   my $mlist = getMasterList($ip_dbh, 'm');
   $page->param(masterlist => $mlist);
+
+  my $nodelist = getNodeList($ip_dbh);
+  $page->param(nodelist => $nodelist);
 }
 
@@ -363 +366 @@
   my $pool = $ip_dbh->selectrow_array("SELECT cidr FROM allocations WHERE id=?", undef, ($poolid) );
   $page->param(pool => $pool);
+
+} elsif ($webvar{action} eq 'nodereport') {
+  my $nodename = getNodeName($ip_dbh, $webvar{node});
+  $page->param(node_name => $nodename);
+  $page->param(node => $webvar{node});
+  $page->param(webpath => $IPDB::webpath);
+# can't use this until any disjoint between allocation IDs and pool IP IDs is resolved.
+#  my $alloclist = $ip_dbh->selectall_arrayref("SELECT cidr,custid,type,description FROM searchme WHERE node_id = ?",
+#       { Slice => {} }, $webvar{node_id});
+  my $alloclist = $ip_dbh->selectall_arrayref("SELECT a.id,a.cidr,a.custid,at.dispname,a.circuitid,a.description FROM allocations a".
+        " JOIN noderef nr ON a.cidr=nr.block JOIN alloctypes at ON a.type=at.type".
+        " WHERE nr.node_id = ? AND NOT a.type LIKE '_m'",
+        { Slice => {} }, $webvar{node});
+  $page->param(alloclist => $alloclist);
 
 } elsif ($webvar{action} eq 'showusers') {