version 1.1, 1999/10/27 17:45:04 |
version 1.3, 1999/10/30 16:01:35 |
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'} || "/home/ncvs"; |
$cvsroot=$ENV{'CVSROOT'} || "/usr/cvs"; |
$directory =~ s,^$cvsroot[/]+,,; |
$directory =~ s,^$cvsroot[/]+,,; |
|
|
if ($directory =~ /^OpenXM/) { |
if ($directory =~ /^OpenXM/) { |