96 lines
3.1 KiB
Perl
Executable File
96 lines
3.1 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
# all gitolite CLI tools run as sub-commands of this command
|
|
# ----------------------------------------------------------------------
|
|
|
|
=for usage
|
|
Usage: gitolite [sub-command] [options]
|
|
|
|
The following subcommands are available; they should all respond to '-h':
|
|
|
|
setup 1st run: initial setup; all runs: hook fixups
|
|
compile compile gitolite.conf
|
|
query-rc get values of rc variables
|
|
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
|
|
|
|
Warnings:
|
|
- list-users is disk bound and could take a while on sites with 1000s of repos
|
|
- list-memberships does not check if the name is known; unknown names come
|
|
back with 2 answers: the name itself and '@all'
|
|
=cut
|
|
|
|
# ----------------------------------------------------------------------
|
|
|
|
use FindBin;
|
|
|
|
BEGIN { $ENV{GL_BINDIR} = $FindBin::RealBin; }
|
|
use lib $ENV{GL_BINDIR};
|
|
use Gitolite::Rc;
|
|
use Gitolite::Common;
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
# ----------------------------------------------------------------------
|
|
|
|
args();
|
|
|
|
# ----------------------------------------------------------------------
|
|
|
|
sub args {
|
|
my ( $command, @args ) = @ARGV;
|
|
usage() if not $command or $command eq '-h';
|
|
|
|
if ( $command eq 'setup' ) {
|
|
shift @ARGV;
|
|
require Gitolite::Setup;
|
|
Gitolite::Setup->import;
|
|
setup();
|
|
} elsif ( $command eq 'compile' ) {
|
|
shift @ARGV;
|
|
_die "'gitolite compile' does not take any arguments" if @ARGV;
|
|
require Gitolite::Conf;
|
|
Gitolite::Conf->import;
|
|
compile();
|
|
} elsif ( $command eq 'query-rc' ) {
|
|
shift @ARGV;
|
|
query_rc();
|
|
} elsif ( $command eq 'list-groups' ) {
|
|
shift @ARGV;
|
|
require Gitolite::Conf::Load;
|
|
Gitolite::Conf::Load->import;
|
|
print "$_\n" for ( @{ list_groups() } );
|
|
} elsif ( $command eq 'list-users' ) {
|
|
shift @ARGV;
|
|
require Gitolite::Conf::Load;
|
|
Gitolite::Conf::Load->import;
|
|
print "$_\n" for ( @{ list_users() } );
|
|
} elsif ( $command eq 'list-repos' ) {
|
|
shift @ARGV;
|
|
require Gitolite::Conf::Load;
|
|
Gitolite::Conf::Load->import;
|
|
print "$_\n" for ( @{ list_repos() } );
|
|
} elsif ( $command eq 'list-phy-repos' ) {
|
|
shift @ARGV;
|
|
_chdir( $rc{GL_REPO_BASE} );
|
|
print "$_\n" for ( @{ list_phy_repos() } );
|
|
} elsif ( $command eq 'list-memberships' ) {
|
|
shift @ARGV;
|
|
require Gitolite::Conf::Load;
|
|
Gitolite::Conf::Load->import;
|
|
print "$_\n" for ( @{ list_memberships() } );
|
|
} elsif ( $command eq 'list-members' ) {
|
|
shift @ARGV;
|
|
require Gitolite::Conf::Load;
|
|
Gitolite::Conf::Load->import;
|
|
print "$_\n" for ( @{ list_members() } );
|
|
} else {
|
|
_die "unknown gitolite sub-command";
|
|
}
|
|
}
|