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

info learned '-p' and pattern limiting.

Browse source 
'-p' is what gives you 'expand' now
This commit is contained in:
Sitaram Chamarty 2012-03-19 21:01:08 +05:30
parent 5b5c02f226
commit 32494cfa0c
2 changed files with 104 additions and 41 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

52
src/commands/info
View file

@ -2,19 +2,35 @@
use strict;
use warnings;
use Getopt::Long;
use lib $ENV{GL_BINDIR};
use Gitolite::Rc;
use Gitolite::Common;
use Gitolite::Conf::Load;
=for usage
Usage: gitolite info
Usage: gitolite info [-p] [optional repo name pattern]
- list all repos/repo groups you can access
- no options, no flags
List all repos/repo groups you can access. By default, it shows you what the
conf file specified, which means group names and wild card patterns may show
up.
With '-p' it looks at actual (physical) repos instead.
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
than a few thousand repos.
=cut
usage() if @ARGV;
my ( $help, $phy, $patt ) = ('') x 3;
GetOptions(
'p' => \$phy,
'h' => \$help,
) or usage();
usage() if @ARGV > 1;
$patt = shift || '.';
my $user = $ENV{GL_USER} or _die "GL_USER not set";
my $ref = 'any';
@ -22,22 +38,24 @@ my $ref = 'any';
print "hello $user, this is gitolite3 " . version() . " on git " . substr( `git --version`, 12 ) . "\n";
my $lr = lister_dispatch('list-repos');
my $lm = lister_dispatch('list-members');
for ( @{ $lr->() } ) {
my $perm;
my $repos;
if ($phy) {
_chdir( $rc{GL_REPO_BASE} );
$repos = list_phy_repos(1);
} else {
$repos = $lr->();
}
for my $repo (@$repos) {
next unless $repo =~ /$patt/;
my $perm = '';
for my $aa (qw(R W ^C)) {
my $ret = access( $_, $user, $aa, $ref );
my $ret = access( $repo, $user, $aa, $ref );
$perm .= ( $ret =~ /DENIED/ ? " " : " $aa" );
}
next unless $perm =~ /\S/;
if (/^\@/) {
print "\n$perm\t$_\n";
for ( @{ $lm->($_) } ) {
print "$perm\t$_\n";
}
print "\n";
} else {
print "$perm\t$_\n";
}
$perm =~ s/\^//;
print "$perm\t$repo\n" if $perm =~ /\S/;
}

93
t/info.t
View file

@ -9,7 +9,7 @@ use Gitolite::Test;
# the info command
# ----------------------------------------------------------------------
try 'plan 39';
try 'plan 83';
try "## info";
@ -32,27 +32,72 @@ try "
/Initialized.*empty.*t2.git/
/Initialized.*empty.*t3.git/
";
# GS == greeting string
try "DEF GS = /hello %1, this is gitolite/";
try "
glt info u1; ok; /R W \t\@t1/
/R W \tt1/
/R \tt2/
!/t3/
/R W \ttesting/
glt info u2; ok; /R \t\@t1/
/R \tt1/
/R W \tt2/
!/t3/
/R W \ttesting/
glt info u3; ok; /R W \tt3/
!/\@t1/
!/t[12]/
/R W \ttesting/
glt info u4; ok; /R \tt3/
!/\@t1/
!/t[12]/
/R W \ttesting/
glt info u5; ok; !/t[123]/
/R W \ttesting/
glt info u6; ok; !/t[123]/
/R W \ttesting/
" or die;
glt info u1; ok; GS u1
/R W \t\@t1/
/R \tt2/
/R W \ttesting/
!/R W \tt3/
glt info u2; ok; GS u2
/R \t\@t1/
/R W \tt2/
/R W \ttesting/
!/R W \tt3/
glt info u3; ok; GS u3
/R W \tt3/
/R W \ttesting/
!/R \t\@t1/
!/R W \tt2/
glt info u4; ok; GS u4
/R \tt3/
/R W \ttesting/
!/R \t\@t1/
!/R W \tt2/
glt info u5; ok; GS u5
/R W \ttesting/
!/R \t\@t1/
!/R W \tt2/
!/R W \tt3/
glt info u6; ok; GS u6
/R W \ttesting/
!/R \t\@t1/
!/R W \tt2/
!/R W \tt3/
";
try "
glt info u1 -p; ok; GS u1
/R W \tt1/
/R \tt2/
/R W \ttesting/
!/R W \tt3/
glt info u2 -p; ok; GS u2
/R \tt1/
/R W \tt2/
/R W \ttesting/
!/R W \tt3/
glt info u3 -p; ok; GS u3
/R W \tt3/
/R W \ttesting/
!/R \tt1/
!/R W \tt2/
glt info u4 -p; ok; GS u4
/R \tt3/
/R W \ttesting/
!/R \tt1/
!/R W \tt2/
glt info u5 -p; ok; GS u5
/R W \ttesting/
!/R \tt1/
!/R W \tt2/
!/R W \tt3/
glt info u6 -p; ok; GS u6
/R W \ttesting/
!/R \tt1/
!/R W \tt2/
!/R W \tt3/
";