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

allow info to print description also

Browse source
This commit is contained in:
Sitaram Chamarty 2012-05-04 17:52:43 +05:30
parent d8df4a9344
commit 6d057fb84c
1 changed files with 14 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
src/commands/info
View file

@ -10,12 +10,13 @@ use Gitolite::Common;
use Gitolite::Conf::Load; use Gitolite::Conf::Load;
=for args =for args
Usage: gitolite info [-lc] [<repo name pattern>] Usage: gitolite info [-lc] [-ld] [<repo name pattern>]
List all existing repos you can access, as well as repo name patterns you can List all existing repos you can access, as well as repo name patterns you can
create repos from (if any). create repos from (if any).
'-lc' lists creators as an additional field at the end. '-lc' lists creators as an additional field at the end.
'-ld' lists description as an additional field at the end.
The optional pattern is an unanchored regex that will limit the repos The optional pattern is an unanchored regex that will limit the repos
searched, in both cases. It might speed up things a little if you have more searched, in both cases. It might speed up things a little if you have more
@ -23,7 +24,7 @@ than a few thousand repos.
=cut =cut
# these two are globals # these two are globals
my ( $lc, $patt ) = args(); my ( $lc, $ld, $patt ) = args();
print_version(); print_version();
@ -34,18 +35,19 @@ print "\n$rc{SITE_INFO}\n" if $rc{SITE_INFO};
# ---------------------------------------------------------------------- # ----------------------------------------------------------------------
sub args { sub args {
my ( $lc, $patt ) = ( '', '' ); my ( $lc, $ld, $patt ) = ( '', '', '' );
my $help = ''; my $help = '';
GetOptions( GetOptions(
'lc' => \$lc, 'lc' => \$lc,
'ld' => \$ld,
'h' => \$help, 'h' => \$help,
) or usage(); ) or usage();
usage() if @ARGV > 1 or $help; usage() if @ARGV > 1 or $help;
$patt = shift @ARGV || '.'; $patt = shift @ARGV || '.';
return ( $lc, $patt ); return ( $lc, $ld, $patt );
} }
sub print_version { sub print_version {
@ -61,8 +63,8 @@ sub print_patterns {
# find repo patterns only, call them with ^C flag included # find repo patterns only, call them with ^C flag included
@$repos = grep { !/$REPONAME_PATT/ } @{ lister_dispatch('list-repos')->() }; @$repos = grep { !/$REPONAME_PATT/ } @{ lister_dispatch('list-repos')->() };
@aa = qw(R W ^C); @aa = qw(R W ^C);
listem( $repos, '', @aa ); listem( $repos, '', '', @aa );
# but squelch the 'lc' flag for these # but squelch the 'lc' and 'ld' flags for these
} }
sub print_phy_repos { sub print_phy_repos {
@ -72,16 +74,19 @@ sub print_phy_repos {
_chdir( $rc{GL_REPO_BASE} ); _chdir( $rc{GL_REPO_BASE} );
$repos = list_phy_repos(1); $repos = list_phy_repos(1);
@aa = qw(R W); @aa = qw(R W);
listem( $repos, $lc, @aa ); listem( $repos, $lc, $ld, @aa );
} }
sub listem { sub listem {
my ( $repos, $lc, @aa ) = @_; my ( $repos, $lc, $ld, @aa ) = @_;
my $creator = ''; my $creator = '';
my $desc = '';
for my $repo (@$repos) { for my $repo (@$repos) {
next unless $repo =~ /$patt/; next unless $repo =~ /$patt/;
my $perm = ''; my $perm = '';
$creator = creator($repo) if $lc; $creator = creator($repo) if $lc;
$desc = slurp("$ENV{GL_REPO_BASE}/$repo.git/description") if $ld;
chomp($desc);
for my $aa (@aa) { for my $aa (@aa) {
my $ret = access( $repo, $ENV{GL_USER}, $aa, 'any' ); my $ret = access( $repo, $ENV{GL_USER}, $aa, 'any' );
@ -91,6 +96,7 @@ sub listem {
next unless $perm =~ /\S/; next unless $perm =~ /\S/;
print "$perm\t$repo"; print "$perm\t$repo";
print "\t$creator" if $lc; print "\t$creator" if $lc;
print "\t$desc" if $ld;
print "\n"; print "\n";
} }
} }