equal
deleted
inserted
replaced
527 } |
527 } |
528 |
528 |
529 # prueft alle schluesseldateien (ksk, zsk) ob sie in der jeweiligen |
529 # prueft alle schluesseldateien (ksk, zsk) ob sie in der jeweiligen |
530 # indexdatei beschrieben sind. wenn nicht werden sie geloescht. |
530 # indexdatei beschrieben sind. wenn nicht werden sie geloescht. |
531 for my $file (glob "$dir/K*.key $dir/K*.private") { |
531 for my $file (glob "$dir/K*.key $dir/K*.private") { |
532 unlink $file if basename($file, ".key", ".private") ~~ @keys; |
532 unlink $file unless basename($file, ".key", ".private") ~~ @keys; |
533 } |
533 } |
534 } |
534 } |
535 |
535 |
536 sub end_rollover(@) { |
536 sub end_rollover(@) { |
537 |
537 |