diff options
author | Eric Wong <e@yhbt.net> | 2020-03-28 00:56:04 +0000 |
---|---|---|
committer | Eric Wong <e@yhbt.net> | 2020-03-29 23:28:30 +0000 |
commit | b5ddcb3352ef31aeb03b4c4cbb04af3de34a4c4f (patch) | |
tree | 6e1a63adf6d5a28add5edf0bd74ca8bcaff2c00f /script | |
parent | 8e1ec8836dabc58dfc0115b36ed440b4371b70d7 (diff) | |
download | public-inbox-b5ddcb3352ef31aeb03b4c4cbb04af3de34a4c4f.tar.gz |
It's more convenient to specify `-c' / `--compact' on the command-line when reindexing than it is to invoke public-inbox-compact(1) separately. This is especially convenient in low-space situations when public-inbox-index is operating on multiple inboxes sequentially, as compaction can happen immediately after indexing each inbox, instead of waiting until all inboxes are indexed.
Diffstat (limited to 'script')
-rwxr-xr-x | script/public-inbox-index | 20 |
1 files changed, 17 insertions, 3 deletions
diff --git a/script/public-inbox-index b/script/public-inbox-index index c6910420..7def9964 100755 --- a/script/public-inbox-index +++ b/script/public-inbox-index @@ -11,12 +11,19 @@ use Getopt::Long qw(:config gnu_getopt no_ignore_case auto_abbrev); my $usage = "public-inbox-index INBOX_DIR"; use PublicInbox::Admin; PublicInbox::Admin::require_or_die('-index'); +use PublicInbox::Xapcmd; -my $opt = { quiet => -1 }; -GetOptions($opt, qw(verbose|v+ reindex jobs|j=i prune indexlevel|L=s)) +my $compact_opt; +my $opt = { quiet => -1, compact => 0 }; +GetOptions($opt, qw(verbose|v+ reindex compact|c+ jobs|j=i prune indexlevel|L=s)) or die "bad command-line args\n$usage"; die "--jobs must be positive\n" if defined $opt->{jobs} && $opt->{jobs} <= 0; +if ($opt->{compact}) { + require PublicInbox::Xapcmd; + PublicInbox::Xapcmd::check_compact(); + $compact_opt = { -coarse_lock => 1, compact => 1 }; +} my @ibxs = PublicInbox::Admin::resolve_inboxes(\@ARGV); PublicInbox::Admin::require_or_die('-index'); @@ -31,4 +38,11 @@ foreach my $ibx (@ibxs) { PublicInbox::Admin::require_or_die(keys %$mods); PublicInbox::Admin::progress_prepare($opt); -PublicInbox::Admin::index_inbox($_, undef, $opt) for @ibxs; +for my $ibx (@ibxs) { + $ibx = PublicInbox::InboxWritable->new($ibx); + if ($opt->{compact} >= 2) { + PublicInbox::Xapcmd::run($ibx, 'compact', $compact_opt); + } + PublicInbox::Admin::index_inbox($ibx, undef, $opt); + PublicInbox::Xapcmd::run($ibx, 'compact', $compact_opt) if $compact_opt; +} |