5 ./git2changelog.pl Release-3.0.1..Release-3.0.2
15 my $refs = shift || '';
16 open(FP, "git log --no-merges --pretty=format:'%ct: %s' $refs|") or die "Can't run git log $!";
17 while (my $l = <FP>) {
19 # remove non useful messages
20 next if ($l =~ /(tweak|typo|cleanup|bweb:|regress:|again|.gitignore|fix compilation|technotes)/ixs);
21 next if ($l =~ /update (version|technotes|kernstodo|projects|releasenotes|version|home|release|todo|notes|changelog)/i);
23 # keep list of fixed bugs
28 # remove old commit format
29 $l =~ s/^(\d+): (kes|ebl) /$1: /;
31 if ($l =~ /(\d+): (.+)/) {
33 my $dnow = strftime('%d%b%y', localtime($1));
36 # avoid identical multiple commit message
37 next if ($last_txt eq $txt);
40 # We format the string on 79 caracters
42 $txt =~ s/.{70,77} /$&\n /g;
44 # if we are the same day, just add entry
52 print STDERR "invalid format: $l\n";
58 print "\nBug fixes\n";
59 print join(" ", sort keys %bugs), "\n";