version 1.4, 2000/10/28 16:35:49 |
version 1.7, 2003/09/27 14:24:42 |
|
|
#!/usr/bin/perl -w |
#!/usr/bin/perl -w |
# |
# |
# $OpenXM: CVSROOT/commit_prep.pl,v 1.3 1999/10/30 16:01:35 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 |
# |
# |
|
|
|
|
$BadId = "%s - The \$\OpenXM\$ is mangled.\n"; |
$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 = " |
$BadVersion = " |
%s - GRRR!! You spammed your copy of the file |
%s - GRRR!! You spammed your copy of the file |
|
|
$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/) { |
Line 161 if ($check_id != 0) { |
|
Line 161 if ($check_id != 0) { |
|
local($hastag) = ($cvstag{$arg} ne ''); |
local($hastag) = ($cvstag{$arg} ne ''); |
next if (index($arg, ".") == 0); |
next if (index($arg, ".") == 0); |
next if (index($arg, "pkg-") == 0); |
next if (index($arg, "pkg-") == 0); |
|
next if ($arg =~ /^distinfo$/); |
$failed += &check_version($arg, $directory, $hastag, $cvsversion); |
$failed += &check_version($arg, $directory, $hastag, $cvsversion); |
} |
} |
if ($failed) { |
if ($failed) { |