update copyright headers and email addresses

[public-inbox.git] / public-inbox-index

diff --git a/public-inbox-index b/public-inbox-index
index f39ad9e10b0be9f5ae5b82c1464131a9453849ca..53449556d3c43880cf2fe48b1fa41a3971f1e72c 100755 (executable)
--- a/public-inbox-index
+++ b/public-inbox-index
@@ -1,5 +1,5 @@
 #!/usr/bin/perl -w
-# Copyright (C) 2015, all contributors (git clone git://80x24.org/public-inbox)
+# Copyright (C) 2015 all contributors <meta@public-inbox.org>
 # License: AGPLv3 or later (https://www.gnu.org/licenses/agpl-3.0.txt)
 # Basic tool to create a Xapian search index for a git repository
 # configured for public-inbox.
@@ -15,11 +15,42 @@ if ($@) {
        print STDERR "Search::Xapian required for $0\n";
        exit 1;
 }
+my @dirs;
+
+sub resolve_git_dir {
+       my ($cd) = @_;
+       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 $cd if ($dir eq '.' && defined $cd);
+               $dir;
+       }
+}
+
+if (@ARGV) {
+       @dirs = map { resolve_git_dir($_) } @ARGV;
+} else {
+       @dirs = (resolve_git_dir());
+}
 
 sub usage { print STDERR "Usage: $usage\n"; exit 1 }
-usage() unless @ARGV;
+usage() unless @dirs;
 
-foreach my $dir (@ARGV) {
+foreach my $dir (@dirs) {
        index_dir($dir);
 }