--- a/dnssec-sign	Fri Aug 13 10:09:37 2010 +0200
+++ b/dnssec-sign	Fri Aug 13 17:00:37 2010 +0200
@@ -88,49 +88,21 @@
 }
 
 #gibt zonen mit schluessel aber ohne signatur in die liste @auto
-for (<$master_dir/*>) {
-    s#($master_dir/)(.*)#$2#;
-    $zone = $_;
-
-    if ( -e "$master_dir/$zone/.keycounter" ) {
-
-        open( KC, "$master_dir/$zone/.keycounter" );
-        $kc = <KC>;
-        close(KC);
-
-        if ( $kc < 1 ) {
-            push @auto, $zone;
-        }
-    }
-}
-
-#erhoeht den serial der zone 
-for ( &del_double( @auto, @manu ) ) {
-    unless ($serial_up == 1) {
-        last
-    }
-
-    $zone = $_;
-    my @zonefile = ();
-    my $serial;
-
-    open ( ZONEFILE, "$master_dir/$zone/$zone")
-        or die "$master_dir/$zone/$zone: $!\n";
-    @zonefile = <ZONEFILE>;
-    close (ZONEFILE);
-
-    for (@zonefile) {
-        if (m#([0-9]{10}).*;.*serial#) {
-            $serial = $1 + 1;
-            s#(.*)([0-9]{10})(.*)#$1$serial$3#;
-        }
-    }
-
-    open ( ZONEFILE, ">$master_dir/$zone/$zone")
-        or die "$master_dir/$zone/$zone: $!\n";
-    print ZONEFILE @zonefile;
-    close (ZONEFILE);
-}
+#for (<$master_dir/*>) {
+#    s#($master_dir/)(.*)#$2#;
+#    $zone = $_;
+#
+#    if ( -e "$master_dir/$zone/.keycounter" ) {
+#
+#        open( KC, "$master_dir/$zone/.keycounter" );
+#        $kc = <KC>;
+#        close(KC);
+#
+#        if ( $kc < 1 ) {
+#            push @auto, $zone;
+#        }
+#    }
+#}
 
 # signiert alle zonen in @auto und @manu und erhoeht den wert in
 # der keycounter-datei