Changeset 627

Timestamp:

10/08/14 17:17:38 (10 years ago)

Author:

Kris Deugau

Message:

/trunk

Commit 3/mumble for work done intermittently over the past ~year.
See #5, comment 25:

• Update suballocation list/summary; IPDB::listSubs(), main.cgi:showSubs(), and page template

Location:

trunk

Files:

• cgi-bin/IPDB.pm (modified) (3 diffs)
• cgi-bin/main.cgi (modified) (1 diff)
• templates/showsubs.tmpl (modified) (4 diffs)

trunk/cgi-bin/IPDB.pm

@@ -460 +460 @@
   # Just In Case
   $args{vrf} = '' if !$args{vrf};
-  $args{rdepth} = 1 if !$args{rdepth};
 
   # Snag the allocations for this block
-  my $sth = $dbh->prepare("SELECT cidr,city,type,custid,swip,description".
-        " FROM allocations WHERE parent = ? AND rdepth = ? ORDER BY cidr");
-  $sth->execute($args{block},$args{rdepth});
+  my $sth = $dbh->prepare("SELECT cidr,city,type,custid,swip,description,id,master_id".
+        " FROM allocations WHERE parent_id = ? ORDER BY cidr");
+  $sth->execute($args{parent});
 
   # hack hack hack
@@ -472 +471 @@
 
   my @blocklist;
-  while (my ($cidr,$city,$type,$custid,$swip,$desc) = $sth->fetchrow_array()) {
+  while (my ($cidr,$city,$type,$custid,$swip,$desc,$id) = $sth->fetchrow_array()) {
     $custsth->execute($custid);
     my ($ncust) = $custsth->fetchrow_array();
@@ -484 +483 @@
         desc => $desc,
         hassubs => ($type eq 'rm' || $type =~ /.c/ ? 1 : 0),
+        id => $id,
         );
 #    $row{subblock} = ($type =~ /^.r$/);         # hmf.  wonder why these won't work in the hash declaration...

trunk/cgi-bin/main.cgi

@@ -244 +244 @@
 # Display blocks immediately within a given parent
 sub showSubs {
-  $page->param(block => $webvar{block});
+  my $pinfo = getBlockData($ip_dbh, $webvar{parent});
+
+  $page->param(del_id => $webvar{parent});
+  $page->param(block => $pinfo->{block});
   $page->param(mayadd => ($IPDBacl{$authuser} =~ /a/));
   $page->param(maydel => ($IPDBacl{$authuser} =~ /d/));
 
-  my $sublist = listSubs($ip_dbh, block => $webvar{block}, rdepth => $webvar{rdepth});
-  $page->param(deldepth => $webvar{rdepth} - 1);
-  $page->param(rdepth => $webvar{rdepth});
-  $page->param(subdepth => $webvar{rdepth} + 1);
+  my $sublist = listSubs($ip_dbh, parent => $webvar{parent});
   $page->param(sublist => $sublist);
 
-  my $flist = listFree($ip_dbh, master => $webvar{block}, rdepth => $webvar{rdepth});
+  my $flist = listFree($ip_dbh, parent => $webvar{parent});
   $page->param(freelist => $flist);
 } # showSubs

trunk/templates/showsubs.tmpl

@@ -19 +19 @@
 <td>
 <TMPL_IF hassubs>
-<a href="<TMPL_VAR NAME=webpath>/cgi-bin/main.cgi?action=showsubs&amp;block=<TMPL_VAR NAME=block>&amp;rdepth=<TMPL_VAR NAME=subdepth>"><TMPL_VAR NAME=block></a>
+<a href="<TMPL_VAR NAME=webpath>/cgi-bin/main.cgi?action=showsubs&amp;parent=<TMPL_VAR NAME=id>"><TMPL_VAR NAME=block></a>
 <TMPL_ELSE>
-<a href="<TMPL_VAR NAME=webpath>/cgi-bin/main.cgi?action=edit&amp;block=<TMPL_VAR NAME=block>&amp;rdepth=<TMPL_VAR NAME=rdepth>"><TMPL_VAR NAME=block></a>
-<TMPL_IF listpool> &nbsp; <a href="<TMPL_VAR NAME=webpath>/cgi-bin/main.cgi?action=listpool&amp;pool=<TMPL_VAR NAME=block>&amp;rdepth=<TMPL_VAR NAME=rdepth>">List IPs</a></TMPL_IF>
+<a href="<TMPL_VAR NAME=webpath>/cgi-bin/main.cgi?action=edit&amp;id=<TMPL_VAR NAME=id>&amp;basetype=b"><TMPL_VAR NAME=block></a>
+<TMPL_IF listpool> &nbsp; <a href="<TMPL_VAR NAME=webpath>/cgi-bin/main.cgi?action=listpool&amp;pool=<TMPL_VAR NAME=id>">List IPs</a></TMPL_IF>
 </TMPL_IF>
 </td>
@@ -35 +35 @@
 <TMPL_ELSE>
 <hr class="w30">
-<div class="tbltitle">No allocations in <TMPL_VAR NAME=block>.
+<div class="tbltitle">No allocations in <TMPL_VAR NAME=block>
 <TMPL_IF maydel>
 <br>
@@ -41 +41 @@
 <fieldset><legend class="noshow">&nbsp;</legend>
 <input type=hidden name=action value="delete">
-<input type=hidden name=block value="<TMPL_VAR NAME=block>">
-<input type=hidden name=rdepth value="<TMPL_VAR NAME=deldepth>">
+<input type=hidden name=block value="<TMPL_VAR NAME=del_id>">
+<input type=hidden name=basetype value="b">
 <input type=submit value=" Remove this block ">
 </fieldset>
@@ -68 +68 @@
 <td>
 <TMPL_IF mayadd>
-<a href="<TMPL_VAR NAME=webpath>/cgi-bin/main.cgi?action=assign&amp;block=<TMPL_VAR NAME=fblock>&amp;rdepth=<TMPL_VAR NAME=rdepth>"><TMPL_VAR NAME=fblock></a>
+<a href="<TMPL_VAR NAME=webpath>/cgi-bin/main.cgi?action=assign&amp;block=<TMPL_VAR NAME=fblock>&amp;fbid=<TMPL_VAR NAME=fbid>&amp;parent=<TMPL_VAR NAME=fbparent>"><TMPL_VAR NAME=fblock></a>
 <TMPL_ELSE>
 <TMPL_VAR NAME=fblock>