CVSROOT/commit_prep.pl - diff

Return to commit_prep.pl CVS log

Up to [local] / CVSROOT

version 1.5, 2000/10/28 16:55:31

version 1.7, 2003/09/27 14:24:42

Line 1

#!/usr/bin/perl -w

# $OpenXM: CVSROOT/commit_prep.pl,v 1.4 2000/10/28 16:35:49 maekawa Exp $

# $OpenXM: CVSROOT/commit_prep.pl,v 1.6 2000/10/28 16:59:33 maekawa Exp $

# Most parts obtained from FreeBSD.org and modified for OpenXM

Line 39 $NoName = "

$BadId = "%s - The \$\OpenXM\$ is mangled.\n";

$BadName = "

#$BadName = "

%s - The pathname '%s'

#%s - The pathname '%s'

in the \$\OpenXM\$ line does not match the actual filename.\n";

# in the \$\OpenXM\$ line does not match the actual filename.\n";

$BadVersion = "

%s - GRRR!! You spammed your copy of the file

Line 140 close(ENTRIES);

$directory = $ARGV[0];

shift @ARGV;

$cvsroot=$ENV{'CVSROOT'} || "/usr/cvs";

$cvsroot=$ENV{'CVSROOT'} || "/home/cvsroot/openxm";

$directory =~ s,^$cvsroot[/]+,,;

if ($directory =~ /^OpenXM/) {