From: weasel <weasel@b513b33f-fedd-0310-b452-c3deb5f4c849>
Date: Wed, 20 Oct 2004 11:04:57 +0000 (+0000)
Subject: some debug output in sigremoval
X-Git-Url: https://git.sthu.org/?a=commitdiff_plain;h=245c68e937d090a496fe5f34381fcacc33dfd76b;p=pgp-tools.git

some debug output in sigremoval

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

diff --git a/caff/caff b/caff/caff
index 6b23803..718e847 100755
--- a/caff/caff
+++ b/caff/caff
@@ -686,14 +686,18 @@ for my $keyid (@keyids_ok) {
 			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";
 				};
 			};