mirrors/git
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

git-send-email: Fully implement --quiet and document it.

Browse Source 
Also reorganizes the man page to list options alphabetically.

Signed-off-by: Ryan Anderson <ryan@michonline.com>
Signed-off-by: Junio C Hamano <junkio@cox.net>
This commit is contained in:
Ryan Anderson
2006-02-05 20:13:52 -05:00
committed by Junio C Hamano
parent df9892ffce
commit 2718435b7b
2 changed files with 43 additions and 32 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
git-send-email.perl
View File

@ -186,7 +186,9 @@ for my $f (@ARGV) {
}
if (@files) {
print $_,"\n" for @files;
unless ($quiet) {
print $_,"\n" for (@files);
}
} else {
print <<EOT;
git-send-email [options] <file | directory> [... file | directory ]
@ -213,6 +215,10 @@ Options:
--smtp-server If set, specifies the outgoing SMTP server to use.
Defaults to localhost.
--quiet Make git-send-email less verbose. One line per email should be
all that is output.
Error: Please specify a file or a directory on the command line.
EOT
exit(1);
@ -268,7 +274,9 @@ sub send_message
sendmail(%mail) or die $Mail::Sendmail::error;
unless ($quiet) {
if ($quiet) {
printf "Sent %s\n", $subject;
} else {
print "OK. Log says:\n", $Mail::Sendmail::log;
print "\n\n"
}
@ -280,7 +288,6 @@ make_message_id();
$subject = $initial_subject;
foreach my $t (@files) {
my $F = $t;
open(F,"<",$t) or die "can't open file $t";
@cc = ();
@ -298,7 +305,7 @@ foreach my $t (@files) {
} elsif (/^(Cc|From):\s+(.*)$/) {
printf("(mbox) Adding cc: %s from line '%s'\n",
$2, $_);
$2, $_) unless $quiet;
push @cc, $2;
}
@ -310,7 +317,7 @@ foreach my $t (@files) {
# So let's support that, too.
if (@cc == 0) {
printf("(non-mbox) Adding cc: %s from line '%s'\n",
$_, $_);
$_, $_) unless $quiet;
push @cc, $_;
@ -330,7 +337,7 @@ foreach my $t (@files) {
chomp $c;
push @cc, $c;
printf("(sob) Adding cc: %s from line '%s'\n",
$c, $_);
$c, $_) unless $quiet;
}
}
}