]> Sergey Matveev's repositories - public-inbox.git/blob - public-inbox-index
view: wire up mbox.gz links
[public-inbox.git] / public-inbox-index
1 #!/usr/bin/perl -w
2 # Copyright (C) 2015, all contributors (git clone git://80x24.org/public-inbox)
3 # License: AGPLv3 or later (https://www.gnu.org/licenses/agpl-3.0.txt)
4 # Basic tool to create a Xapian search index for a git repository
5 # configured for public-inbox.
6 # Usage with libeatmydata <https://www.flamingspork.com/projects/libeatmydata/>
7 # highly recommended: eatmydata public-inbox-index GIT_DIR
8
9 use strict;
10 use warnings;
11 my $usage = "public-inbox-index GIT_DIR";
12 use PublicInbox::Config;
13 eval { require PublicInbox::SearchIdx };
14 if ($@) {
15         print STDERR "Search::Xapian required for $0\n";
16         exit 1;
17 }
18
19 sub usage { print STDERR "Usage: $usage\n"; exit 1 }
20 usage() unless @ARGV;
21
22 foreach my $dir (@ARGV) {
23         index_dir($dir);
24 }
25
26 sub index_dir {
27         my ($git_dir) = @_;
28         -d $git_dir or die "$git_dir does not appear to be a git repository\n";
29         my $s = PublicInbox::SearchIdx->new($git_dir, 1);
30         $s->index_sync;
31 }