norm #1

  • //
  • guest/
  • richard_geiger/
  • utils/
  • cvs2p4_meta/
  • test/
  • norm
  • View
  • Commits
  • Open Download .zip Download (522 B)
eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}'
  & eval 'exec perl -S $0 $argv:q'
  if 0;
#  THE PRECEEDING STUFF EXECS perl via $PATH
# -*-Fundamental-*-

require 5.000;

#  $Id: //guest/richard_geiger/utils/cvs2p4_meta/test/norm#1 $
#
#  Richard Geiger
#

while (<>)
  {
    $_ =~ s/[0-9]{4}\/[0-9]{2}\/[0-9]{2}/yyyy\/mm\/dd/g;
    $_ =~ s/[0-9]{2}:[0-9]{2}:[0-9]{2}/hh:mm:ss/g;
    $_ =~ s/Label testlabel yyyy\/mm\/dd 'Created by ([a-z]+)\. '/Label testlabel yyyy\/mm\/dd 'Created by user\. '/;
    print;
  }

# Change User Description Committed
#1 1636 Richard Geiger Branch for working on a direct-metadata generation verison of cvs2p4
//guest/richard_geiger/utils/cvs2p4/test/norm
#3 1206 Richard Geiger Genericize the "p4 labels" test case, and beef up the comments
describing $TRUNKLINE in the config file a bit.
#2 240 Richard Geiger Version 1.2.5, to account for post-1999 RCS behavior.
(Courtesy of David Simon, Goldman Sachs)
#1 130 Richard Geiger CVS-to-Perforce converter.
This is release 1.2.2
(first submit to the Perforce Public Depot)