next;
};
unless ($have_one) {
+ info("Uid ".($uid_number-1)." was the last, there is no $uid_number.");
info("key $keyid done.");
last;
};
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";
};
};