Changeset 513 for trunk

Timestamp:

05/22/13 16:43:07 (12 years ago)

Author:

Kris Deugau

Message:

/trunk

Get rid of another pair of minor messes in the error log. See #25.

• sort of identify link-in or session-expired logins, so we don't try to redirect to the alternate login target when it's not necessary
• set the sortby argument to in getRecList() if not defined. This may be worth tweaking further to account for default and/or reverse records.

Location:

trunk

Files:

• DNSDB.pm (modified) (1 diff)
• dns.cgi (modified) (1 diff)

trunk/DNSDB.pm

@@ -3583 +3583 @@
   $defsort = 'host' if $args{revrec} eq 'n';     # default sort by host on domain record list
   $defsort = 'val' if $args{revrec} eq 'y';      # default sort by IP on revzone record list
+  $args{sortby} = '' if !$args{sortby};
   $args{sortby} = $defsort if !$args{revrec};
   $args{sortby} = $defsort if $args{sortby} !~ /^[\w_,.]+$/;

trunk/dns.cgi

@@ -249 +249 @@
       # and reconstruct the URI argument list.
       my %target = (page => "domlist");
-      if ($webvar{target}) {
+      if ($webvar{target} && $webvar{target} =~ /\?/) {
         my $tmp = (split /\?/, $webvar{target})[1];
         $tmp =~ s/^\&//;