equal
deleted
inserted
replaced
521 |
521 |
522 # collect the keys and cut everything except the key id |
522 # collect the keys and cut everything except the key id |
523 # we cut the basenames (w/o the .private|.key suffix) |
523 # we cut the basenames (w/o the .private|.key suffix) |
524 open(my $zsk, "<$dir/.index.zsk") or die "$dir/.index.zsk: $!\n"; |
524 open(my $zsk, "<$dir/.index.zsk") or die "$dir/.index.zsk: $!\n"; |
525 open(my $ksk, "<$dir/.index.ksk") or die "$dir/.index.ksk: $!\n"; |
525 open(my $ksk, "<$dir/.index.ksk") or die "$dir/.index.ksk: $!\n"; |
526 @keys = (<$zsk>, <$ksk>); |
526 chomp(@keys = (<$zsk>, <$ksk>)); |
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") { |