d3610191d3
I was very, very, tempted to say "sorry; not supported". Sadly, prudence won over juvenile glee... PS: DOS == dominant operating system
68 lines
1 KiB
Perl
Executable file
68 lines
1 KiB
Perl
Executable file
#!/usr/bin/perl
|
|
use strict;
|
|
use warnings;
|
|
|
|
# this is hardcoded; change it if needed
|
|
use lib "src/lib";
|
|
use Gitolite::Test;
|
|
|
|
# deny rules
|
|
# ----------------------------------------------------------------------
|
|
|
|
try "plan 11";
|
|
|
|
confreset;confadd '
|
|
# start with...
|
|
|
|
repo gitolite-admin
|
|
- = gitweb daemon
|
|
option deny-rules = 1
|
|
|
|
# main ruleset goes here
|
|
|
|
@ga = a
|
|
@gb = b
|
|
@gc = c
|
|
|
|
# and end with
|
|
|
|
repo @ga
|
|
RW = u1
|
|
- = @all
|
|
option deny-rules = 1
|
|
|
|
repo @gb
|
|
RW = u2
|
|
- = daemon
|
|
option deny-rules = 1
|
|
|
|
repo @gc
|
|
RW = u3
|
|
|
|
repo @all
|
|
R = @all
|
|
|
|
';
|
|
|
|
try "ADMIN_PUSH set1; !/FATAL/" or die text();
|
|
|
|
my $rb = `gitolite query-rc -n GL_REPO_BASE`;
|
|
try "
|
|
cat $ENV{HOME}/projects.list; ok
|
|
";
|
|
cmp 'b.git
|
|
c.git
|
|
testing.git
|
|
';
|
|
|
|
try "
|
|
cd ..
|
|
cd ..
|
|
echo $rb
|
|
find $rb -name git-daemon-export-ok | sort
|
|
perl s,$rb/,,g
|
|
";
|
|
cmp 'c.git/git-daemon-export-ok
|
|
testing.git/git-daemon-export-ok
|
|
'
|