From 3342d8500f8393ace9030a44496943b6a8de1dc3 Mon Sep 17 00:00:00 2001 From: Ryan Anderson Date: Sun, 31 Jul 2005 20:04:24 -0400 Subject: [PATCH] [PATCH] Make the SMTP server used by git-sendm-email-script configurable on the command line with "--smtp-server" git-send-email-script | 11 +++++++++-- 1 files changed, 9 insertions(+), 2 deletions(-) a21efe6d21d9f1aca09453ed2a4e2a2ff2d98ce6 Signed-off-by: Junio C Hamano --- git-send-email-script | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) diff --git a/git-send-email-script b/git-send-email-script index 60aef6324..4927cec3d 100755 --- a/git-send-email-script +++ b/git-send-email-script @@ -28,7 +28,7 @@ use Email::Valid; my (@to,@cc,$initial_reply_to,$initial_subject,@files,$from); # Behavior modification variables -my ($chain_reply_to) = (1); +my ($chain_reply_to, $smtp_server) = (1, "localhost"); # Example reply to: #$initial_reply_to = ''; #<20050203173208.GA23964@foobar.com>'; @@ -43,6 +43,7 @@ my $rc = GetOptions("from=s" => \$from, "subject=s" => \$initial_subject, "to=s" => \@to, "chain-reply-to!" => \$chain_reply_to, + "smtp-server=s" => \$smtp_server, ); # Now, let's fill any that aren't set in with defaults: @@ -105,6 +106,10 @@ if (!defined $initial_reply_to) { $initial_reply_to =~ s/(^\s+|\s+$)//g; } +if (!defined $smtp_server) { + $smtp_server = "localhost"; +} + # Now that all the defaults are set, process the rest of the command line # arguments and collect up the files that need to be processed. for my $f (@ARGV) { @@ -135,6 +140,8 @@ Options: --in-reply-to Specify the first "In-Reply-To:" header line. --chain-reply-to If set, the replies will all be to the first email sent, rather than to the last email sent. + --smtp-server If set, specifies the outgoing SMTP server to use. + Defaults to localhost. Error: Please specify a file or a directory on the command line. EOT @@ -187,7 +194,7 @@ sub send_message 'X-Mailer' => "git-send-email-script", ); - $mail{smtp} = 'localhost'; + $mail{smtp} = $smtp_server; $mailcfg{mime} = 0; #print Data::Dumper->Dump([\%mail],[qw(*mail)]); -- 2.45.2