added yet another utility for processing cvs logs

diff --git a/build/freelog b/build/freelog
new file mode 100755 (executable)
index 0000000..6a75ac9
--- /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";