$fpr = uc($fpr);
}
- my $data = { 'fpr' => $fpr};
+ my $data = { target => { fpr => $fpr,
+ },
+ };
my $subs = { $packet_types->{pubkey} => \&findkey,
$packet_types->{pub_subkey} => \&findkey,
$packet_types->{seckey} => \&findkey,
open($instream,'-');
binmode($instream, ":bytes");
- my $revcert = revokeuserid($instream, $fpr, $uid, $ENV{KEYTRANS_REVUID_TIMESTAMP});
+ my $revcert = revokeuserid($instream, $fpr, $uid, $ENV{PEM2OPENPGP_TIMESTAMP});
print $revcert;
} elsif (/^adduserid$/) {
print $newuid;
} else {
- die "Unrecognized subcomand. keytrans subcommands are not a stable interface!\n";
+ die "Unrecognized subcommand. keytrans subcommands are not a stable interface!\n";
}
}
}