From da54d2b0713bdd85a47d2e3ed2bc925b0ad681e8 Mon Sep 17 00:00:00 2001 From: Don Armstrong Date: Sun, 8 Mar 2009 00:27:09 +0000 Subject: [PATCH] * handle munged serials --- update_dns_serial | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/update_dns_serial b/update_dns_serial index 93a2b85..9481402 100755 --- a/update_dns_serial +++ b/update_dns_serial @@ -13,10 +13,10 @@ for my $file (@ARGV) { my $fh_contents = <$fh>; # rip out old serial my ($old_serial) = $fh_contents =~ /IN\s+SOA\s+\S+\s+\S+\s*(?:\s*\;.+\n)*\((?:\s*\;.+\n)*\s*(\d+)/; - my ($ymd,$iter) = $old_serial =~ /(\d{4}\d{2}\d{2})(\d{2})/; + my ($ymd,$iter) = $old_serial =~ /(\d{4}\d{2}\d{2})(\d{1,2})/; my $new_serial = strftime("%Y%m%d",gmtime())."01"; if ($ymd eq strftime("%Y%m%d",gmtime())) { - $new_serial = $ymd.($iter+1); + $new_serial = $ymd.sprintf('%02d',$iter+1); } $fh_contents =~ s/(IN\s+SOA\s+\S+\s+\S+\s*(?:\s*\;.+\n)*\((?:\s*\;.+\n)*\s*)(\d+)/${1}${new_serial}/; print {$fh_new} $fh_contents; -- 2.39.2