build/freelog

   1 #!/usr/bin/perl
   2 # A simple tool to prune the output of cvslog for the free version.
   3 # (c) 2005 Robert Spalek <robert@ucw.cz>
   4
   5 @lines = ();
   6 $print = 1;
   7 $" = "";
   8 while (<>)
   9 {
  10   if (/^###/)
  11   {
  12     $print and print "@lines";
  13     @lines = ();
  14     $print = 1;
  15   }
  16   elsif (/^\s*\* (|.*\/)(shepherd|reapd|mux|msword|excel|centrum)\//)
  17   {
  18     $print = 0;
  19   }
  20   $lines[$#lines+1] = $_;
  21 }
  22 $print and print "@lines";