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

[Peter Palfrader]

Author: weasel
Date: 2004-10-20 05:12:50 -0600 (Wed, 20 Oct 2004)
New Revision: 22

Modified:
   trunk/caff/caff
Log:
One more debug output

Modified: trunk/caff/caff
===================================================================
--- trunk/caff/caff	2004-10-20 11:09:39 UTC (rev 21)
+++ trunk/caff/caff	2004-10-20 11:12:50 UTC (rev 22)
@@ -687,8 +687,8 @@
 			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
+				debug("[sigremoval] doing line $line.");
 				my ($dummy1, $dummy2, $dummy3, $dummy4, $signer, $created, $dummy7, $dummy8, $dummy9) = split /:/, $line;
 				if ($signer eq $longkeyid) {
 					debug("[sigremoval] selfsig ($signer).");
@@ -701,6 +701,9 @@
 					debug("[sigremoval] not interested in that sig ($signer).");
 					$answer = "yes";
 				};
+			} else {
+				$stdout =~ s/\n/\\n/g;
+				debug("[sigremoval] no sig line here, only got: ".$stdout);
 			};
 			($stdout, $stderr, $status) =
 				readwrite_gpg($answer."\n", $inputfd, $stdoutfd, $stderrfd, $statusfd, exitwhenstatusmatches => $KEYEDIT_KEYEDIT_OR_DELSIG_PROMPT, nocloseinput => 1);