blob: 9c4447313d92862826ffa78abea4b2ebb74e06b0 (
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
|
#!/usr/bin/perl
$f=shift;
open IN,"hg diff|diffstat -p1 |";
my $n=2;
my $from="";
my $first="";
my $changed="";
$out="";
while (<IN>) {
$changed="$changed#$_";
}
my $user = $ENV{HGUSER};
if ( $user eq "" ) {
my $name = $ENV{CHANGE_LOG_NAME};
my $email = $ENV{CHANGE_LOG_EMAIL_ADDRESS};
$user="$name <$email>";
}
$first= "# Please change bellow if you are not patch author\n#\nFrom: $user";
$out= "# At the end Signed-off-by: fields by patch author and commiter, at least\n#\nSigned-off-by: $user";
$from= "From: $user";
printf "#Added/removed/changed files:\n%s#\n" .
"# For better log display, please keep a blank line after subject, after from\n" .
"# and before signed-off-by\n" .
"# First line should be the subject, without Subject:\n#\n\n\n" .
"# Now, patch author (just the main one), on a From: field\n" .
"# Please change bellow if the commiter is not the patch author\n#\n%s\n\n" .
"# Then a detailed description:\n\n\n%s",
$changed,$from,$out;
|
