From ce5251d7b37f58d1871559050afb7c34a7d05dc7 Mon Sep 17 00:00:00 2001 From: Eric Bollengier Date: Thu, 29 Jul 2010 08:41:24 +0200 Subject: [PATCH] tweak git2changelog --- bacula/release/git2changelog.pl | 17 ++++++++++++++--- 1 file changed, 14 insertions(+), 3 deletions(-) diff --git a/bacula/release/git2changelog.pl b/bacula/release/git2changelog.pl index de65cfebd5..6f832b180d 100755 --- a/bacula/release/git2changelog.pl +++ b/bacula/release/git2changelog.pl @@ -4,6 +4,9 @@ ./git2changelog.pl Release-3.0.1..Release-3.0.2 + For bweb ReleaseNotes, use + FORBWEB=1 ./git2changelog.pl Release-3.0.1..Release-3.0.2 + =cut use strict; @@ -13,12 +16,20 @@ my $d=''; my $last_txt=''; my %bugs; my $refs = shift || ''; -open(FP, "git log --no-merges --pretty=format:'%ct: %s' $refs|") or die "Can't run git log $!"; +my $for_bweb = $ENV{FORBWEB}?1:0; +open(FP, "git log --no-merges --pretty=format:'%at: %s' $refs|") or die "Can't run git log $!"; while (my $l = ) { # remove non useful messages - next if ($l =~ /(tweak|typo|cleanup|bweb:|regress:|again|.gitignore|fix compilation|technotes)/ixs); - next if ($l =~ /update (version|technotes|kernstodo|projects|releasenotes|version|home|release|todo|notes|changelog)/i); + next if ($l =~ /(tweak|typo|cleanup|regress:|again|.gitignore|fix compilation|technotes)/ixs); + next if ($l =~ /update (version|technotes|kernstodo|projects|releasenotes|version|home|release|todo|notes|changelog|tpl|configure)/i); + + if ($for_bweb) { + next if ($l !~ /bweb/ixs); + $l =~ s/bweb: *//ig; + } else { + next if ($l =~ /bweb:/ixs); + } # keep list of fixed bugs if ($l =~ /#(\d+)/) { -- 2.39.5