r153 - trunk

[Laurent Fousse]

Author: lfousse
Date: 2004-09-21 10:10:29 -0600 (Tue, 21 Sep 2004)
New Revision: 153

Modified:
   trunk/ca-createsendout
Log:
Add "support" for fingerprint. Closes #269476.


Modified: trunk/ca-createsendout
===================================================================
--- trunk/ca-createsendout	2004-07-28 19:05:15 UTC (rev 152)
+++ trunk/ca-createsendout	2004-09-21 16:10:29 UTC (rev 153)
@@ -41,6 +41,13 @@
 KEYS:
 for my $keyid (@ARGV) {
 	$keyid =~ tr/a-f/A-F/;
+	if (length($keyid) > 8) {
+		my $kid = substr $keyid, -8, 8;
+		print "Warning: assuming $keyid is a fingerprint. Using " . $kid;
+		print " as keyid.\n";
+		$keyid = $kid;
+
+	}
 	for my $keyserver ( @{$CONFIG{'keyservers'}} ) {
 		print "Getting key from $keyserver...\n";