From: Robert Spalek <robert@ucw.cz>
Date: Fri, 18 Feb 2005 16:29:12 +0000 (+0000)
Subject: added yet another utility for processing cvs logs
X-Git-Tag: holmes-import~825
X-Git-Url: http://mj.ucw.cz/gitweb/?a=commitdiff_plain;h=01ab15f4222cd2f716380d554e68935798dc9001;p=libucw.git

added yet another utility for processing cvs logs
---

diff --git a/build/freelog b/build/freelog
new file mode 100755
index 00000000..6a75ac96
--- /dev/null
+++ b/build/freelog
@@ -0,0 +1,22 @@
+#!/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";