diff options
| author | Ryan Anderson <ryan@michonline.com> | 2006-02-02 11:56:06 -0500 |
|---|---|---|
| committer | Junio C Hamano <junkio@cox.net> | 2006-02-02 17:52:51 -0800 |
| commit | 30d08b34aa268e3bd4c93fa712e2eac66f1a15b3 (patch) | |
| tree | 57d8077122e353f11722113bf3931ff8251fd8d1 /git-send-email.perl | |
| parent | d366c7037679794edff38cdbc422997607aca5f1 (diff) | |
| download | git-30d08b34aa268e3bd4c93fa712e2eac66f1a15b3.tar.gz git-30d08b34aa268e3bd4c93fa712e2eac66f1a15b3.tar.xz | |
git-send-email: Add --quiet to reduce some of the chatter when sending emails.
Signed-off-by: Ryan Anderson <ryan@michonline.com>
Signed-off-by: Junio C Hamano <junkio@cox.net>
Diffstat (limited to 'git-send-email.perl')
| -rwxr-xr-x | git-send-email.perl | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/git-send-email.perl b/git-send-email.perl index 51b7513b5..2977b9ade 100755 --- a/git-send-email.perl +++ b/git-send-email.perl @@ -34,7 +34,7 @@ my $compose_filename = ".msg.$$"; my (@to,@cc,$initial_reply_to,$initial_subject,@files,$from,$compose); # Behavior modification variables -my ($chain_reply_to, $smtp_server) = (1, "localhost"); +my ($chain_reply_to, $smtp_server, $quiet) = (1, "localhost", 0); # Example reply to: #$initial_reply_to = ''; #<20050203173208.GA23964@foobar.com>'; @@ -51,6 +51,7 @@ my $rc = GetOptions("from=s" => \$from, "chain-reply-to!" => \$chain_reply_to, "smtp-server=s" => \$smtp_server, "compose" => \$compose, + "quiet" => \$quiet, ); # Now, let's fill any that aren't set in with defaults: @@ -267,8 +268,10 @@ sub send_message sendmail(%mail) or die $Mail::Sendmail::error; - print "OK. Log says:\n", $Mail::Sendmail::log; - print "\n\n" + unless ($quiet) { + print "OK. Log says:\n", $Mail::Sendmail::log; + print "\n\n" + } } |