[Pgp-tools-commit] r90 - trunk/caff

[Peter Palfrader]

Author: weasel
Date: 2005-06-28 14:57:30 +0000 (Tue, 28 Jun 2005)
New Revision: 90

Modified:
   trunk/caff/caff
Log:
Warn if we do not find a public key, not only if we get no output at all (tru:.. is output)

Modified: trunk/caff/caff
===================================================================
--- trunk/caff/caff	2005-06-28 12:59:41 UTC (rev 89)
+++ trunk/caff/caff	2005-06-28 14:57:30 UTC (rev 90)
@@ -641,6 +641,10 @@
 		next;
 	};
 	my @publine = grep { /^pub/ } (split /\n/, $stdout);
+	if (scalar @publine == 0) {
+		warn ("No public keys found with list-key $keyid (note that caff uses its own keyring in $GNUPGHOME).\n");
+		next;
+	};
 	my (undef, undef, undef, undef, $longkeyid, undef, undef, undef, undef, undef, undef, $flags) = split /:/, pop @publine;
 	if (scalar @publine > 0) {
 		warn ("More than one key matched $keyid.  Try to specify the long keyid or fingerprint\n");