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

Timestamp:

04/08/16 15:03:39 (8 years ago)

Author:

Kris Deugau

Message:

/trunk

Add link(s) into DNSAdmin in per-IP DNS edit segment on allocation edit
page. Also extend for IPv6.

File:

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

trunk/cgi-bin/main.cgi

@@ -1100 +1100 @@
   if ($blockinfo->{revavail} || $blockinfo->{revpartial}) {
     $page->param(showrev => ($blockinfo->{revavail} || $blockinfo->{revpartial}) );
+    $page->param(v6 => $cidr->{isv6});
+    $page->param(dnslink => $IPDB::dnsadmin_url);
+
+    # get the DNSAdmin zone ID(s) for this allocation.
+    # Multiple zones should be rare, but are NOT impossible!
+    my $revlist = getRevID($ip_dbh, user => $authuser, cidr => $blockinfo->{block},
+        location => $blockinfo->{location});
+    $page->param(revlist => $revlist);
+
     my $cached;
     # Get rDNS info;  duplicates a bit of getBlockData but also does the RPC call if possible
@@ -1284 +1293 @@
   }
 
+  # and now IPv6
+##fixme:  how to remove an entry?  maybe treat empty host as "delete meeeee!"?
+  if ($webvar{v6list}) {
+    my @v6lines = split /\n/, $webvar{v6list};
+    foreach (@v6lines) {
+      s/^\s+//;
+      s/\s+$//;
+      next if /^$/;
+      my ($ip,$name) = split /,/;
+      $iprev{"host_$ip"} = $name;
+    }
+  }
+
   # Merge with reserved freeblock
   $updargs{fbmerge} = $webvar{expandme} if $webvar{expandme};