undef/git-commit-vandalism
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

[PATCH] Make the SMTP server used by git-sendm-email-script configurable on the command line with "--smtp-server"

Browse Source 
git-send-email-script |   11 +++++++++--
 1 files changed, 9 insertions(+), 2 deletions(-)

a21efe6d21d9f1aca09453ed2a4e2a2ff2d98ce6
Signed-off-by: Junio C Hamano <junkio@cox.net>
This commit is contained in:
Ryan Anderson 2005-07-31 20:04:24 -04:00 committed by Junio C Hamano
parent 8037d1a31a
commit 3342d8500f
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
git-send-email-script
View File

@ -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)]);