equal
deleted
inserted
replaced
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 } |