1 files changed, 67 insertions, 0 deletions
diff --git a/lib/PublicInbox/AdminEdit.pm b/lib/PublicInbox/AdminEdit.pm
new file mode 100644
index 00000000..169feba0
--- /dev/null
+++ b/lib/PublicInbox/AdminEdit.pm
@@ -0,0 +1,67 @@
+# Copyright (C) 2019 all contributors <meta@public-inbox.org>
+# License: AGPL-3.0+ <https://www.gnu.org/licenses/agpl-3.0.txt>
+
+# 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!);
+
+sub check_editable ($) {
+        my ($ibxs) = @_;
+
+        foreach my $ibx (@$ibxs) {
+                my $lvl = $ibx->{indexlevel};
+                if (defined $lvl) {
+                        PublicInbox::Admin::indexlevel_ok_or_die($lvl);
+                        next;
+                }
+
+                # Undefined indexlevel, so `full'...
+                # Search::Xapian exists and the DB can be read, at least, fine
+                $ibx->search and next;
+
+                # it's possible for a Xapian directory to exist,
+                # but Search::Xapian to go missing/broken.
+                # Make sure it's purged in that case:
+                $ibx->over or die "no over.sqlite3 in $ibx->{mainrepo}\n";
+
+                # $ibx->{search} is populated by $ibx->over call
+                my $xdir_ro = $ibx->{search}->xdir(1);
+                my $npart = 0;
+                foreach my $part (<$xdir_ro/*>) {
+                        if (-d $part && $part =~ m!/[0-9]+\z!) {
+                                my $bytes = 0;
+                                $bytes += -s $_ foreach glob("$part/*");
+                                $npart++ if $bytes;
+                        }
+                }
+                if ($npart) {
+                        PublicInbox::Admin::require_or_die('-search');
+                } else {
+                        # somebody could "rm -r" all the Xapian directories;
+                        # let them purge the overview, at least
+                        $ibx->{indexlevel} ||= 'basic';
+                }
+        }
+}
+
+# takes the output of V2Writable::purge and V2Writable::replace
+# $rewrites = [ array commits keyed by epoch ]
+sub show_rewrites ($$$) {
+        my ($fh, $ibx, $rewrites) = @_;
+        print $fh "$ibx->{mainrepo}:";
+        if (scalar @$rewrites) {
+                my $epoch = -1;
+                my @out = map {;
+                        ++$epoch;
+                        "$epoch.git: ".(defined($_) ? $_ : '(unchanged)')
+                } @$rewrites;
+                print $fh join("\n\t", '', @out), "\n";
+        } else {
+                print $fh " NONE\n";
+        }
+}
+
+1;