108 lines
3.9 KiB
Perl
Executable File
108 lines
3.9 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
our ($REPO_BASE, $GL_ADMINDIR, $GL_CONF, $GIT_PATH, $GL_PACKAGE_CONF, $GL_PACKAGE_HOOKS);
|
|
|
|
# setup quiet mode if asked; please do not use this when running manually
|
|
open STDOUT, ">", "/dev/null" if (@ARGV and shift eq '-q');
|
|
|
|
# wrapper around mkdir; it's not an error if the directory exists, but it is
|
|
# an error if it doesn't exist and we can't create it
|
|
sub wrap_mkdir
|
|
{
|
|
my $dir = shift;
|
|
if ( -d $dir ) {
|
|
print "$dir already exists\n";
|
|
return;
|
|
}
|
|
mkdir($dir) or die "mkdir $dir failed: $!\n";
|
|
print "created $dir\n";
|
|
}
|
|
|
|
# the common setup module is in the same directory as this running program is
|
|
my $bindir = $0;
|
|
$bindir =~ s/\/[^\/]+$//;
|
|
require "$bindir/gitolite.pm";
|
|
|
|
# ask where the rc file is, get it, and "do" it
|
|
&where_is_rc();
|
|
unless ($ENV{GL_RC}) {
|
|
# doesn't exist. Copy it across, tell user to edit it and come back
|
|
my $glrc = $ENV{HOME} . "/.gitolite.rc";
|
|
if ($GL_PACKAGE_CONF) {
|
|
system("cp $GL_PACKAGE_CONF/example.gitolite.rc $glrc");
|
|
} else {
|
|
system("cp $bindir/../conf/example.gitolite.rc $glrc");
|
|
}
|
|
print "created $glrc\n";
|
|
print "please edit it, change the paths if you wish to, and RERUN THIS SCRIPT\n";
|
|
exit;
|
|
}
|
|
|
|
# ok now the rc file exists; read it to get the other paths
|
|
die "parse $ENV{GL_RC} failed: " . ($! or $@) unless do $ENV{GL_RC};
|
|
|
|
# add a custom path for git binaries, if specified
|
|
$ENV{PATH} .= ":$GIT_PATH" if $GIT_PATH;
|
|
|
|
# mkdir $REPO_BASE, $GL_ADMINDIR if they don't already exist
|
|
my $repo_base_abs = ( $REPO_BASE =~ m(^/) ? $REPO_BASE : "$ENV{HOME}/$REPO_BASE" );
|
|
wrap_mkdir($repo_base_abs);
|
|
wrap_mkdir($GL_ADMINDIR);
|
|
# mkdir $GL_ADMINDIR's subdirs
|
|
for my $dir qw(conf doc keydir logs src hooks hooks/common hooks/gitolite-admin) {
|
|
# some of them will stay empty; too lazy to fix right now ;-)
|
|
wrap_mkdir("$GL_ADMINDIR/$dir");
|
|
}
|
|
|
|
# "src" and "doc" will be overwritten on each install, but not conf
|
|
if ($GL_PACKAGE_HOOKS) {
|
|
system("cp -R $GL_PACKAGE_HOOKS $GL_ADMINDIR");
|
|
} else {
|
|
system("cp -R $bindir/../src $bindir/../doc $bindir/../hooks $GL_ADMINDIR");
|
|
system("cp $bindir/../conf/VERSION $GL_ADMINDIR/conf");
|
|
}
|
|
|
|
unless (-f $GL_CONF or $GL_PACKAGE_CONF) {
|
|
print <<EOF;
|
|
please do the following:
|
|
1. create and edit $GL_CONF to contain something like this:
|
|
repo gitolite-admin
|
|
RW+ = yourname
|
|
2. copy "yourname.pub" to $GL_ADMINDIR/keydir
|
|
3. run this command
|
|
$GL_ADMINDIR/src/gl-compile-conf
|
|
EOF
|
|
}
|
|
|
|
# finally, hooks must be propagated to all the repos in case they changed
|
|
chdir("$repo_base_abs") or die "chdir $repo_base_abs failed: $!\n";
|
|
for my $repo (`find . -type d -name "*.git"`) {
|
|
chomp ($repo);
|
|
# propagate our own, plus any local admin-defined, hooks
|
|
ln_sf("$GL_ADMINDIR/hooks/common", "*", "$repo/hooks");
|
|
# in case of package install, GL_ADMINDIR is no longer the top cop;
|
|
# override with the package hooks
|
|
ln_sf("$GL_PACKAGE_HOOKS/common", "*", "$repo/hooks") if $GL_PACKAGE_HOOKS;
|
|
chmod 0755, "$repo/hooks/update";
|
|
}
|
|
|
|
# oh and one of those repos is a bit more special and has an extra hook :)
|
|
if ( -d "gitolite-admin.git/hooks" ) {
|
|
print "copying post-update hook to gitolite-admin repo...\n";
|
|
unlink "gitolite-admin.git/hooks/post-update";
|
|
symlink "$GL_ADMINDIR/hooks/gitolite-admin/post-update", "gitolite-admin.git/hooks/post-update"
|
|
or die "could not symlink post-update hook\n";
|
|
# ditto... (see previous block)
|
|
ln_sf("$GL_PACKAGE_HOOKS/gitolite-admin", "post-update", "gitolite-admin.git/hooks") if $GL_PACKAGE_HOOKS;
|
|
chmod 0755, "gitolite-admin.git/hooks/post-update";
|
|
}
|
|
|
|
# fixup program renames
|
|
for my $oldname qw(pta-hook.sh conf-convert.pl 00-easy-install.sh 99-emergency-addkey.sh install.pl update-hook.pl hooks/update ga-post-update-hook VERSION) {
|
|
unlink "$GL_ADMINDIR/src/$oldname";
|
|
unlink "$ENV{HOME}/gitolite-install/src/$oldname";
|
|
}
|