version 1.6, 2000/10/28 16:59:33 |
version 1.7, 2003/09/27 14:24:42 |
|
|
#!/usr/bin/perl -w |
#!/usr/bin/perl -w |
# |
# |
# $OpenXM: CVSROOT/commit_prep.pl,v 1.5 2000/10/28 16:55:31 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 |
# Most parts obtained from FreeBSD.org and modified for OpenXM |
# |
# |
|
|
$directory = $ARGV[0]; |
$directory = $ARGV[0]; |
shift @ARGV; |
shift @ARGV; |
|
|
$cvsroot=$ENV{'CVSROOT'} || "/usr/cvs"; |
$cvsroot=$ENV{'CVSROOT'} || "/home/cvsroot/openxm"; |
$directory =~ s,^$cvsroot[/]+,,; |
$directory =~ s,^$cvsroot[/]+,,; |
|
|
if ($directory =~ /^OpenXM/) { |
if ($directory =~ /^OpenXM/) { |