X-Git-Url: http://www.git.stargrave.org/?a=blobdiff_plain;f=script%2Fpublic-inbox-index;h=5adb6e741eff8f2578a780bd40738cd7c42ee7a6;hb=65323f060a3db731bb9fafa004336eeb4bbb8f00;hp=73ad9bc4a1c08926f83ccfcde1857f863952e1ee;hpb=bd06b22c9fa498d72808cebfa3987718288ce5db;p=public-inbox.git diff --git a/script/public-inbox-index b/script/public-inbox-index index 73ad9bc4..5adb6e74 100755 --- a/script/public-inbox-index +++ b/script/public-inbox-index @@ -9,12 +9,13 @@ use strict; use warnings; use Getopt::Long qw(:config gnu_getopt no_ignore_case auto_abbrev); -use Cwd 'abs_path'; my $usage = "public-inbox-index REPO_DIR"; use PublicInbox::Config; +use PublicInbox::Admin qw(resolve_repo_dir); + my $config = eval { PublicInbox::Config->new } || eval { warn "public-inbox unconfigured for serving, indexing anyways...\n"; - {} + undef; }; eval { require PublicInbox::SearchIdx }; if ($@) { @@ -35,35 +36,6 @@ die "--jobs must be positive\n" if defined $jobs && $jobs < 0; my @dirs; -sub resolve_repo_dir { - my ($cd) = @_; - my $prefix = defined $cd ? $cd : './'; - if (-d $prefix && -f "$prefix/inbox.lock") { # v2 - return abs_path($prefix); - } - - my @cmd = qw(git rev-parse --git-dir); - my $cmd = join(' ', @cmd); - my $pid = open my $fh, '-|'; - defined $pid or die "forking $cmd failed: $!\n"; - if ($pid == 0) { - if (defined $cd) { - chdir $cd or die "chdir $cd failed: $!\n"; - } - exec @cmd; - die "Failed to exec $cmd: $!\n"; - } else { - my $dir = eval { - local $/; - <$fh>; - }; - close $fh or die "error in $cmd: $!\n"; - chomp $dir; - return abs_path($cd) if ($dir eq '.' && defined $cd); - abs_path($dir); - } -} - if (@ARGV) { @dirs = map { resolve_repo_dir($_) } @ARGV; } else { @@ -73,7 +45,7 @@ if (@ARGV) { sub usage { print STDERR "Usage: $usage\n"; exit 1 } usage() unless @dirs; -$config->each_inbox(sub { +defined($config) and $config->each_inbox(sub { my ($ibx) = @_; for my $i (0..$#dirs) {