From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: X-Spam-Checker-Version: SpamAssassin 3.4.2 (2018-09-13) on dcvr.yhbt.net X-Spam-Level: X-Spam-ASN: X-Spam-Status: No, score=-4.0 required=3.0 tests=ALL_TRUSTED,AWL,BAYES_00 shortcircuit=no autolearn=ham autolearn_force=no version=3.4.2 Received: from localhost (dcvr.yhbt.net [127.0.0.1]) by dcvr.yhbt.net (Postfix) with ESMTP id AFDE81F9F6 for ; Sun, 9 Jun 2019 02:51:48 +0000 (UTC) From: "Eric Wong (Contractor, The Linux Foundation)" To: meta@public-inbox.org Subject: [PATCH 06/11] purge: start moving common options to AdminEdit module Date: Sun, 9 Jun 2019 02:51:42 +0000 Message-Id: <20190609025147.24966-7-e@80x24.org> In-Reply-To: <20190609025147.24966-1-e@80x24.org> References: <20190609025147.24966-1-e@80x24.org> MIME-Version: 1.0 Content-Transfer-Encoding: 8bit List-Id: Editing and purging are similar operations involving history rewrites, so there'll be common options and code between them. --- MANIFEST | 1 + lib/PublicInbox/AdminEdit.pm | 11 +++++++++++ script/public-inbox-purge | 25 ++++++++++--------------- 3 files changed, 22 insertions(+), 15 deletions(-) create mode 100644 lib/PublicInbox/AdminEdit.pm diff --git a/MANIFEST b/MANIFEST index 321da03..dcf1a60 100644 --- a/MANIFEST +++ b/MANIFEST @@ -68,6 +68,7 @@ examples/unsubscribe.psgi examples/varnish-4.vcl lib/PublicInbox/Address.pm lib/PublicInbox/Admin.pm +lib/PublicInbox/AdminEdit.pm lib/PublicInbox/AltId.pm lib/PublicInbox/Cgit.pm lib/PublicInbox/Config.pm diff --git a/lib/PublicInbox/AdminEdit.pm b/lib/PublicInbox/AdminEdit.pm new file mode 100644 index 0000000..109a99f --- /dev/null +++ b/lib/PublicInbox/AdminEdit.pm @@ -0,0 +1,11 @@ +# Copyright (C) 2019 all contributors +# License: AGPL-3.0+ + +# common stuff between -edit, -purge (and maybe -learn in the future) +package PublicInbox::AdminEdit; +use strict; +use warnings; +use PublicInbox::Admin; +our @OPT = qw(all force|f verbose|v!); + +1; diff --git a/script/public-inbox-purge b/script/public-inbox-purge index 25e6cc9..d58a9ba 100755 --- a/script/public-inbox-purge +++ b/script/public-inbox-purge @@ -7,7 +7,7 @@ use strict; use warnings; use Getopt::Long qw(:config gnu_getopt no_ignore_case auto_abbrev); -use PublicInbox::Admin qw(resolve_repo_dir); +use PublicInbox::AdminEdit; PublicInbox::Admin::check_require('-index'); require PublicInbox::Filter::Base; require PublicInbox::Config; @@ -19,25 +19,20 @@ require PublicInbox::V2Writable; my $usage = "$0 [--all] [INBOX_DIRS] new }; my $cfgfile = PublicInbox::Config::default_file(); -my ($all, $force); -my $verbose = 1; -my %opts = ( - 'all' => \$all, - 'force|f' => \$force, - 'verbose|v!' => \$verbose, -); -GetOptions(%opts) or die "bad command-line args\n", $usage, "\n"; +my $opt = { verbose => 1 }; +GetOptions($opt, @PublicInbox::AdminEdit::OPT) or + die "bad command-line args\n$usage\n"; # TODO: clean this up and share code with -index via ::Admin my %dir2ibx; # ( path => Inbox object ) my @inboxes; $config and $config->each_inbox(sub { my ($ibx) = @_; - push @inboxes, $ibx if $all && $ibx->{version} != 1; + push @inboxes, $ibx if $opt->{all} && $ibx->{version} != 1; $dir2ibx{$ibx->{mainrepo}} = $ibx; }); -if ($all) { +if ($opt->{all}) { $config or die "--all specified, but $cfgfile not readable\n"; @ARGV and die "--all specified, but directories specified\n"; } else { @@ -47,7 +42,7 @@ if ($all) { foreach my $dir (@dirs) { my $v; - my $dir = resolve_repo_dir($dir, \$v); + my $dir = PublicInbox::Admin::resolve_repo_dir($dir, \$v); if ($v == 1) { push @err, $dir; next; @@ -127,7 +122,7 @@ foreach my $ibx (@inboxes) { $v2w->done; - if ($verbose) { # should we consider this machine-parseable? + if ($opt->{verbose}) { # should we consider this machine-parseable? print "$ibx->{mainrepo}:"; if (scalar @$commits) { print join("\n\t", '', @$commits), "\n"; @@ -139,7 +134,7 @@ foreach my $ibx (@inboxes) { } # behave like "rm -f" -exit(0) if ($force || $n_purged); +exit(0) if ($opt->{force} || $n_purged); -warn "Not found\n" if $verbose; +warn "Not found\n" if $opt->{verbose}; exit(1); -- EW