projects
/
pgp-tools.git
/ blobdiff
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
GnuPG 1.3.92 does all we want
[pgp-tools.git]
/
caff
/
caff
diff --git
a/caff/caff
b/caff/caff
index 71a9dda1c33e3159a34554acc9074a4bb462e698..b7d19d71aff159d9fad76ec710a4f683ef0e3dff 100755
(executable)
--- a/
caff/caff
+++ b/
caff/caff
@@
-200,7
+200,7
@@
sub info($) {
};
sub debug($) {
my ($line) = @_;
};
sub debug($) {
my ($line) = @_;
- print "[DEBUG] $line\n";
+
#
print "[DEBUG] $line\n";
};
sub trace($) {
my ($line) = @_;
};
sub trace($) {
my ($line) = @_;
@@
-247,7
+247,7
@@
sub readwrite_gpg($$$$$%) {
my ($stdout, $stderr, $status) = ("", "", "");
my $exitwhenstatusmatches = $options{'exitwhenstatusmatches'};
my ($stdout, $stderr, $status) = ("", "", "");
my $exitwhenstatusmatches = $options{'exitwhenstatusmatches'};
- trace("doi
gn
stuff until we find $exitwhenstatusmatches") if defined $exitwhenstatusmatches;
+ trace("doi
ng
stuff until we find $exitwhenstatusmatches") if defined $exitwhenstatusmatches;
my $readwrote_stuff_this_time = 0;
my $do_not_wait_on_select = 0;
my $readwrote_stuff_this_time = 0;
my $do_not_wait_on_select = 0;
@@
-596,7
+596,7
@@
for my $keyid (@keyids_ok) {
while (1) {
my $this_uid_text = '';
$uid_number++;
while (1) {
my $this_uid_text = '';
$uid_number++;
-
info
("Doing key $keyid, uid $uid_number");
+
debug
("Doing key $keyid, uid $uid_number");
# import into temporary gpghome
###############################
# import into temporary gpghome
###############################
@@
-665,7
+665,7
@@
for my $keyid (@keyids_ok) {
next;
};
unless ($have_one) {
next;
};
unless ($have_one) {
-
info
("Uid ".($uid_number-1)." was the last, there is no $uid_number.");
+
debug
("Uid ".($uid_number-1)." was the last, there is no $uid_number.");
info("key $keyid done.");
last;
};
info("key $keyid done.");
last;
};