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

auto-create repo on 'C' perm done

Browse source
This commit is contained in:
Sitaram Chamarty 2012-03-17 07:00:17 +05:30
parent a014d2ffd5
commit 89a1857d56
3 changed files with 47 additions and 19 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
src/Gitolite/Conf/Load.pm
View file

@ -7,6 +7,7 @@ package Gitolite::Conf::Load;
load load
access access
git_config git_config
repo_missing
vrefs vrefs
lister_dispatch lister_dispatch
); );
@ -128,6 +129,11 @@ sub git_config {
return \%ret; return \%ret;
} }
sub repo_missing {
my $repo = shift;
return not -d "$rc{GL_REPO_BASE}/$repo.git";
}
# ---------------------------------------------------------------------- # ----------------------------------------------------------------------
sub load_common { sub load_common {
@ -158,6 +164,10 @@ sub load_1 {
return if $repo =~ /^\@/; return if $repo =~ /^\@/;
trace( 3, $repo ); trace( 3, $repo );
if ( repo_missing($repo) ) {
trace( 3, "repo '$repo' missing" );
return;
}
_chdir("$rc{GL_REPO_BASE}/$repo.git"); _chdir("$rc{GL_REPO_BASE}/$repo.git");
if ( $repo eq $last_repo ) { if ( $repo eq $last_repo ) {
@ -253,7 +263,6 @@ sub memberships {
} }
@ret = @{ sort_u( \@ret ) }; @ret = @{ sort_u( \@ret ) };
dbg(\@ret);
return @ret; return @ret;
} }

12
src/Gitolite/Conf/Store.pm
View file

@ -15,6 +15,7 @@ package Gitolite::Conf::Store;
expand_list expand_list
new_repos new_repos
new_repo new_repo
new_wild_repo
hook_repos hook_repos
store store
parse_done parse_done
@ -194,6 +195,17 @@ sub new_repo {
# XXX ignoring gl-post-init for now # XXX ignoring gl-post-init for now
} }
sub new_wild_repo {
my ( $repo, $user ) = @_;
_chdir( $rc{GL_REPO_BASE} );
new_repo($repo);
_print( "$repo.git/gl-creator", $user );
# XXX _print("$repo.git/gl-perms", "$rc{WILDREPOS_DEFAULT_PERMS}\n") if $rc{WILDREPOS_DEFAULT_PERMS};
# XXX git config, daemon, web...
# XXX pre-create, post-create
_chdir( $rc{GL_ADMIN_BASE} );
}
sub hook_repos { sub hook_repos {
trace(3); trace(3);
# all repos, all hooks # all repos, all hooks

7
src/gitolite-shell
View file

@ -61,6 +61,13 @@ sub main {
$ENV{GL_REPO} = $repo; $ENV{GL_REPO} = $repo;
my $aa = ( $verb =~ 'upload' ? 'R' : 'W' ); my $aa = ( $verb =~ 'upload' ? 'R' : 'W' );
# auto-create?
if ( repo_missing($repo) and access( $repo, $user, '^C', 'any' ) !~ /DENIED/ ) {
require Gitolite::Conf::Store;
Gitolite::Conf::Store->import;
new_wild_repo( $repo, $user );
}
# a ref of 'any' signifies that this is a pre-git check, where we don't # a ref of 'any' signifies that this is a pre-git check, where we don't
# yet know the ref that will be eventually pushed (and even that won't # yet know the ref that will be eventually pushed (and even that won't
# apply if it's a read operation). See the matching code in access() for # apply if it's a read operation). See the matching code in access() for