| 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/) { |
![[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