git-svn-id: svn://svn.office.custis.ru/3rdparty/viewvc.org/trunk@30 6955db30-a419-402b-8a0d-67ecbb4d7f56
custis-r2243
vfilippov 2008-11-18 17:25:26 +00:00
parent 28ba6929af
commit 97e5d91c18
1 changed files with 6 additions and 6 deletions

View File

@ -12,30 +12,30 @@ while(<>)
next if $perm eq 'p';
if ($perm eq 't')
{
$perm = 'read,tag,nowrite,nocreate,nocontrol';
$perm = 'read,tag,nowrite,nocreate,nocontrol';
}
elsif ($perm eq 'r')
{
$perm = 'read,notag,nowrite,nocreate,nocontrol';
$perm = 'read,notag,nowrite,nocreate,nocontrol';
}
elsif ($perm eq 'w')
{
$perm = 'read,tag,write,nocreate,nocontrol';
$perm = 'read,tag,write,nocreate,nocontrol';
}
elsif ($perm eq 'c' || $perm eq 'a')
{
$perm = 'read,tag,write,create,nocontrol';
$perm = 'read,tag,write,create,nocontrol';
}
print "cvs rchacl -R -a $perm";
print " -u '$user'" if $user ne 'ALL';
print " -r '$branch'" if $branch ne 'ALL';
if ($path ne 'ALL')
{
print " '$path'";
print " '$path'";
}
else
{
print ' `ls $CVSROOT | grep -v '."'#cvs'`";
print ' `ls $CVSROOT | grep -v '."'#cvs'`";
}
print "\n";
}