tserial date inc fix - gitzone - git-based zone management tool for static and dynamic domains
  HTML git clone https://git.parazyd.org/gitzone
   DIR Log
   DIR Files
   DIR Refs
       ---
   DIR commit b56caabfec9f397dcad431713445a6fec9340b20
   DIR parent a10ec80780ca93f9d41212b0c2037b93ed83a2a8
  HTML Author: tg(x) <*@tg-x.net>
       Date:   Fri,  4 Feb 2011 12:13:40 +0100
       
       serial date inc fix
       
       Diffstat:
         M bin/gitzone                         |       4 ++--
       
       1 file changed, 2 insertions(+), 2 deletions(-)
       ---
   DIR diff --git a/bin/gitzone b/bin/gitzone
       t@@ -79,10 +79,10 @@ sub process_file {
            my $line = $_;
            if (/^(.*)(\b\d+\b)(.*?;AUTO_INCREMENT\b.*)$/) {
              # increment serial where marked with ;AUTO_INCREMENT
       -      # if length of serial is 8 and starts with 20 treat it as a date
       +      # if length of serial is 10 and starts with 20 treat it as a date
              my ($a,$s,$z) = ($1,int $2,$3);
              $date ||= strftime '%Y%m%d', localtime;
       -      $s = ($s =~ /^$date/ || $s < 20000000 || $s >= 21000000) ? $s + 1 : $date.'00';
       +      $s = ($s =~ /^$date/ || $s < 2000000000 || $s >= 2100000000) ? $s + 1 : $date.'00';
              $line = "$a$s$z\n";
              $changed = 1;
            } elsif (/^(\W*\$INCLUDE\W+)(\S+)(.*)$/) {