Changeset 550 for branches/stable/textrecs.cgi

Timestamp:

12/11/13 17:10:05 (10 years ago)

Author:

Kris Deugau

Message:

/branches/stable

Merge reverse DNS and other updates, cleanup.

Crosscheck and clean up a few dangling bits that didn't get merged
correctly due to conflicts.

File:

• branches/stable/textrecs.cgi (modified) (2 diffs)

branches/stable/textrecs.cgi

@@ -46 +46 @@
 # shut up some warnings, in case we arrive somewhere we forgot to set this
 $webvar{defrec} = 'n' if !$webvar{defrec};      # non-default records
-#$webvar{revrec} = 'n' if !$webvar{revrec};     # non-reverse (domain) records
+$webvar{revrec} = 'n' if !$webvar{revrec};      # non-reverse (domain) records
 
 my $dnsdb = new DNSDB;
@@ -70 +70 @@
 print "Content-type: text/plain\n\n";
 print "Plaintext version of records for $zone.\n" if $webvar{defrec} eq 'n';
-print "Plaintext version of default records for $zone.\n" if $webvar{defrec} eq 'y';
+print "Plaintext version of default ".($webvar{revrec} eq 'y' ? 'reverse ' : '')."records for $zone.\n"
+        if $webvar{defrec} eq 'y';
 print qq(Press the "Back" button to return to the standard record list.\n\n);