summaryrefslogtreecommitdiff
path: root/git-send-email-script
diff options
context:
space:
mode:
authorRyan Anderson <ryan@michonline.com>2005-08-01 00:04:24 (GMT)
committerJunio C Hamano <junkio@cox.net>2005-08-03 05:53:23 (GMT)
commit3342d8500f8393ace9030a44496943b6a8de1dc3 (patch)
tree9574efc2332465f8168e8711732d8234952e0b1c /git-send-email-script
parent8037d1a31a60e9645c56a8bebb01d0e13970b93f (diff)
downloadgit-3342d8500f8393ace9030a44496943b6a8de1dc3.zip
git-3342d8500f8393ace9030a44496943b6a8de1dc3.tar.gz
git-3342d8500f8393ace9030a44496943b6a8de1dc3.tar.bz2
[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 <junkio@cox.net>
Diffstat (limited to 'git-send-email-script')
-rwxr-xr-xgit-send-email-script11
1 files changed, 9 insertions, 2 deletions
diff --git a/git-send-email-script b/git-send-email-script
index 60aef63..4927cec 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)]);