Changeset 443 for trunk

Timestamp:

01/03/13 14:54:37 (12 years ago)

Author:

Kris Deugau

Message:

/trunk

Fix a couple of buglets expanding the %-patterns in _template4_expand()

File:

• trunk/DNSDB.pm (modified) (2 diffs)

trunk/DNSDB.pm

@@ -1153 +1153 @@
   for (@ipparts) {
     push @iphex, sprintf("%x", $_);
-    push @ippad, sprintf("%u.3", $_);
+    push @ippad, sprintf("%0.3u", $_);
   }
 
@@ -1186 +1186 @@
   $$tmpl =~ s/\%([1234])d/$ipparts[$1-1]/g;
   $$tmpl =~ s/\%([1234])h/$iphex[$1-1]/g;
-  $$tmpl =~ s/\%([1234])h/$ippad[$1-1]/g;
+  $$tmpl =~ s/\%([1234])0/$ippad[$1-1]/g;
 } # _template4_expand()