diff options
Diffstat (limited to 'script/public-inbox-xcpdb')
-rwxr-xr-x | script/public-inbox-xcpdb | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/script/public-inbox-xcpdb b/script/public-inbox-xcpdb index d494991d..78d37da2 100755 --- a/script/public-inbox-xcpdb +++ b/script/public-inbox-xcpdb @@ -2,17 +2,21 @@ # Copyright (C) 2019 all contributors <meta@public-inbox.org> # License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt> # xcpdb: Xapian copy database, a wrapper around Xapian's copydatabase(1) +use Getopt::Long qw(:config gnu_getopt no_ignore_case auto_abbrev); use PublicInbox::InboxWritable; use PublicInbox::Xapcmd; use PublicInbox::Admin; PublicInbox::Admin::require_or_die('-search'); my $usage = "Usage: public-inbox-xcpdb INBOX_DIR\n"; +my $opt = {}; +GetOptions($opt, qw(compact)) or die "bad command-line args\n$usage"; my @ibxs = PublicInbox::Admin::resolve_inboxes(\@ARGV) or die $usage; + my $cmd = [ \&PublicInbox::Xapcmd::cpdb ]; open my $null, '>', '/dev/null' or die "failed to open /dev/null: $!\n"; -my $rdr = { 1 => fileno($null) }; +$opt->{1} = fileno($null); foreach (@ibxs) { my $ibx = PublicInbox::InboxWritable->new($_); # we rely on --no-renumber to keep docids synched to NNTP - PublicInbox::Xapcmd::run($ibx, $cmd, undef, $rdr); + PublicInbox::Xapcmd::run($ibx, $cmd, undef, $opt); } |