deac/gitolite
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

merge-check feature; first cut

Browse source
This commit is contained in:
Sitaram Chamarty 2012-01-15 23:22:31 +05:30
parent a06235e536
commit d500d30854
3 changed files with 23 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/gitolite.pm
View file

@ -234,8 +234,12 @@ sub check_ref {
return "$perm $ref $repo $ENV{GL_USER} DENIED by $refex" if $ar->[2] eq '-' and $dry_run;
die "$perm $ref $repo $ENV{GL_USER} DENIED by $refex\n" if $ar->[2] eq '-';
# $ar->[2] can be RW\+?(C|D|CD|DC)?M?. $perm can be W, +, C or
# D, or any of these followed by "M".
( my $permq = $perm ) =~ s/\+/\\+/;
$permq =~ s/M/.*M/;
# as far as *this* ref is concerned we're ok
return $refex if ($ar->[2] =~ /\Q$perm/);
return $refex if ($ar->[2] =~ /$permq/);
}
return "$perm $ref $repo $ENV{GL_USER} DENIED by fallthru" if $dry_run;
die "$perm $ref $repo $ENV{GL_USER} DENIED by fallthru\n";
@ -721,6 +725,7 @@ sub parse_acl
$repos{$dr}{DELETE_IS_D} = 1 if $repos{$r}{DELETE_IS_D};
$repos{$dr}{CREATE_IS_C} = 1 if $repos{$r}{CREATE_IS_C};
$repos{$dr}{NAME_LIMITS} = 1 if $repos{$r}{NAME_LIMITS};
$repos{$dr}{MERGE_CHECK} = 1 if $repos{$r}{MERGE_CHECK};
# this needs to copy the key-value pairs from RHS to LHS, not just
# assign RHS to LHS! However, we want to roll in '@all' configs also
# into the actual $repo; there's no need to preserve the distinction

3
src/gl-compile-conf
View file

@ -163,7 +163,7 @@ sub parse_conf_line
s/\bCREAT[EO]R\b/\$creator/g for @{ $repos_p };
}
# actual permission line
elsif ($line =~ /^(-|C|R|RW\+?(?:C?D?|D?C?)) (.* )?= (.+)/)
elsif ($line =~ /^(-|C|R|RW\+?(?:C?D?|D?C?)M?) (.* )?= (.+)/)
{
my $perms = $1;
my @refs; @refs = split( ' ', $2 ) if $2;
@ -223,6 +223,7 @@ sub parse_conf_line
# to no longer permit deletes (see update hook)
$repos{$repo}{DELETE_IS_D} = 1 if $perms =~ /D/;
$repos{$repo}{CREATE_IS_C} = 1 if $perms =~ /RW.*C/;
$repos{$repo}{MERGE_CHECK} = 1 if $perms =~ /M/;
# for 2nd level check, store each "ref, perms" pair in order
for my $ref (@refs)