- print "$out_file ", -s $out_file, " bytes\n";
- if ( ! -e "cards/$uid.key" ) {
- symlink $out_file, "cards/$uid.key" || die "cards/$uid.key: $!";
- warn "using keys as default for card $uid\n";
+ print "$out_file ", -s $out_file, " bytes key: $card_key_file\n";
+ if ( ! -e $card_key_file ) {
+ $out_file =~ s{^cards/}{} || die "can't strip directory from out_file";
+ symlink $out_file, $card_key_file || die "$card_key_file: $!";
+ warn "$card_key_file symlink created as default key for $uid\n";