Changeset 741 for trunk/DNSDB.pm

Timestamp:

08/25/16 17:05:13 (8 years ago)

Author:

Kris Deugau

Message:

/trunk

Add another template expansion pattern; %x for the "n'th natural IP in
the range"

File:

• trunk/DNSDB.pm (modified) (1 diff)

trunk/DNSDB.pm

@@ -1655 +1655 @@
     my ($c) = ($$tmpl =~ /(\%-?c)/);  my $nld = '';  my $cld = '';
     $c = '' if !$c;
+    my ($cn) = ($$tmpl =~ /(\%x)/);
     my $skipgw = ($c =~ /\%-c/ ? 0 : 1);
     my $ipkill = 0;
+
+    if ($cn) {
+      # "natural n'th IP in the block" pattern
+      $$tmpl =~ s/$cn/$ipindex+1/e;
+    }
 
 ##fixme: still have one edge case not handled well: