[PATCH cluster v4 4/8] pvecm: warn users of high token timeouts when using status command

["Michael Köppl" <m.koeppl@proxmox.com>]

If the calculated token timeout is above certain thresholds, display a
warning for users when running `pvecm status` as part of the Cluster
Information block. Also points users to the documentation regarding
potential adaptations to their cluster configuration to alleviate the
problem.

Signed-off-by: Michael Köppl <m.koeppl@proxmox.com>
---
 src/PVE/CLI/pvecm.pm | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/src/PVE/CLI/pvecm.pm b/src/PVE/CLI/pvecm.pm
index 7d393a8..192adb7 100755
--- a/src/PVE/CLI/pvecm.pm
+++ b/src/PVE/CLI/pvecm.pm
@@ -561,6 +561,13 @@ __PACKAGE__->register_method({
             $print_info->('Transport', 'transport', 'knet');
             $print_info->('Secure auth', 'secauth', 'off');
             printf "\n";
+
+            my $total_timeout_secs = PVE::Corosync::calculate_membership_recovery_timeout();
+            my ($level, $msg) =
+                PVE::Corosync::get_membership_recovery_timeout_warning($total_timeout_secs);
+            if (defined($msg)) {
+                warn "$msg See 'man pvecm' for details.\n\n";
+            }
         }
 
         exec('corosync-quorumtool', '-siH');
-- 
2.47.3