[PATCH ha-manager 1/7] sim: always limit the priority level to 4 characters

[Daniel Kral <d.kral@proxmox.com>]

This is already done in the PVE::HA::Sim::TestEnv::log(), do the same
for the other Sim Env/Hardware implementations as any longer priority
level (such as 'warning') would produce a log line, where the priority
level would misalign the following time, log id and message columns.

Signed-off-by: Daniel Kral <d.kral@proxmox.com>
---
 src/PVE/HA/Sim/Env.pm          | 1 +
 src/PVE/HA/Sim/Hardware.pm     | 1 +
 src/PVE/HA/Sim/RTEnv.pm        | 1 +
 src/PVE/HA/Sim/RTHardware.pm   | 1 +
 src/PVE/HA/Sim/TestHardware.pm | 1 +
 5 files changed, 5 insertions(+)

diff --git a/src/PVE/HA/Sim/Env.pm b/src/PVE/HA/Sim/Env.pm
index 65d4efad..63368117 100644
--- a/src/PVE/HA/Sim/Env.pm
+++ b/src/PVE/HA/Sim/Env.pm
@@ -332,6 +332,7 @@ sub log {
     chomp $msg;
 
     my $time = $self->get_time();
+    $level = substr($level, 0, 4);
 
     printf("%-5s %5d %12s: $msg\n", $level, $time, "$self->{nodename}/$self->{log_id}");
 }
diff --git a/src/PVE/HA/Sim/Hardware.pm b/src/PVE/HA/Sim/Hardware.pm
index 82f85c97..163e35af 100644
--- a/src/PVE/HA/Sim/Hardware.pm
+++ b/src/PVE/HA/Sim/Hardware.pm
@@ -669,6 +669,7 @@ sub log {
     chomp $msg;
 
     my $time = $self->get_time();
+    $level = substr($level, 0, 4);
 
     $id = 'hardware' if !$id;
 
diff --git a/src/PVE/HA/Sim/RTEnv.pm b/src/PVE/HA/Sim/RTEnv.pm
index ab5ac996..50d0731e 100644
--- a/src/PVE/HA/Sim/RTEnv.pm
+++ b/src/PVE/HA/Sim/RTEnv.pm
@@ -31,6 +31,7 @@ sub log {
     my ($self, $level, $msg) = @_;
 
     chomp $msg;
+    $level = substr($level, 0, 4);
 
     my $time = $self->get_time();
 
diff --git a/src/PVE/HA/Sim/RTHardware.pm b/src/PVE/HA/Sim/RTHardware.pm
index 9528f542..d16582a3 100644
--- a/src/PVE/HA/Sim/RTHardware.pm
+++ b/src/PVE/HA/Sim/RTHardware.pm
@@ -65,6 +65,7 @@ sub log {
     chomp $msg;
 
     my $time = $self->get_time();
+    $level = substr($level, 0, 4);
 
     $id = 'hardware' if !$id;
 
diff --git a/src/PVE/HA/Sim/TestHardware.pm b/src/PVE/HA/Sim/TestHardware.pm
index ebe6b546..0cedce7b 100644
--- a/src/PVE/HA/Sim/TestHardware.pm
+++ b/src/PVE/HA/Sim/TestHardware.pm
@@ -68,6 +68,7 @@ sub log {
     chomp $msg;
 
     my $time = $self->get_time();
+    $level = substr($level, 0, 4);
 
     $id = 'hardware' if !$id;
 
-- 
2.47.3