equal
deleted
inserted
replaced
1 #!/usr/bin/perl -w |
1 #!/usr/bin/perl -w |
2 |
2 |
3 use strict; |
3 use strict; |
4 |
4 |
5 my $master_dir="/etc/bind/master"; # ordner fuer die einzelnen zonedateiordner |
5 my $master_dir="/etc/bind/master"; # ordner fuer die einzelnen zonedateiordner |
6 my $ablauf_zeit="48"; # zeit fuer den key-rollover in h |
6 my $ablauf_zeit="1"; # zeit fuer den key-rollover in h |
7 my $zone; |
7 my $zone; |
8 my @status; |
8 my @status; |
9 my @auto; |
9 my @auto; |
10 chomp (my $now_time=`date +%s`); # aktuelle unixzeit |
10 chomp (my $now_time=`date +%s`); # aktuelle unixzeit |
11 |
11 |
12 # prueft zonen aus ARGV und loescht das schluesselmaterial |
12 # prueft zonen aus ARGV und loescht das schluesselmaterial |
13 foreach (@ARGV) { |
13 for (@ARGV) { |
14 chomp ($zone = `idn --quiet $_`); |
14 chomp ($zone = `idn --quiet $_`); |
15 my $zdir = "$master_dir/$zone"; |
15 my $zdir = "$master_dir/$zone"; |
16 if (-e "$master_dir/$zone") { |
16 if (-e "$master_dir/$zone") { |
17 |
17 |
18 if (-e "$zdir/$zone.signed") { `rm $zdir/$zone.signed`} |
18 if (-e "$zdir/$zone.signed") { `rm $zdir/$zone.signed`} |
28 print "$zone ist keine verwaltete zone \n"; |
28 print "$zone ist keine verwaltete zone \n"; |
29 } |
29 } |
30 } |
30 } |
31 |
31 |
32 # beendet den key-rollover |
32 # beendet den key-rollover |
33 foreach (`ls $master_dir`) { |
33 for (<$master_dir/*>) { |
34 chomp ($zone = $_); |
34 $zone = $_; |
|
35 $zone =~ s#($master_dir/)(.*)#$2#; |
|
36 |
35 my @index = (); |
37 my @index = (); |
36 my $index_wc; |
38 my $index_wc; |
37 |
39 |
38 # prueft nach der ".index.zsk"-datei und erstellt den zeitpunkt |
40 # prueft nach der ".index.zsk"-datei und erstellt den zeitpunkt |
39 # an dem das key-rollover endet. - $status[9] |
41 # an dem das key-rollover endet. - $status[9] |