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) = @_;
-       print "[DEBUG] $line\n";
+       #print "[DEBUG] $line\n";
 };
 sub trace($) {
        my ($line) = @_;
@@ -247,7 +247,7 @@ sub readwrite_gpg($$$$$%) {
 
        my ($stdout, $stderr, $status) = ("", "", "");
        my $exitwhenstatusmatches = $options{'exitwhenstatusmatches'};
-       trace("doign stuff until we find $exitwhenstatusmatches") if defined $exitwhenstatusmatches;
+       trace("doing stuff until we find $exitwhenstatusmatches") if defined $exitwhenstatusmatches;
 
        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++;
-               info("Doing key $keyid, uid $uid_number");
+               debug("Doing key $keyid, uid $uid_number");
 
                # import into temporary gpghome
                ###############################
@@ -665,7 +665,7 @@ for my $keyid (@keyids_ok) {
                        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;
                };