# HG changeset patch # User Heiko Schlittermann # Date 1292943545 -3600 # Node ID de6761ce0d5b85c2a4a57b27c74cd6e2c23baca6 # Parent 5dc44dc86f6198d6faf8e7c68d983d9be44fffcb# Parent 7e472c559b36b7e7c25062ce09489b306adc4240 [merged] diff -r 7e472c559b36 -r de6761ce0d5b dnssec-keytool.pl --- a/dnssec-keytool.pl Tue Dec 21 14:03:18 2010 +0100 +++ b/dnssec-keytool.pl Tue Dec 21 15:59:05 2010 +0100 @@ -74,6 +74,7 @@ } sub rm_keys { + # loescht alle schluessel wenn -rm uebergeben wurde our @zones; our $master_dir; my $zone; @@ -105,10 +106,9 @@ unlink "$zpf/keyset-$zone." and $ep = 1; } - for (`ls $zpf/K$zone*`) { + for (glob("$zpf/K$zone*")) { chomp($_); - print "weg du scheissezwerg $_"; - unlink("$_"); + unlink ("$_"); } if ($ep == 1) { @@ -164,7 +164,7 @@ chomp($keyname); print " * $zone: neuer KSK $keyname\n"; - print "!! DER KSK muss der Chain of Trust veroeffentlicht werden !! \n"; + print "!! DER KSK muss veroeffentlicht werden !! \n"; } } @@ -285,9 +285,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; @@ -356,3 +356,16 @@ &creat_zsk; &post_creat; +__END__ + +=pod + +=head1 TITLE + +dnssec-keytool + +=head1 SYNTAX + +dnssec-keytool