p4submit #1

#!/usr/local/bin/perl

$Desc = shift @ARGV;
$File = $ARGV[0];

open(NEW, ">$File.p4submit.$$");

while (<>)
  {
    if (/^\t<enter description here>/)
      { print NEW "\t$Desc\n"; }
    else
      { print NEW; }
  }

close NEW;
rename "$File.p4submit.$$", "$File";
exit 0;

#	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.