From: Eric Bollengier <eric@eb.homelinux.org>
Date: Thu, 29 Jul 2010 06:41:24 +0000 (+0200)
Subject: tweak git2changelog
X-Git-Tag: Release-5.0.3~47
X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=ce5251d7b37f58d1871559050afb7c34a7d05dc7;p=bacula%2Fbacula

tweak git2changelog
---

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 = <FP>) {
 
     # 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+)/) {