logsumm #1

#!/usr/local/bin/perl
# -*-Fundamental-*-

while (<>)
  {
    if (/\d\d\d\d-\d\d-\d\d \d\d:\d\d:\d\d: ([^:]*): (.*)/)
      {
        $tag = $1;
        $msg = $2;
        $tag =~ s/\s*$//;
        if ($tag =~ /^(mark_tm|config)\s*$/) { print; } }
  }

#	Change	User	Description	Committed
#1	799	Richard Geiger	The first version of "p4bench", scripts used to implement a crude Perforce benchmarking system, as mentioned in http://maillist.perforce.com/pipermail/perforce-user/2001-February/005288.html Beware, it's not pretty and there's no documentation, but it's a starting point for bigger and better things.