You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
119 lines
2.3 KiB
119 lines
2.3 KiB
#!/usr/bin/perl -w
|
|
# (c) Copyright by authors of the Tiki Wiki CMS Groupware Project
|
|
#
|
|
# All Rights Reserved. See copyright.txt for details and a complete list of authors.
|
|
# Licensed under the GNU LESSER GENERAL PUBLIC LICENSE. See license.txt for details.
|
|
# $Id$
|
|
|
|
use strict;
|
|
|
|
my $lastFile;
|
|
|
|
my %already;
|
|
|
|
my (@msgs, @new, @mod, @fix, @enh, @uncateg);
|
|
|
|
my %files;
|
|
|
|
our $TAG = 'REL-1-9-2';
|
|
our $CVSCMD = 'cvs log -N -r'.$TAG.'::';
|
|
|
|
#below is untested
|
|
if (!defined $ARGV[0]) {
|
|
open(CVSCMD, $CVSCMD."|");
|
|
*STDIN = *CVSCMD;
|
|
}
|
|
|
|
while (my $line = <>) {
|
|
if ($line =~ m|^RCS file:|) {
|
|
$line = <>;
|
|
|
|
($lastFile) = $line =~ /Working file:\s*(\S+)/;
|
|
}
|
|
|
|
$lastFile or next;
|
|
|
|
if ($line =~ /^description:/) {
|
|
$line = <>;
|
|
|
|
my $msg;
|
|
|
|
while ($line && $line !~ /^=+$/) {
|
|
$msg = '';
|
|
|
|
my $revision = <>;
|
|
my $date = <>;
|
|
|
|
if ($revision !~ /^revision/ || $date !~ /^date:/) {
|
|
die "bug!";
|
|
}
|
|
|
|
$line = <>;
|
|
while ($line !~ /^[-=]+$/) {
|
|
$msg .= $line;
|
|
$line = <>;
|
|
if ($line =~ /\[(MOD|ADD|NEW|FIX|ENH)\]/) {
|
|
registerMsg($msg);
|
|
$msg = '';
|
|
}
|
|
}
|
|
registerMsg($msg);
|
|
}
|
|
}
|
|
}
|
|
|
|
&printMsgs('New features', @new);
|
|
&printMsgs('Modifications', @mod);
|
|
&printMsgs('Enhancements', @enh);
|
|
&printMsgs('Bugfixes', @fix);
|
|
&printMsgs('Uncategorized', @uncateg);
|
|
|
|
|
|
sub registerMsg {
|
|
my $msg = shift;
|
|
chomp $msg;
|
|
if ($msg) {
|
|
if (!$already{$msg}) {
|
|
push @msgs, $msg;
|
|
if ($msg =~ /\[(ADD|NEW)\]/) {
|
|
push @new, $msg;
|
|
} elsif ($msg =~ /\[MOD\]/) {
|
|
push @mod, $msg;
|
|
} elsif ($msg =~ /\[FIX\]/) {
|
|
push @fix, $msg;
|
|
} elsif ($msg =~ /\[ENH\]/) {
|
|
push @enh, $msg;
|
|
} else {
|
|
push @uncateg, $msg;
|
|
}
|
|
|
|
$files{$msg} = [ $lastFile ];
|
|
|
|
$already{$msg} = 1;
|
|
} else {
|
|
push @{$files{$msg}}, $lastFile;
|
|
}
|
|
}
|
|
}
|
|
|
|
sub printMsgs {
|
|
my $title = shift;
|
|
my @list = @_;
|
|
|
|
print '=' x 30, "\n";
|
|
print $title, ":\n";
|
|
|
|
foreach my $msg (@list) {
|
|
print $msg, "\n";
|
|
print '-' x 30, "\n";
|
|
}
|
|
print "\n";
|
|
}
|
|
|
|
sub help {
|
|
print "usage: parse_changelog.pl cvslogfile.txt\n";
|
|
print 'use "$CVSCMD > cvslogfile.txt" to obtain log', "\n";
|
|
exit;
|
|
}
|
|
|
|
1;
|