gitolite v2.0rc1 -- please see new developer-notes doc
This commit is contained in:
parent
d022d90031
commit
692552d146
34 changed files with 1224 additions and 863 deletions
23
src/gl-query-rc
Executable file
23
src/gl-query-rc
Executable file
|
@ -0,0 +1,23 @@
|
|||
#!/usr/bin/perl
|
||||
|
||||
# let shell scripts query rc values
|
||||
# prints out a tab delimited list of all queried values
|
||||
# just run "gl-query-rc REPO_BASE GL_ADMINDIR" (for example)
|
||||
|
||||
use strict;
|
||||
no strict 'refs';
|
||||
use warnings;
|
||||
|
||||
# find the rc file, then pull the libraries
|
||||
BEGIN {
|
||||
# find and set bin dir; same code as in gl-auth-command
|
||||
$0 =~ m|^(/)?(.*)/| and $ENV{GL_BINDIR} = ($1 || "$ENV{PWD}/") . $2;
|
||||
}
|
||||
use lib $ENV{GL_BINDIR};
|
||||
require gitolite_rc;
|
||||
gitolite_rc->import;
|
||||
|
||||
our $GL_RC=$ENV{GL_RC};
|
||||
our $GL_BINDIR=$ENV{GL_BINDIR};
|
||||
|
||||
print join("\t", map { $$_ } grep { $$_ } @ARGV) . "\n" if @ARGV;
|
Loading…
Add table
Add a link
Reference in a new issue