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

[Peter Palfrader]

Author: weasel
Date: 2004-10-20 05:04:57 -0600 (Wed, 20 Oct 2004)
New Revision: 20

Modified:
   trunk/caff/caff
Log:
some debug output in sigremoval

Modified: trunk/caff/caff
===================================================================
--- trunk/caff/caff	2004-10-20 11:04:00 UTC (rev 19)
+++ trunk/caff/caff	2004-10-20 11:04:57 UTC (rev 20)
@@ -686,14 +686,18 @@
 			my @sigline = grep { /^sig/ } (split /\n/, $stdout);
 			my $line = pop @sigline;
 			my $answer = "no";
+			debug("[sigremoval] doing line $line.");
 			if (defined $line) { # only if we found a sig here - we never remove revocation packets for instance
 				my ($dummy1, $dummy2, $dummy3, $dummy4, $signer, $created, $dummy7, $dummy8, $dummy9) = split /:/, $line;
 				if ($signer eq $longkeyid) {
+					debug("[sigremoval] selfsig ($signer).");
 					$answer = "no";
 				} elsif (grep { $signer eq $_ } @{$CONFIG{'keyid'}}) {
+					debug("[sigremoval] signed by us ($signer).");
 					$answer = "no";
 					$signed_by_me = $signed_by_me > $created ? $signed_by_me : $created;
 				} else {
+					debug("[sigremoval] not interested in that sig ($signer).");
 					$answer = "yes";
 				};
 			};