projects
/
pgp-tools.git
/ blobdiff
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Quote owner name in mail from: no noise esq. can keep her dot.
[pgp-tools.git]
/
caff
/
caff
diff --git
a/caff/caff
b/caff/caff
index 71a9dda1c33e3159a34554acc9074a4bb462e698..4eb9083a4ad564eb45c2196922ec8ef36692dac4 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;
@@
-463,7
+463,7
@@
$CONFIG{'owner'}
$message_entity->head->add("Subject", "Your signed PGP key 0x$key_id");
$message_entity->head->add("To", $address);
$message_entity->head->add("Subject", "Your signed PGP key 0x$key_id");
$message_entity->head->add("To", $address);
- $message_entity->head->add("From",
$CONFIG{'owner'}.'
<'.$CONFIG{'email'}.'>');
+ $message_entity->head->add("From",
'"'.$CONFIG{'owner'}.'"
<'.$CONFIG{'email'}.'>');
$message_entity->head->add("User-Agent", $USER_AGENT);
$message_entity->send();
$message_entity->stringify();
$message_entity->head->add("User-Agent", $USER_AGENT);
$message_entity->send();
$message_entity->stringify();
@@
-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;
};