From: Martin Mares <mj@ucw.cz>
Date: Mon, 31 May 2004 22:34:43 +0000 (+0000)
Subject: Improved cvslog script.
X-Git-Tag: holmes-import~1060
X-Git-Url: http://mj.ucw.cz/gitweb/?a=commitdiff_plain;h=565b06449d4ffe2959efff47f99a02f4b09ea2c7;p=libucw.git

Improved cvslog script.
---

diff --git a/build/cvslog b/build/cvslog
index feded092..fd2f0ca4 100755
--- a/build/cvslog
+++ b/build/cvslog
@@ -1,13 +1,27 @@
 #!/usr/bin/perl
 # Process `cvs log' output to get a resonable changelog
-# (c) 2003 Martin Mares <mj@ucw.cz>
+# (c) 2003--2004 Martin Mares <mj@ucw.cz>
 
 use Digest::MD5;
 use POSIX;
 
+my %names= (
+	'mj'		=> 'Martin Mares <mj@ucw.cz>',
+	'robert'	=> 'Robert Spalek <robert@ucw.cz>',
+	'tom'		=> 'Tomas Valla <tom@ucw.cz>',
+	'valla'		=> 'Tomas Valla <tom@ucw.cz>',
+	'milan'		=> 'Milan Vancura <milan@ucw.cz>',
+	'milanek'	=> 'Milan Vancura <milan@ucw.cz>',
+	'tomhol'	=> 'Tomas Holusa <tomas.holusa@netcentrum.cz>',
+	'centrum'	=> 'Tomas Holusa <tomas.holusa@netcentrum.cz>',
+	'root'		=> 'Tomas Holusa <tomas.holusa@netcentrum.cz>',
+	'pavel'		=> 'Pavel Machek <pavel@ucw.cz>'
+);
+
 while (<STDIN>) {
 	chomp;
 	/^$/ && next;
+	/^[?]/ && next;
 	/^RCS file: / || die;
 	$_ = <STDIN>;
 	chomp;
@@ -22,27 +36,32 @@ while (<STDIN>) {
 		if (/^------/) { $_ = <STDIN>; next; }
 		/^revision / || die;
 		$_ = <STDIN>;
+		my ($author) = /;\s*author:\s*([^;]+)/ or die;
 		my ($yy,$mm,$dd,$HH,$MM,$SS) = /^date: (....)\/(..)\/(..) (..):(..):(..);/ or die;
 		my $t = POSIX::mktime($SS,$MM,$HH,$dd,$mm-1,$yy-1900) or die;
 		my $T = sprintf("%06d", int(($t + 1800)/3600));
 		$d = "";
 		while ($_ = <STDIN>) {
 			/^(-----|=====)/ && last;
-			$d .= $_;
+			$d .= "  $_";
 		}
 		my $id = "$T:" . Digest::MD5::md5_hex($d);
 		if (!defined $msg{$id}) {
 			$date{$id} = "$yy-$mm-$dd $HH:$MM:$SS";
 			$msg{$id} = $d;
 			$files{$id} = "";
+			$author{$id} = $author;
 		}
-		$files{$id} .= "\t* $file\n";
+		$files{$id} .= "  * $file\n";
 		#print "\t$id\n";
 	}
 }
 
 foreach $id (sort keys %date) {
-	print "### ", $date{$id}, "\n\n";
+	if (!exists ($names{$author{$id}})) {
+		die "Unknown commiter $author{$id}";
+	}
+	print "### ", $date{$id}, "  ", $names{$author{$id}}, "\n\n";
 	print $files{$id}, "\n";
 	print $msg{$id}, "\n";
 }