Changeset 582 for branches/stable/dns.cgi

Timestamp:

01/02/14 13:26:38 (11 years ago)

Author:

Kris Deugau

Message:

/branches/stable

Merge forward bugfixes and option additions from /trunk r570 through r581

Location:

branches/stable

Files:

• . (modified) (1 prop)
• dns.cgi (modified) (2 diffs)

branches/stable/dns.cgi

@@ -275 +275 @@
       # and reconstruct the URI argument list.
       my %target = (page => "domlist");
-      if ($webvar{target} && $webvar{target} =~ /\?/) {
+      if ($webvar{target} && $webvar{target} =~ /\?/ && $webvar{target} !~ /page=login/) {
         my $tmp = (split /\?/, $webvar{target})[1];
         $tmp =~ s/^\&//;
@@ -2004 +2004 @@
 
   foreach my $rec (@$foo2) {
+    # NS records.  Need to do this first before we convert the type-value to the text representation
+    if ($rev eq 'y' && $dnsdb->{showrec_arpa_ns} && $rec->{type} == $reverse_typemap{NS}) {
+      my $tmp = new NetAddr::IP $rec->{val};
+      $rec->{val} = DNSDB::_ZONE($tmp, 'ZONE', 'r', '.').($tmp->{isv6} ? '.ip6.arpa' : '.in-addr.arpa');
+    }
     $rec->{type} = $typemap{$rec->{type}};
     $rec->{fwdzone} = $rev eq 'n';