summaryrefslogtreecommitdiff
path: root/git-send-email-script
blob: 9061ecdf5be77a09cd89d285c1057d4a1ec7dd38 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
#!/usr/bin/perl -w
# horrible hack of a script to send off a large number of email messages, one after
# each other, all chained together.  This is useful for large numbers of patches.
#
# Use at your own risk!!!!
#
# greg kroah-hartman Jan 8, 2002
# <greg@kroah.com>
#
# GPL v2 (See COPYING)
# 
# Ported to support git "mbox" format files by Ryan Anderson <ryan@michonline.com>
#
# Sends emails to the email listed on the command line.
# 
# updated to give a valid subject and CC the owner of the patch - Jan 2005
# first line of the message is who to CC, 
# and second line is the subject of the message.
# 
 
use strict;
use warnings;
use Term::ReadLine;
use Mail::Sendmail;
use Getopt::Long;
use Data::Dumper;
use Email::Valid;
 
# Variables we fill in automatically, or via prompting:
my (@to,@cc,$initial_reply_to,$initial_subject,@files,$from);
 
# Example of them
# modify these options each time you run the script
#$to = 'torvalds@osdl.org,git@vger.kernel.org';
#$initial_reply_to = ''; #<20050203173208.GA23964@foobar.com>';
#$initial_subject = "[PATCH] Deb package build fixes";
#@files = (qw(
#0001-Make-debian-rules-executable-and-correct-the-spelling-of-rsync-in.txt
#0002-Debian-packages-should-include-the-binaries.txt
#0003-The-deb-package-building-needs-these-two-new-files-to-work-correctly.txt
#));
 
# change this to your email address.
#$from = "Ryan Anderson <ryan\@michonline.com>";
 
my $term = new Term::ReadLine 'git-send-email';
 
# Begin by accumulating all the variables (defined above), that we will end up
# needing, first, from the command line:
 
my $rc = GetOptions("from=s" => \$from,
                    "in-reply-to=s" => \$initial_reply_to,
		    "subject=s" => \$initial_subject,
		    "to=s" => \@to,
	 );
 
# Now, let's fill any that aren't set in with defaults:
 
open(GITVAR,"-|","git-var","-l")
	or die "Failed to open pipe from git-var: $!";
 
my ($author,$committer);
while(<GITVAR>) {
	chomp;
	my ($var,$data) = split /=/,$_,2;
	my @fields = split /\s+/, $data;
 
	my $ident = join(" ", @fields[0...(@fields-3)]);
 
	if ($var eq 'GIT_AUTHOR_IDENT') {
		$author = $ident;
	} elsif ($var eq 'GIT_COMMITTER_IDENT') {
		$committer = $ident;
	}
}
close(GITVAR);
 
 
if (!defined $from) {
	$from = $author || $committer;
	1 while (!defined ($_ = $term->readline("Who should the emails appear to be from? ", 
				$from)));
	$from = $_;
	print "Emails will be sent from: ", $from, "\n";
}
 
if (!@to) {
	1 while (!defined ($_ = $term->readline("Who should the emails be sent to? ", 
				"")));
	my $to = $_;
	push @to, split /,/, $to;
}
 
if (!defined $initial_subject) {
	1 while (!defined ($_ = 
		$term->readline("What subject should the emails start with? ", 
			$initial_subject)));
	$initial_subject = $_;
}
 
if (!defined $initial_reply_to) {
	1 while (!defined ($_ = 
		$term->readline("Message-ID to be used as In-Reply-To? ", 
			$initial_reply_to)));
	$initial_reply_to = $_;
}
 
# 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) {
	if (-d $f) {
		opendir(DH,$f)
			or die "Failed to opendir $f: $!";
 
		push @files, map { +$f . "/" . $_ } grep !/^\.{1,2}$/,
			sort readdir(DH);
	} elsif (-f $f) {
		push @files, $f;
 
	} else {
		print STDERR "Skipping $f - not found.\n";
	}
}
 
if (@files) {
	print $_,"\n" for @files;
} else {
	print <<EOT;
git-send-email-script [options] <file | directory> [... file | directory ]
Options:
   --from         Specify the "From:" line of the email to be sent.
   --to	          Specify the primary "To:" line of the email.
   --subject      Specify the initial "Subject:" line.
   --in-reply-to  Specify the first "In-Reply-To:" header line.
 
Error: Please specify a file or a directory on the command line.
EOT
	exit(1);
}
 
# Variables we set as part of the loop over files
our ($message_id, $cc, %mail, $subject, $reply_to, $message);
 
 
# Usually don't need to change anything below here.
 
# we make a "fake" message id by taking the current number
# of seconds since the beginning of Unix time and tacking on
# a random number to the end, in case we are called quicker than
# 1 second since the last time we were called.
sub make_message_id
{
	my $date = `date "+\%s"`;
	chomp($date);
	my $pseudo_rand = int (rand(4200));
	$message_id = "<$date$pseudo_rand\@foobar.com>";
	print "new message id = $message_id\n";
}
 
 
 
$cc = "";
 
sub send_message
{
	my %to;
	$to{lc(Email::Valid->address($_))}++ for (@to);
 
	my $to = join(",", keys %to);
 
	%mail = (	To	=>	$to,
			From	=>	$from,
			CC	=>	$cc,
			Subject	=>	$subject,
			Message	=>	$message,
			'Reply-to'	=>	$from,
			'In-Reply-To'	=>	$reply_to,
			'Message-ID'	=>	$message_id,
			'X-Mailer'	=>	"git-send-email-script",
		);
 
	$mail{smtp} = 'localhost';
 
	#print Data::Dumper->Dump([\%mail],[qw(*mail)]);
 
	sendmail(%mail) or die $Mail::Sendmail::error;
 
	print "OK. Log says:\n", $Mail::Sendmail::log;
	print "\n\n"
}
 
 
$reply_to = $initial_reply_to;
make_message_id();
$subject = $initial_subject;
 
foreach my $t (@files) {
	my $F = $t;
	open(F,"<",$t) or die "can't open file $t";
 
	@cc = ();
	my $found_mbox = 0;
	my $header_done = 0;
	$message = "";
	while(<F>) {
		if (!$header_done) {
			$found_mbox = 1, next if (/^From /);
			chomp;
 
			if ($found_mbox) {
				if (/^Subject:\s+(.*)$/) {
					$subject = $1;
 
				} elsif (/^(Cc|From):\s+(.*)$/) {
					printf("(mbox) Adding cc: %s from line '%s'\n",
						$2, $_);
					push @cc, $2;
				}
 
			} else {
				# In the traditional
				# "send lots of email" format,
				# line 1 = cc
				# line 2 = subject
				# So let's support that, too.
				if (@cc == 0) {
					printf("(non-mbox) Adding cc: %s from line '%s'\n",
						$_, $_);
 
					push @cc, $_;
 
				} elsif (!defined $subject) {
					$subject = $_;
				}
			}
 
			# A whitespace line will terminate the headers
			if (m/^\s*$/) {
				$header_done = 1;
			}
		} else {
			$message .=  $_;
			if (/^Signed-off-by: (.*)$/i) {
				my $c = $1;
				chomp $c;
				push @cc, $c;
				printf("(sob) Adding cc: %s from line '%s'\n",
					$c, $_);
			}
		}
	}
	close F;
 
	my %clean_ccs;
	$clean_ccs{lc(Email::Valid->address($_))}++ for @cc;
 
	$cc = join(",", keys %clean_ccs);
 
	send_message();
 
	# set up for the next message
	$reply_to = $message_id;
	make_message_id();
#	$subject = "Re: ".$initial_subject;
}