update-index
changeset 34 f5db9f4a3e76
parent 33 d3269961e944
equal deleted inserted replaced
33:d3269961e944 34:f5db9f4a3e76
    51 }
    51 }
    52 
    52 
    53 
    53 
    54 for my $dir ( glob "$master_dir/*" ) {
    54 for my $dir ( glob "$master_dir/*" ) {
    55     $zone = basename($dir);
    55     $zone = basename($dir);
       
    56     my $info_end = "::sec-off";
    56 
    57 
    57     $iz_line = "\t\tIN TXT\t\t\"ZONE::$zone\"\n";
    58     if (-e "$dir/.keycounter") {
       
    59         $info_end = "::sec-on";
       
    60     }
       
    61 
       
    62     $iz_line = "\t\tIN TXT\t\t\"ZONE::$zone$info_end\"\n";
    58 
    63 
    59     push @iz_content_new, $iz_line;
    64     push @iz_content_new, $iz_line;
    60 }
    65 }
    61 
    66 
    62 
    67