--- a/dnssec-killkey Wed Jul 28 14:14:47 2010 +0200
+++ b/dnssec-killkey Thu Jul 29 14:19:56 2010 +0200
@@ -3,14 +3,14 @@
use strict;
my $master_dir="/etc/bind/master"; # ordner fuer die einzelnen zonedateiordner
-my $ablauf_zeit="48"; # zeit fuer den key-rollover in h
+my $ablauf_zeit="1"; # zeit fuer den key-rollover in h
my $zone;
my @status;
my @auto;
chomp (my $now_time=`date +%s`); # aktuelle unixzeit
# prueft zonen aus ARGV und loescht das schluesselmaterial
-foreach (@ARGV) {
+for (@ARGV) {
chomp ($zone = `idn --quiet $_`);
my $zdir = "$master_dir/$zone";
if (-e "$master_dir/$zone") {
@@ -30,8 +30,10 @@
}
# beendet den key-rollover
-foreach (`ls $master_dir`) {
- chomp ($zone = $_);
+for (<$master_dir/*>) {
+ $zone = $_;
+ $zone =~ s#($master_dir/)(.*)#$2#;
+
my @index = ();
my $index_wc;