[PATCH manager 2/5] ceph: add pveceph upgrade-check command

[Kefu Chai <k.chai@proxmox.com>]

Expose the Ceph upgrade checks via a new 'pveceph upgrade-check'
subcommand, so operators can run a post-upgrade Ceph readiness check
against the release they are currently running, independently of a PVE
major-version upgrade.

Signed-off-by: Kefu Chai <k.chai@proxmox.com>
---
 PVE/CLI/pveceph.pm | 45 +++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 45 insertions(+)

diff --git a/PVE/CLI/pveceph.pm b/PVE/CLI/pveceph.pm
index d8867106..e5bbbdce 100755
--- a/PVE/CLI/pveceph.pm
+++ b/PVE/CLI/pveceph.pm
@@ -24,6 +24,7 @@ use PVE::Tools qw(run_command);
 use PVE::Ceph::Releases;
 use PVE::Ceph::Services;
 use PVE::Ceph::Tools;
+use PVE::Ceph::UpgradeCheck;
 
 use PVE::API2::Ceph;
 use PVE::API2::Ceph::FS;
@@ -498,6 +499,49 @@ __PACKAGE__->register_method({
     },
 });
 
+__PACKAGE__->register_method({
+    name => 'upgrade-check',
+    path => 'upgrade-check',
+    method => 'GET',
+    description =>
+        "Run post-upgrade Ceph readiness checks for the currently installed release.",
+    parameters => {
+        additionalProperties => 0,
+        properties => {
+            node => get_standard_option('pve-node'),
+        },
+    },
+    returns => { type => 'null' },
+    code => sub {
+        my ($param) = @_;
+
+        my $supported_release = PVE::Ceph::Tools::get_local_version(1);
+        if (!$supported_release) {
+            my $default_codename = PVE::Ceph::Releases::get_default_ceph_release_codename();
+            my $info = PVE::Ceph::Releases::get_ceph_release_info($default_codename);
+            $supported_release = int($info->{release}) if $info;
+        }
+        die "could not determine local Ceph major release\n" if !$supported_release;
+
+        my $messages = PVE::Ceph::UpgradeCheck::run_checks(
+            nodename => $param->{node},
+            supported_release => $supported_release,
+        );
+
+        my $counters = { pass => 0, info => 0, notice => 0, warn => 0, fail => 0, skip => 0 };
+        for my $m ($messages->@*) {
+            $counters->{ $m->{level} }++ if exists $counters->{ $m->{level} };
+            print uc($m->{level}) . ": $m->{msg}\n";
+        }
+
+        print "\n";
+        print "Summary: $counters->{pass} pass, $counters->{notice} notices,"
+            . " $counters->{warn} warnings, $counters->{fail} failures.\n";
+
+        return undef;
+    },
+});
+
 my $format_osddetails = sub {
     my ($data, $schema, $options) = @_;
 
@@ -616,6 +660,7 @@ our $cmddef = {
     install => [__PACKAGE__, 'install', []],
     purge => [__PACKAGE__, 'purge', []],
     status => [__PACKAGE__, 'status', []],
+    'upgrade-check' => [__PACKAGE__, 'upgrade-check', [], { node => $nodename }],
 };
 
 1;
-- 
2.47.3