diff -r d50f6874b7ab -r 5dc44dc86f61 dnssec-keytool --- a/dnssec-keytool Fri Dec 03 16:42:12 2010 +0100 +++ b/dnssec-keytool Tue Dec 21 15:47:40 2010 +0100 @@ -71,6 +71,7 @@ } sub rm_keys { + # loescht alle schluessel wenn -rm uebergeben wurde our @zones; our $master_dir; my $zone; @@ -96,9 +97,8 @@ if ( -e "$zpf/keyset-$zone." ) { unlink "$zpf/keyset-$zone." and $ep = 1 } - for (`ls $zpf/K$zone*`) { + for (glob("$zpf/K$zone*")) { chomp($_); - print "weg du scheissezwerg $_"; unlink ("$_"); } @@ -156,7 +156,7 @@ print " * $zone: neuer KSK $keyname\n"; - print "!! DER KSK muss der Chain of Trust veroeffentlicht werden !! \n"; + print "!! DER KSK muss veroeffentlicht werden !! \n"; } } @@ -276,9 +276,9 @@ s#K.*\+.*\+(.*)#$1#; } - # prueft alle schluesseldateien (ksk, zsk) ob sie in der jeweiligen + # prueft alle schluesseldateien (ksk, zsk), ob sie in der jeweiligen # indexdatei beschrieben sind. wenn nicht werden sie geloescht. - for (`ls $master_dir/$zone/K*[key,private]`) { + for ( glob("$master_dir/$zone/K*") { chomp; my $file = $_; my $rm_count = 1; @@ -347,4 +347,17 @@ &creat_zsk; &post_creat; +__END__ +=pod + +=head1 TITLE + +dnssec-keytool + +=head1 SYNTAX + +dnssec-keytool