#!/usr/bin/perl
use Time::Local ;

$start = "23/12/2013";
($d,$m,$y) = split(/\//,$start) ;
$dte = timelocal(0,0,0,$d,$m-1,$y-1900);
$now = time() ;
while ($dte < $now) {
  (@tv) = localtime($dte) ;
  $rootfile = sprintf("/Users/gih/work/root-zone/dnssec-tlds/%04d/%02d/%02d/root.zone",$tv[5]+1900,$tv[4]+1,$tv[3]) ;
  if (-s $rootfile) {
    $cmd = "egrep \"IN\\t*NS\" $rootfile | awk '{ print \$1} ' | sort -u | grep -v \"^\\.\" | wc -l" ;
    $size = `$cmd` ;
    chomp($size) ;
    $size =~ s/^\s*// ;
    if ((!(($dte > 1609434000) && ($size < 1150)))  && ($size > 10)) {
      print("$dte $size\n") ;
      }
    }
  $dte += 86400 ;
  }