Changeset 950 for trunk

Timestamp:

08/02/24 11:23:50 (7 weeks ago)

Author:

Kris Deugau

Message:

/trunk

Import a refinement to per-IP rDNS fiddling from production, for new allocations

File:

• trunk/cgi-bin/main.cgi (modified) (1 diff)

trunk/cgi-bin/main.cgi

@@ -885 +885 @@
   # collect per-IP rDNS fields.  only copy over the ones that actually have something in them.
   my %iprev;
-  foreach (keys %webvar) {
-    $iprev{$_} = $webvar{$_} if /host_[\d.a-fA-F:]+/ && $webvar{$_};
+  foreach (sort keys %webvar) {
+    # skip all but the host_* fields
+    next unless /^host_[\d.a-fA-F:]+/;
+    # propagate the per-IP rDNS if present
+    $iprev{$_} = $webvar{$_} if $webvar{$_};
+    # set the rDNS to be cleared if there was a value before (was_host_* field),
+    # but there's no value in the matching visible form field now (host_*)
+    $iprev{$_} = '' if $webvar{"was_$_"} && !$webvar{$_};
   }