summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorDaniel Kahn Gillmor <dkg@fifthhorseman.net>2009-01-07 14:59:40 -0500
committerDaniel Kahn Gillmor <dkg@fifthhorseman.net>2009-01-07 14:59:40 -0500
commitad8c2c433a163b9b29281b80fb1390bfcd9756bd (patch)
tree83a846899ee8b62b25985e7405ba4042cf9aadda /src
parent04e7cb84fcb8a16444eba640998e08bc1d39f60b (diff)
pem2openpgp now accepts a choice of User ID on stdin.
Diffstat (limited to 'src')
-rwxr-xr-xsrc/keytrans/pem2openpgp8
1 files changed, 4 insertions, 4 deletions
diff --git a/src/keytrans/pem2openpgp b/src/keytrans/pem2openpgp
index f6e2d4f..3fdc469 100755
--- a/src/keytrans/pem2openpgp
+++ b/src/keytrans/pem2openpgp
@@ -23,6 +23,10 @@ use MIME::Base64;
## make sure all length() and substr() calls use bytes only:
use bytes;
+my $uid = shift;
+
+# FIXME: fail if there is no given user ID.
+
# make an old-style packet out of the given packet type and body.
# old-style (see RFC 4880 section 4.2)
sub make_packet {
@@ -112,10 +116,6 @@ if (! $rsa->check_key()) {
die "key does not check";
}
-my $uid = 'fake key (do not use) <test@example.org>';
-
-
-
my $version = pack('C', 4);
# strong assertion of identity:
my $sigtype = pack('C', 0x13);