Changeset 582 for branches/stable/textrecs.cgi

Timestamp:

01/02/14 13:26:38 (10 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)
• textrecs.cgi (modified) (2 diffs)

branches/stable/textrecs.cgi

@@ -75 +75 @@
 
 my $reclist = $dnsdb->getRecList(defrec => $webvar{defrec}, revrec => $webvar{revrec}, id => $webvar{id},
-        sortby => ($webvar{revrec} eq 'n' ? 'type,host' : 'type,val'), sortorder => 'ASC');
+        sortby => ($webvar{revrec} eq 'n' ? 'type,host' : 'type,val'), sortorder => 'ASC', offset => 'all');
 foreach my $rec (@$reclist) {
   $rec->{type} = $typemap{$rec->{type}};
@@ -83 +83 @@
   $rec->{val} = "$rec->{distance}  $rec->{weight}  $rec->{port}  $rec->{val}" if $rec->{type} eq 'SRV';
   if ($webvar{revrec} eq 'y') {
+    if ($dnsdb->{showrec_arpa_ns} && $rec->{type} eq 'NS') {
+      my $tmp = new NetAddr::IP $rec->{val};
+      $rec->{val} = DNSDB::_ZONE($tmp, 'ZONE', 'r', '.').($tmp->{isv6} ? '.ip6.arpa' : '.in-addr.arpa');
+    }
     printf "%-16s\t%d\t%s\t%s\n", $rec->{val}, $rec->{ttl}, $rec->{type}, $rec->{host};
   } else {