From: Martin Mares <mj@ucw.cz>
Date: Fri, 9 Jun 2006 15:53:08 +0000 (+0200)
Subject: Removed the CVS log analyser scripts, they are no longer useful.
X-Git-Tag: holmes-import~641^2~1
X-Git-Url: http://mj.ucw.cz/gitweb/?a=commitdiff_plain;h=391d1e7e08863689f890581448b995efff6ec2e0;p=libucw.git

Removed the CVS log analyser scripts, they are no longer useful.
---

diff --git a/build/cvslog b/build/cvslog
deleted file mode 100755
index cd7615cc..00000000
--- a/build/cvslog
+++ /dev/null
@@ -1,70 +0,0 @@
-#!/usr/bin/perl
-# Process `cvs log' output to get a resonable changelog
-# (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>',
-	'th2'		=> 'Tomas Holenda <tomas.holenda@netcentrum.cz>',
-	'croniak'	=> 'Vladimir Jelen <vladimir.jelen@netcentrum.cz>',
-);
-
-while (<STDIN>) {
-	chomp;
-	/^$/ && next;
-	/^[?]/ && next;
-	/^RCS file: / || die;
-	$_ = <STDIN>;
-	chomp;
-	my ($file) = /^Working file: (.*)$/ or die;
-	#print "$file\n";
-	do {
-		$_ = <STDIN> or die;
-	} while (!/^description:/);
-	$_ = <STDIN>;
-	for(;;) {
-		/^======/ && last;
-		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 .= "  $_";
-		}
-		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} .= "  * $file\n";
-		#print "\t$id\n";
-	}
-}
-
-foreach $id (sort keys %date) {
-	if (!exists ($names{$author{$id}})) {
-		print STDERR "Unknown commiter $author{$id}\n";
-		$names{$author{$id}} = "unknown $author{$id}";
-	}
-	print "### ", $date{$id}, "  ", $names{$author{$id}}, "\n\n";
-	print $files{$id}, "\n";
-	print $msg{$id}, "\n";
-}
diff --git a/build/freelog b/build/freelog
deleted file mode 100755
index 6a75ac96..00000000
--- a/build/freelog
+++ /dev/null
@@ -1,22 +0,0 @@
-#!/usr/bin/perl
-# A simple tool to prune the output of cvslog for the free version.
-# (c) 2005 Robert Spalek <robert@ucw.cz>
-
-@lines = ();
-$print = 1;
-$" = "";
-while (<>)
-{
-  if (/^###/)
-  {
-    $print and print "@lines";
-    @lines = ();
-    $print = 1;
-  }
-  elsif	(/^\s*\* (|.*\/)(shepherd|reapd|mux|msword|excel|centrum)\//)
-  {
-    $print = 0;
-  }
-  $lines[$#lines+1] = $_;
-}
-$print and print "@lines";