fixing typo and thinko in keytrans

[monkeysphere.git] / src / share / keytrans

diff --git a/src/share/keytrans b/src/share/keytrans
index 56ddde2ad4cecccbb0f8904d5e8bf9c24be3d47b..ae4fb0993980afb1de16558a227775486ab89b5e 100755 (executable)
--- a/src/share/keytrans
+++ b/src/share/keytrans
@@ -797,7 +797,9 @@ sub openpgp2rsa {
     $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,
@@ -1084,7 +1086,7 @@ for (basename($0)) {
        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$/) {
@@ -1101,7 +1103,7 @@ for (basename($0)) {
 
        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";
       }
     }
   }