dnssec-killkey
changeset 21 6715f8f9d04c
parent 20 5b52190d8750
child 22 7229d1c95ea8
--- 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;