summaryrefslogtreecommitdiffstats
path: root/check-g2-compat
diff options
context:
space:
mode:
Diffstat (limited to '')
-rwxr-xr-xcheck-g2-compat99
1 files changed, 99 insertions, 0 deletions
diff --git a/check-g2-compat b/check-g2-compat
new file mode 100755
index 0000000..508c6fd
--- /dev/null
+++ b/check-g2-compat
@@ -0,0 +1,99 @@
+#!/usr/bin/perl
+
+use Cwd;
+
+my $h = $ENV{HOME};
+my $rc = "$h/.gitolite.rc";
+my %count;
+
+intro();
+
+msg( FATAL => "no rc file found; do you even *have* g2 running?" ) if not -f $rc;
+do $rc;
+unless ( $return = do $rc ) {
+ msg( FATAL => "couldn't parse $rc: $@" ) if $@;
+ msg( FATAL => "couldn't do $rc: $!" ) unless defined $return;
+ msg( WARNING => "couldn't run $rc" ) unless $return;
+}
+
+print "checking rc file...\n";
+rc_basic();
+rest_of_rc();
+print "\n";
+
+print "checking conf file(s)...\n";
+conf();
+print "\n";
+
+print "checking repos...\n";
+repo();
+print "\n";
+
+print "...all done...\n";
+
+# ----------------------------------------------------------------------
+
+sub intro {
+ msg( INFO => "This program only checks for uses that make the new g3 completely unusable" );
+ msg( '' => "or that might end up giving *more* access to someone if migrated as-is." );
+ msg( '' => "It does NOT attempt to catch all the differences described in the docs." );
+ msg( '', '' );
+ msg( INFO => "'see docs' usually means the pre-migration checklist in" );
+ msg( '', => "'g2migr.html'; to get there, start from the main migration" );
+ msg( '', => "page at http://gitolite.com/gitolite/migr.html" );
+ msg( '', '' );
+}
+
+sub rc_basic {
+ msg( FATAL => "GL_ADMINDIR in the wrong place -- aborting; see docs" ) if $GL_ADMINDIR ne "$h/.gitolite";
+ msg( NOTE => "GL_ADMINDIR is in the right place; assuming you did not mess with" );
+ msg( '', "GL_CONF, GL_LOGT, GL_KEYDIR, and GL_CONF_COMPILED" );
+ msg( FATAL => "REPO_BASE in the wrong place -- aborting; see docs" ) if $REPO_BASE ne "$h/repositories" and $REPO_BASE ne "repositories";
+# ( abs or rel both ok)
+}
+
+sub rest_of_rc {
+ msg( SEVERE => "GIT_PATH found; see docs" ) if $GIT_PATH;
+ msg( SEVERE => "GL_ALL_INCLUDES_SPECIAL found; see docs" ) if $GL_ALL_INCLUDES_SPECIAL;
+ msg( SEVERE => "GL_NO_CREATE_REPOS not yet implemented" ) if $GL_NO_CREATE_REPOS;
+ msg( SEVERE => "rsync not yet implemented" ) if $RSYNC_BASE;
+ msg( WARNING => "ADMIN_POST_UPDATE_CHAINS_TO found; see docs" ) if $ADMIN_POST_UPDATE_CHAINS_TO;
+ msg( WARNING => "GL_NO_DAEMON_NO_GITWEB found; see docs" ) if $GL_NO_DAEMON_NO_GITWEB;
+ msg( WARNING => "GL_NO_SETUP_AUTHKEYS found; see docs" ) if $GL_NO_SETUP_AUTHKEYS;
+ msg( WARNING => "UPDATE_CHAINS_TO found; see docs" ) if $UPDATE_CHAINS_TO;
+ msg( WARNING => "GL_ADC_PATH found; see docs" ) if $GL_ADC_PATH;
+ msg( WARNING => "non-default GL_WILDREPOS_PERM_CATS found" ) if $GL_WILDREPOS_PERM_CATS ne 'READERS WRITERS';
+}
+
+sub conf {
+ chdir($h);
+ chdir($GL_ADMINDIR);
+
+ my $conf = `find . -name "*.conf" | xargs cat`;
+ msg( "SEVERE", "NAME rules; see docs" ) if $conf =~ m(NAME/);
+ msg( "SEVERE", "subconf command in admin repo; see docs" ) if $conf =~ m(NAME/conf/fragments);
+ msg( "SEVERE", "mirroring used; see docs" ) if $conf =~ m(config +gitolite\.mirror\.);
+}
+
+sub repo {
+ chdir($h);
+ chdir($REPO_BASE);
+ my @creater = `find . -name gl-creater`;
+ if (@creater) {
+ msg( WARNING => "found " . scalar(@creater) . " gl-creater files; see docs" );
+ }
+
+ my @perms = `find . -name gl-perms | xargs egrep -l -w R\\|RW`;
+ if (@perms) {
+ msg( WARNING => "found " . scalar(@perms) . " gl-perms files with R or RW; see docs" );
+ }
+}
+
+sub msg {
+ my ( $type, $text ) = @_;
+ print "$type" if $type;
+ print "\t$text\n";
+ exit 1 if $type eq 'FATAL';
+
+ $count{$type}++ if $type;
+}