Changeset 1013

Timestamp:

01/30/26 15:38:15 (21 hours ago)

Author:

Kris Deugau

Message:

/branches/cname-collision

Fix minor cosmetic logging bug due to normalization changes in r973

File:

• branches/cname-collision/DNSDB.pm (modified) (2 diffs)

branches/cname-collision/DNSDB.pm

@@ -5045 +5045 @@
   $logdata{entry} .= "', TTL $ttl";
   $logdata{entry} .= ", location ".$self->getLoc($location)->{description} if $location;
-  $logdata{entry} .= ($expires ? ', expires at ' : ', valid after ').$stamp if $stamp;
+  $logdata{entry} .= ($expires eq 't' ? ', expires at ' : ', valid after ').$stamp if $stamp;
 
   # Allow transactions, and raise an exception on errors so we can catch it later.
@@ -5277 +5277 @@
   $logdata{entry} .= "', TTL $ttl";
   $logdata{entry} .= ", location ".$self->getLoc($location)->{description} if $location;
-  $logdata{entry} .= ($expires ? ', expires at ' : ', valid after ').$stamp if $stamp;
+  $logdata{entry} .= ($expires eq 't' ? ', expires at ' : ', valid after ').$stamp if $stamp;
 
   local $dbh->{AutoCommit} = 0;