Changeset 536 for trunk/textrecs.cgi

Timestamp:

11/25/13 16:02:54 (10 years ago)

Author:

Kris Deugau

Message:

/trunk

Fix slipup with text-only record list; reverse zones had the nominal
"host" and "value" parts reversed.

File:

• trunk/textrecs.cgi (modified) (1 diff)

trunk/textrecs.cgi

@@ -82 +82 @@
   $rec->{val} = "$rec->{distance}  $rec->{val}" if $rec->{type} eq 'MX';
   $rec->{val} = "$rec->{distance}  $rec->{weight}  $rec->{port}  $rec->{val}" if $rec->{type} eq 'SRV';
-  printf "%-45s\t%d\t%s\t%s\n", $rec->{host}, $rec->{ttl}, $rec->{type}, $rec->{val};
+  if ($webvar{revrec} eq 'y') {
+    printf "%-16s\t%d\t%s\t%s\n", $rec->{val}, $rec->{ttl}, $rec->{type}, $rec->{host};
+  } else {
+    printf "%-45s\t%d\t%s\t%s\n", $rec->{host}, $rec->{ttl}, $rec->{type}, $rec->{val};
+  }
 }
 #$page->param(defrec => ($webvar{defrec} eq 'y'));