From: myon-guest <myon-guest@b513b33f-fedd-0310-b452-c3deb5f4c849>
Date: Wed, 8 Jun 2005 11:17:02 +0000 (+0000)
Subject: remove stray debug output; strip 0x prefix from keyids
X-Git-Url: https://git.sthu.org/?a=commitdiff_plain;h=fe9cce45c625b36a76db49bc6a1b3328bde49878;p=pgp-tools.git

remove stray debug output; strip 0x prefix from keyids

git-svn-id: svn://svn.debian.org/pgp-tools/trunk@58 b513b33f-fedd-0310-b452-c3deb5f4c849
---

diff --git a/caff/caff b/caff/caff
index 78f7290..fe5fd97 100755
--- a/caff/caff
+++ b/caff/caff
@@ -491,6 +491,7 @@ if ($ARGV[0] eq '-u') {
 	usage() unless scalar @ARGV >= 3;
 	shift @ARGV;
 	$USER = shift @ARGV;
+	$USER =~ s/^0x//i;
 	unless ($USER =~ /^[A-Za-z0-9]{8,8}([A-Za-z0-9]{8})?$/) {
 		print STDERR "-u $USER is not a keyid.\n";
 		usage();
@@ -498,6 +499,7 @@ if ($ARGV[0] eq '-u') {
 	$USER = uc($USER);
 };
 for my $keyid (@ARGV) {
+	$keyid =~ s/^0x//i;
 	unless ($keyid =~ /^[A-Za-z0-9]{8}([A-Za-z0-9]{8})?$/) {
 		print STDERR "$keyid is not a keyid.\n";
 		usage();
@@ -525,7 +527,6 @@ for my $keyid (@ARGV) {
 		warn ("No data from gpg for list-key\n");
 		next;
 	};
-	print $stdout;
 	foreach my $keyid (@{$CONFIG{'keyid'}}) {
 		unless ($stdout =~ /^pub:(?:[^:]*:){3,3}$keyid:/m) {
 			info("Importing $keyid");