X-Git-Url: http://git.sthu.org/?a=blobdiff_plain;f=caff%2Fcaff;h=4c5e6411c2b3da9e33f5f287cd0dc138a4dbe40f;hb=cacd2089a16078286682921afa18ea8c76fd1b5c;hp=8421fa87efbd2086bd0ad0911364c592c7abb9f1;hpb=a01404114acb7f00c2245ad2c8322cfcebf57563;p=pgp-tools.git

diff --git a/caff/caff b/caff/caff
index 8421fa8..4c5e641 100755
--- a/caff/caff
+++ b/caff/caff
@@ -654,6 +654,7 @@ for my $keyid (@keyids_ok) {
 			next;
 		};
 		unless ($have_one) {
+			info("Uid ".($uid_number-1)." was the last, there is no $uid_number.");
 			info("key $keyid done.");
 			last;
 		};
@@ -683,16 +684,21 @@ for my $keyid (@keyids_ok) {
 		while($status =~ /$KEYEDIT_DELSIG_PROMPT/m) {
 			# sig:?::17:EA2199412477CAF8:1058095214:::::13x:
 			my @sigline = grep { /^sig/ } (split /\n/, $stdout);
+			notice("[sigremoval] why are there ".(scalar @sigline)." siglines in that part of the dialog!?.") if scalar @sigline >= 2; # XXX
 			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";
 				};
 			};