upstream/monitoring-plugins
1
0
Fork 0
mirror of https://github.com/monitoring-plugins/monitoring-plugins.git synced 2026-05-28 04:35:40 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions

Add tools/generate-change-log

Browse source 
Add the tools/generate-change-log script for auto-generating the
ChangeLog file from the Git history when running "make dist".
This commit is contained in:
Holger Weiss 2013-09-28 00:58:02 +02:00
parent 9ae1cd8f91
commit 4ad0f80ec3
4 changed files with 76 additions and 16157 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
.gitignore vendored
View file

@ -6,6 +6,7 @@ NP-VERSION-FILE
/aclocal.m4
/autom4te*.cache
/Cache.pm
/ChangeLog
/command.cfg
/compile
/confdefs.h

16156
ChangeLog
View file

File diff suppressed because it is too large Load diff

9
Makefile.am
View file

@ -3,7 +3,7 @@
SUBDIRS = gl tap lib plugins plugins-scripts plugins-root po @PERLMODS_DIR@
EXTRA_DIST = config.rpath \
ABOUT-NLS ACKNOWLEDGEMENTS AUTHORS CODING FAQ LEGAL NEWS \
ABOUT-NLS ACKNOWLEDGEMENTS AUTHORS CODING ChangeLog FAQ LEGAL NEWS \
NP-VERSION-GEN REQUIREMENTS SUPPORT THANKS \
NPTest.pm pkg nagios-plugins.spec \
config_test/Makefile config_test/run_tests config_test/child_test.c \
@ -15,6 +15,13 @@ ACLOCAL_AMFLAGS = -I gl/m4 -I m4
localedir = $(datadir)/locale
DEFS = -DLOCALEDIR=\"$(localedir)\"
#
# The ChangeLog file is auto-generated from the Git history. We let it depend
# on NP-VERSION-GEN, as we bump our version number in that file.
#
ChangeLog: NP-VERSION-GEN
$(top_srcdir)/tools/generate-change-log > $@
dist-hook:
$(MAKE) THANKS
echo ${VERSION} >$(distdir)/release

67
tools/generate-change-log Executable file
View file

@ -0,0 +1,67 @@
#!/usr/bin/env perl
#
# Copyright (c) 2013 Nagios Plugins Development Team
#
# Originally written by Holger Weiss <holger@zedat.fu-berlin.de>.
#
# This file is free software; the Nagios Plugins Development Team gives
# unlimited permission to copy and/or distribute it, with or without
# modifications, as long as this notice is preserved.
#
# This program is distributed in the hope that it will be useful, but WITHOUT
# ANY WARRANTY, to the extent permitted by law; without even the implied
# warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
#
use warnings;
use strict;
use Text::Wrap;
# The lines will have a length of no more than $columns - 1.
$Text::Wrap::columns = 81;
if (system('git rev-parse --git-dir >/dev/null 2>&1') != 0) {
print "Not a Git repository, so I won't update the ChangeLog.\n";
exit 0;
}
my $regex =
'^commit [0-9a-f]+\n' .
'^Author: (?<name>.+) <(?<email>.*)>\n' .
'^Date: (?<date>\d{4}-\d{2}-\d{2})\n' .
'^\n' .
'(?<message>(^ .*\n)+)' .
'^\n' .
'(?<files>(^.+\n)+)';
my $git_log = qx'git log -M -C --stat --name-only --date=short';
die "Cannot get `git log' output\n" if $? != 0;
my ($prev_date, $prev_name, $prev_email);
while ($git_log =~ /$regex/gm) {
my %commit = %+;
if (not defined $prev_date
or $commit{date} ne $prev_date
or $commit{name} ne $prev_name
or $commit{email} ne $prev_email) {
print "$commit{date} $commit{name} <$commit{email}>\n\n";
}
$prev_date = $commit{date};
$prev_name = $commit{name};
$prev_email = $commit{email};
my @files = split(/\n/, $commit{files});
my @message = map { s/^ {4}//; $_ } split(/\n/, $commit{message});
my $first_line = shift(@message);
$first_line =~ s/^$files[-1]: //;
my $intro = sprintf('* %s: %s', join(', ', @files), $first_line);
print fill("\t", "\t", $intro), "\n";
foreach my $line (@message) {
print "\t$line" if length($line) > 0;
print "\n";
}
print "\n";
}