package Gitolite::Commands::Setup; # implements 'gitolite setup' # ---------------------------------------------------------------------- =for usage Usage: gitolite setup [] -a, --admin admin user name -pk --pubkey pubkey file name -f, --fixup-hooks fixup hooks First run: -a required -pk required for ssh mode install Later runs: no options required; but '-f' can be specified for clarity =cut # ---------------------------------------------------------------------- @EXPORT = qw( setup ); use Exporter 'import'; use Getopt::Long; use lib $ENV{GL_BINDIR}; use Gitolite::Rc; use Gitolite::Common; use Gitolite::Conf::Store; use strict; use warnings; # ---------------------------------------------------------------------- sub setup { my ( $admin, $pubkey, $argv ) = args(); # first time if ( first_run() ) { trace( 1, "..should happen only on first run" ); setup_glrc(); setup_gladmin( $admin, $pubkey, $argv ); } system("$ENV{GL_BINDIR}/gitolite compile"); hook_repos(); # all of them, just to be sure } # ---------------------------------------------------------------------- sub first_run { # if the rc file could not be found, it's *definitely* a first run! return not glrc_filename(); } sub args { my $admin = ''; my $pubkey = ''; my $fixup = 0; my $help = 0; my $argv = join( " ", @ARGV ); GetOptions( 'admin|a=s' => \$admin, 'pubkey|pk=s' => \$pubkey, 'fixup-hooks|f' => \$fixup, 'help|h' => \$help, ) or usage(); usage() if $help; usage("first run requires '-a'") if first_run() and not($admin); _warn("not setting up ssh...") if first_run() and $admin and not $pubkey; _warn("first run, ignoring '-f'...") if first_run() and $fixup; _warn("not first run, ignoring '-a' / '-pk'...") if not first_run() and ( $admin or $pubkey ); if ($pubkey) { $pubkey =~ /\.pub$/ or _die "$pubkey name does not end in .pub"; tsh_try("cat $pubkey") or _die "$pubkey not a readable file"; tsh_lines() == 1 or _die "$pubkey must have exactly one line"; tsh_try("ssh-keygen -l -f $pubkey") or _die "$pubkey does not seem to be a valid ssh pubkey file"; } return ( $admin || '', $pubkey || '', $argv ); } sub setup_glrc { trace(1); _print( glrc_default_filename(), glrc_default_text() ); } sub setup_gladmin { my ( $admin, $pubkey, $argv ) = @_; trace( 1, $admin ); # reminder: 'admin files' are in ~/.gitolite, 'admin repo' is # $GL_REPO_BASE/gitolite-admin.git # grab the pubkey content before we chdir() away my $pubkey_content = ''; if ($pubkey) { $pubkey_content = slurp($pubkey); $pubkey =~ s(.*/)(); # basename } # set up the admin files in admin-base _mkdir($GL_ADMIN_BASE); _chdir($GL_ADMIN_BASE); _mkdir("conf"); my $conf; { local $/ = undef; $conf = ; } $conf =~ s/%ADMIN/$admin/g; _print( "conf/gitolite.conf", $conf ); if ($pubkey) { _mkdir("keydir"); _print( "keydir/$pubkey", $pubkey_content ); } # set up the admin repo in repo-base _chdir(); _mkdir($GL_REPO_BASE); _chdir($GL_REPO_BASE); new_repo("gitolite-admin"); # commit the admin files to the admin repo $ENV{GIT_WORK_TREE} = $GL_ADMIN_BASE; _chdir("$GL_REPO_BASE/gitolite-admin.git"); system("git add conf/gitolite.conf"); system("git add keydir") if $pubkey; tsh_try("git config --get user.email") or tsh_run( "git config user.email $ENV{USER}\@" . `hostname` ); tsh_try("git config --get user.name") or tsh_run( "git config user.name '$ENV{USER} on '" . `hostname` ); tsh_try("git diff --cached --quiet") or tsh_try("git commit -am 'gl-setup $argv'") or die "setup failed to commit to the admin repo"; delete $ENV{GIT_WORK_TREE}; } 1; __DATA__ repo gitolite-admin RW+ = %ADMIN repo testing RW+ = @all