Index: /trunk/cgi-bin/admin.cgi
===================================================================
--- /trunk/cgi-bin/admin.cgi	(revision 940)
+++ /trunk/cgi-bin/admin.cgi	(revision 941)
@@ -115,4 +115,7 @@
   my $mlist = getMasterList($ip_dbh, 'm');
   $page->param(masterlist => $mlist);
+
+  my $nodelist = getNodeList($ip_dbh);
+  $page->param(nodelist => $nodelist);
 }
 
@@ -363,4 +366,18 @@
   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') {
Index: /trunk/templates/admin/nodereport.tmpl
===================================================================
--- /trunk/templates/admin/nodereport.tmpl	(revision 941)
+++ /trunk/templates/admin/nodereport.tmpl	(revision 941)
@@ -0,0 +1,16 @@
+Allocations tagged for <TMPL_VAR node_name>:<br>
+<a href="<TMPL_VAR NAME=webpath>/listnode-<TMPL_VAR node>.csv">Download</a>
+ IP, CustID, Circuit ID, Description as CSV</div>
+
+<table border=1>
+<tr><td>Allocation</td><td>CustID</td><td>Type</td><td>Circuit ID</td><td>Description</td></tr>
+<TMPL_LOOP NAME=alloclist>
+<tr>
+<td><a href="<TMPL_VAR NAME=webpath>/cgi-bin/main.cgi?action=edit&id=<TMPL_VAR NAME=id>&basetype=b"><TMPL_VAR cidr></a></td>
+<td><TMPL_VAR custid></td>
+<td><TMPL_VAR dispname></td>
+<td><TMPL_VAR circuitid></td>
+<td><TMPL_VAR description></td>
+</tr>
+</TMPL_LOOP>
+</table>