Changeset 1048 for branches/stable/DNSDB.pm

Timestamp:

02/27/26 18:02:02 (4 hours ago)

Author:

Kris Deugau

Message:

/branches/stable

Rollup merge of changes to auxiliary scripts

Location:

branches/stable

Files:

• . (modified) (1 prop)
• DNSDB.pm (modified) (1 diff)

branches/stable/DNSDB.pm

@@ -1955 +1955 @@
 
     if ($cn) {
-      # "natural n'th IP in the block" pattern
-      $$tmpl =~ s/$cn/$ipindex+1/e;
+      # "n'th natural IP in the block" pattern.
+      my $iptmp = new NetAddr::IP $ip;
+      my $natdex = scalar($iptmp - $$subnet);
+      $natdex++;
+      $$tmpl =~ s/$cn/$natdex/;
     }