| 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/) { |
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to commit_prep.pl CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / CVSROOT