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

fixup new check-g2-compat, lots of migration related changes...

Browse source 
aaargh!  I forgot to 'git rm' something despite documenting it to be
gone and not using it
This commit is contained in:
Sitaram Chamarty 2012-03-26 21:35:23 +05:30
parent 490636b832
commit 276900edbb
1 changed files with 0 additions and 60 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

60
src/Gitolite/Compat.pm
View file

@ -1,60 +0,0 @@
#!/usr/bin/perl
# a quick and dirty program to warn about compatibilities issues in your
# current gitolite 2 setup, with the new one.
@EXPORT = qw(
);
use Exporter 'import';
use lib $ENV{GL_BINDIR};
use Gitolite::Common;
my $header_printed = 0;
my $glrc = "$ENV{HOME}/.gitolite.rc";
do "$glrc";
if (defined($GL_ADMINDIR)) {
check_compat();
if ($header_printed) {
say2 "Please read the documentation for additional details on migrating.\n\n"
} else {
say2 "
It looks like there were no real issues found, but you should still read the
documentation for additional details on migrating.
";
}
}
sub check_compat {
chdir($GL_ADMINDIR) or die "FATAL: could not chdir to $GL_ADMINDIR\n";
my $conf = `find . -name "*.conf" | xargs cat`;
g2warn("MUST fix", "fallthru in NAME rules; this affects user's push rights")
if $conf =~ m(NAME/);
g2warn("MUST fix", "subconf command in admin repo; this affects conf compilation")
if $conf =~ m(NAME/conf/fragments);
}
sub header {
return if $header_printed;
$header_printed++;
say2 "
The following is a list of compat issues found, if any. Please see the
compatibility with gitolite 2' section of the documentation for additional
details on each issue found.\n";
}
sub g2warn {
my ($cat, $msg) = @_;
header();
say2 "$cat: $msg\n";
}
1;