version 1.2, 1999/10/27 18:03:00 |
version 1.7, 2003/09/27 14:24:42 |
|
|
#!/usr/bin/perl -w |
#!/usr/bin/perl -w |
# |
# |
# $OpenXM$ |
# $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 |
Line 82 sub check_version { |
|
Line 82 sub check_version { |
|
|
|
if ($pos == -1) { |
if ($pos == -1) { |
printf($NoId, $filename); |
printf($NoId, $filename); |
return(1); |
return(0); |
} |
} |
$bareid = (index($line, "\$\OpenXM: \$") >= 0 || |
$bareid = (index($line, "\$\OpenXM: \$") >= 0 || |
index($line, "\$\OpenXM\$") >= 0); |
index($line, "\$\OpenXM\$") >= 0); |
|
|
$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 160 if ($check_id != 0) { |
|
Line 160 if ($check_id != 0) { |
|
foreach $arg (@ARGV) { |
foreach $arg (@ARGV) { |
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 ($arg =~ /^distinfo$/); |
$failed += &check_version($arg, $directory, $hastag, $cvsversion); |
$failed += &check_version($arg, $directory, $hastag, $cvsversion); |
} |
} |
if ($failed) { |
if ($failed) { |