--- 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 <option> zone
+
+=head1 BESCHREIBUNG
+

--- a/update-serial	Fri Dec 03 16:42:12 2010 +0100
+++ b/update-serial	Tue Dec 21 15:47:40 2010 +0100
@@ -547,3 +547,20 @@
 &file_entry;  # bearbeitet die file-eintraege der konfigurations-datei
 &mk_zone_conf; # konfiguration zusammenfuegen
 &server_reload; # server neu laden
+
+
+
+__END__
+
+=pod
+
+=head1 TITLE
+
+update-serial
+
+=head1 SYNTAX
+
+update-serial
+
+=head1 BESCHREIBUNG
+