[SVN] r385 - /branches/cvsmerge/parse-cvs-log

[debian at incase.de]

Author: sven
Date: Wed May  3 18:12:10 2006
New Revision: 385

URL: https://mail.incase.de/viewcvs?rev=385&root=cyrus22&view=rev
Log:
Add a small tool to reformat a CVS changelog (cvs log $filename) into a sortable format to easier identify changesets

Added:
    branches/cvsmerge/parse-cvs-log   (with props)

Added: branches/cvsmerge/parse-cvs-log
URL: https://mail.incase.de/viewcvs/branches/cvsmerge/parse-cvs-log?rev=385&root=cyrus22&view=auto
==============================================================================
--- branches/cvsmerge/parse-cvs-log (added)
+++ branches/cvsmerge/parse-cvs-log Wed May  3 18:12:10 2006
@@ -1,0 +1,82 @@
+#!/usr/bin/perl
+my $filename=$ARGV[1];
+my $crevision=undef;
+my $cdescription="";
+my $ctime=undef;
+while (<STDIN>) {
+	my $line=$_;
+
+	chomp $line;
+	if ($line =~ /^----------------------------/) {
+		if ( $crevision ) {
+			printf("%s ;%s ;%s ;%s ;%s ;\n",
+				$ctime,
+				$filename,
+				$cauthor,
+				$crevision,
+				$cdescription);
+		}
+		$crevision=undef;
+		$cdescription="";
+	} elsif ($line =~ /^Working file: (.*)$/) {
+		$filename=$1;
+	} elsif ($line =~ /^revision ([0-9.]*)$/) {
+		$crevision=$1;
+	} elsif ($line =~ /^date: ([0-9][0-9][0-9][0-9])\/([0-9][0-9])\/([0-9][0-9]) ([ 0-9][0-9]):([0-9][0-9]):([0-9][0-9]);.*author: ([^;]*);/) {
+		$ctime=$1 . $2 . $3 . "-" . $4 . $5 . $6 ;
+		$cauthor=$7;
+	} else {
+		$cdescription=$cdescription . $line;
+	}
+}
+
+exit 1;
+
+__END__
+RCS file: /cvs/src/cyrus/COPYRIGHT,v
+Working file: COPYRIGHT
+head: 1.7
+branch:
+locks: strict
+access list:
+symbolic names:
+	cyrus-release-2-2-13: 1.7
+	release-1-5-24: 1.1
+keyword substitution: kv
+total revisions: 8;	selected revisions: 8
+description:
+----------------------------
+revision 1.7
+date: 2000/10/12 20:45:21;  author: wcw;  state: Exp;  lines: +2 -25
+update as per tech transfer
+----------------------------
+revision 1.6
+date: 2000/06/01 00:37:35;  author: wcw;  state: Exp;  lines: +19 -1
+put plug back in
+----------------------------
+revision 1.5
+date: 2000/05/26 13:52:07;  author: wcw;  state: Exp;  lines: +24 -20
+temporary backout. bah
+----------------------------
+revision 1.4
+date: 2000/05/25 22:33:35;  author: wcw;  state: Exp;  lines: +2 -1
+oops, left out CMU
+----------------------------
+revision 1.3
+date: 2000/05/25 22:27:02;  author: wcw;  state: Exp;  lines: +57 -47
+latest changes
+----------------------------
+revision 1.2
+date: 1999/06/29 18:30:19;  author: leg;  state: Exp;  lines: +2 -2
+branches:  1.2.2;
+callbacks and other fixes
+----------------------------
+revision 1.1
+date: 1999/01/12 16:18:41;  author: tjs;  state: Exp;
+To make the copyright a little more obvious, I'm adding a copy here at the
+top level.
+----------------------------
+revision 1.2.2.1
+date: 2000/10/12 21:08:26;  author: wcw;  state: Exp;  lines: +55 -45
+update as per tech transfer
+=============================================================================

Propchange: branches/cvsmerge/parse-cvs-log
------------------------------------------------------------------------------
    svn:executable = *