[PATCH cluster v2 5/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 | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/src/PVE/CLI/pvecm.pm b/src/PVE/CLI/pvecm.pm
index 7d393a8..95fc950 100755
--- a/src/PVE/CLI/pvecm.pm
+++ b/src/PVE/CLI/pvecm.pm
@@ -561,6 +561,15 @@ __PACKAGE__->register_method({
             $print_info->('Transport', 'transport', 'knet');
             $print_info->('Secure auth', 'secauth', 'off');
             printf "\n";
+
+            my $nodelist = PVE::Corosync::nodelist($conf);
+            my $total_timeout_secs = PVE::Corosync::calculate_membership_recovery_timeout(
+                $totem,
+                scalar(keys %$nodelist),
+            );
+            if (my $msg = PVE::Corosync::get_timeout_warning($total_timeout_secs)) {
+                warn "$msg\n\n";
+            }
         }
 
         exec('corosync-quorumtool', '-siH');
-- 
2.47.3