dnssec-killkey
changeset 30 5ac92c1ffdf9
parent 29 ef4b45dd7618
child 31 1cea07056124
equal deleted inserted replaced
29:ef4b45dd7618 30:5ac92c1ffdf9
    30 my $master_dir  = $config{master_dir};
    30 my $master_dir  = $config{master_dir};
    31 my $ablauf_zeit = $config{abl_zeit};
    31 my $ablauf_zeit = $config{abl_zeit};
    32 my $zone;
    32 my $zone;
    33 my @status;
    33 my @status;
    34 my @auto;
    34 my @auto;
       
    35 my @old_zone_content;
       
    36 my @new_zone_content;
    35 chomp( my $now_time = `date +%s` );    # aktuelle unixzeit
    37 chomp( my $now_time = `date +%s` );    # aktuelle unixzeit
    36 
    38 
    37 # prueft zonen aus ARGV und loescht das schluesselmaterial
    39 # prueft zonen aus ARGV und loescht das schluesselmaterial
    38 for (@ARGV) {
    40 for (@ARGV) {
    39     chomp( $zone = `idn --quiet $_` );
    41     chomp( $zone = `idn --quiet $_` );
   180                 # schluessel die in der indexdatei standen, werden an die
   182                 # schluessel die in der indexdatei standen, werden an die
   181                 # zonedatei angehangen.
   183                 # zonedatei angehangen.
   182                 if ( $file =~ /.*key/ ) {
   184                 if ( $file =~ /.*key/ ) {
   183 
   185 
   184                     $file =~ s#/.*/(K.*)#$1#;
   186                     $file =~ s#/.*/(K.*)#$1#;
   185                     push @new_zone_content, "\$include $file\t\t; dnssec-zsk\n" ;
   187                     push @new_zone_content, "\$INCLUDE \"$file\"\t\t; dnssec-zsk\n" ;
   186 
   188 
   187                     last;
   189                     last;
   188                 }
   190                 }
   189             }
   191             }
   190         }
   192         }
   196                 # schluessel die in der indexdatei standen, werden an die
   198                 # schluessel die in der indexdatei standen, werden an die
   197                 # zonedatei angehangen.
   199                 # zonedatei angehangen.
   198                 if ( $file =~ /.*key/ ) {
   200                 if ( $file =~ /.*key/ ) {
   199 
   201 
   200                     $file =~ s#/.*/(K.*)#$1#;
   202                     $file =~ s#/.*/(K.*)#$1#;
   201                     push @new_zone_content, "\$include $file\t\t; dnssec-ksk\n" ;
   203                     push @new_zone_content, "\$INCLUDE \"$file\"\t\t; dnssec-ksk\n" ;
   202 
   204 
   203                     last;
   205                     last;
   204                 }
   206                 }
   205             }
   207             }
   206         }
   208         }