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

'gitolite list-phy-repos' added

Browse source
This commit is contained in:
Sitaram Chamarty 2012-03-08 19:50:34 +05:30
parent 95c6952e11
commit 1a1be8b222
2 changed files with 9 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
Gitolite/Common.pm
View file

@ -147,6 +147,7 @@ sub sort_u {
my @phy_repos = ();
sub list_phy_repos {
_die "'gitolite list_phy_repos' takes no arguments" if @ARGV;
trace(3);
# use cached value only if it exists *and* no arg was received (i.e.,

8
gitolite
View file

@ -14,6 +14,7 @@ The following subcommands are available; they should all respond to '-h':
list-groups list all group names in conf
list-users list all users/user groups in conf
list-repos list all repos/repo groups in conf
list-phy-repos list all repos actually on disk
list-memberships list all groups a name is a member of
list-members list all members of a group
@ -29,6 +30,7 @@ use FindBin;
BEGIN { $ENV{GL_BINDIR} = $FindBin::Bin; }
use lib $ENV{GL_BINDIR};
use Gitolite::Rc;
use Gitolite::Common;
use strict;
@ -75,6 +77,10 @@ sub args {
require Gitolite::Conf::Load;
Gitolite::Conf::Load->import;
print "$_\n" for ( @{ list_repos() } );
} elsif ( $command eq 'list-phy-repos' ) {
shift @ARGV;
_chdir($GL_REPO_BASE);
print "$_\n" for ( @{ list_phy_repos() } );
} elsif ( $command eq 'list-memberships' ) {
shift @ARGV;
require Gitolite::Conf::Load;
@ -85,5 +91,7 @@ sub args {
require Gitolite::Conf::Load;
Gitolite::Conf::Load->import;
print "$_\n" for ( @{ list_members() } );
} else {
_die "unknown gitolite sub-command";
}
}