Add options to git_changelog for use in major release note creation:

	--details-after
	--master-only
	--oldest-first

diff --git a/src/tools/git_changelog b/src/tools/git_changelog
index 7276c11a5f6fe06cb7f5e753d53111f8c1dee55b..ee27764ae60ed7698e78ca818846092713874e26 100755 (executable)
--- a/src/tools/git_changelog
+++ b/src/tools/git_changelog
@@ -40,10 +40,19 @@ my @BRANCHES = qw(master
 # Might want to make this parameter user-settable.
 my $timestamp_slop = 600;
 
+my $details_after = 0;
 my $post_date = 0;
+my $master_only = 0;
+my $oldest_first = 0;
 my $since;
-Getopt::Long::GetOptions('post-date' => \$post_date,
-                         'since=s' => \$since) || usage();
+my @output_buffer;
+my $output_line = '';
+
+Getopt::Long::GetOptions('details-after' => \$details_after,
+            'master-only' => \$master_only,
+            'post-date' => \$post_date,
+            'oldest-first' => \$oldest_first,
+            'since=s' => \$since) || usage();
 usage() if @ARGV;
 
 my @git = qw(git log --format=fuller --date=iso);
@@ -179,17 +188,17 @@ while (1) {
    last if !defined $best_branch;
    my $winner =
        $all_commits_by_branch{$best_branch}->[$position{$best_branch}];
-   printf "Author: %s\n", $winner->{'author'};
-   foreach my $c (@{$winner->{'commits'}}) {
-       printf "Branch: %s", $c->{'branch'};
-       if (defined $c->{'last_tag'}) {
-       printf " Release: %s", $c->{'last_tag'};
-       }
-       printf " [%s] %s\n", substr($c->{'commit'}, 0, 9), $c->{'date'};
+
+   # check for master-only
+   if (! $master_only || ($winner->{'commits'}[0]->{'branch'} eq 'master' &&
+       @{$winner->{'commits'}} == 1)) {
+       output_details($winner) if (! $details_after);
+       output_str("%s", $winner->{'message'} . "\n");
+       output_details($winner) if ($details_after);
+       unshift(@output_buffer, $output_line) if ($oldest_first);
+       $output_line = '';
    }
-   print "\n";
-   print $winner->{'message'};
-   print "\n";
+
    $winner->{'done'} = 1;
    for my $branch (@BRANCHES) {
        my $leader = $all_commits_by_branch{$branch}->[$position{$branch}];
@@ -200,6 +209,8 @@ while (1) {
    }
 }
 
+print @output_buffer if ($oldest_first);
+
 sub push_commit {
    my ($c) = @_;
    my $ht = hash_commit($c);
@@ -258,11 +269,38 @@ sub parse_datetime {
    return $gm - $tzoffset;
 }
 
+sub output_str {
+   ($oldest_first) ? ($output_line .= sprintf(shift, @_)) : printf(@_);
+}
+
+sub output_details {
+   my $item = shift;
+
+   if ($details_after) {
+       $item->{'author'} =~ m{^(.*?)\s*<[^>]*>$};
+       # output only author name, not email address
+       output_str("(%s)\n", $1);
+   } else {
+       output_str("Author: %s\n", $item->{'author'});
+   }
+   foreach my $c (@{$item->{'commits'}}) {
+       output_str("Branch: %s ", $c->{'branch'}) if (! $master_only);
+       if (defined $c->{'last_tag'}) {
+       output_str("Release: %s ", $c->{'last_tag'});
+       }
+       output_str("[%s] %s\n", substr($c->{'commit'}, 0, 9), $c->{'date'});
+   }
+   output_str("\n");
+}
+
 sub usage {
    print STDERR <<EOM;
-Usage: git_changelog [--post-date/-p] [--since=SINCE]
-    --post-date Show branches made after a commit occurred
-    --since     Print only commits dated since SINCE
+Usage: git_changelog [--details-after/-d] [--master-only/-m] [--oldest-first/-o] [--post-date/-p] [--since=SINCE]
+    --details-after Show branch and author info after the commit description
+    --master-only   Show commits made exclusively to the master branch
+    --oldest-first  Show oldest commits first
+    --post-date     Show branches made after a commit occurred
+    --since         Print only commits dated since SINCE
 EOM
    exit 1;
 }