36 my $master_dir  = $config{master_dir};

    36 my $master_dir  = $config{master_dir};

    37 my $ablauf_zeit = $config{abl_zeit};

    37 my $ablauf_zeit = $config{abl_zeit};

    38 my $zone;

    38 my $zone;

    39 my @status;

    39 my @status;

    40 my @auto;

    40 my @auto;

    41 my @old_zone_content;

    42 my @old_zone_content;

    42 my @new_zone_content;

    43 my @new_zone_content;

    43 chomp( my $now_time = `date +%s` );    # aktuelle unixzeit

    44 chomp( my $now_time = `date +%s` );    # aktuelle unixzeit

    44 

    45 

    45 # prueft zonen aus ARGV und loescht das schluesselmaterial

    46 # prueft zonen aus ARGV und loescht das schluesselmaterial

    55         if ( -e "$zdir/.index.ksk" )    { unlink "$zdir/.index.ksk" }

    56         if ( -e "$zdir/.index.ksk" )    { unlink "$zdir/.index.ksk" }

    56         if ( -e "$zdir/.index.zsk" )    { unlink "$zdir/.index.zsk" }

    57         if ( -e "$zdir/.index.zsk" )    { unlink "$zdir/.index.zsk" }

    57         if ( -e "$zdir/dsset-$zone." )  { unlink "$zdir/dsset-$zone." }

    58         if ( -e "$zdir/dsset-$zone." )  { unlink "$zdir/dsset-$zone." }

    58         if ( -e "$zdir/keyset-$zone." ) { unlink "$zdir/keyset-$zone." }

    59         if ( -e "$zdir/keyset-$zone." ) { unlink "$zdir/keyset-$zone." }

    59         for (`ls $master_dir/$zone/K*[key,private]`) { unlink $_ }

    60         for (`ls $master_dir/$zone/K*[key,private]`) { unlink $_ }

    78 }

    82 }

    79 

    83 

    80 # beendet den key-rollover

    84 # beendet den key-rollover

    81 for (<$master_dir/*>) {

    85 for (<$master_dir/*>) {

    82     $zone = $_;

    86     $zone = $_;

   226     print ZONE @new_zone_content;

   230     print ZONE @new_zone_content;

   227     close(ZONE);

   231     close(ZONE);

   228 

   232 

   229     print "$master_dir/$zone/$zone wurde neu erstellt \n";

   233     print "$master_dir/$zone/$zone wurde neu erstellt \n";

   230 }

   234 }