FenceConfig: fix write_config

This problems where detected with the new fence config parser self
check tests introduced as a later patch here.

Signed-off-by: Thomas Lamprecht <t.lamprecht@proxmox.com>

diff --git a/src/PVE/HA/FenceConfig.pm b/src/PVE/HA/FenceConfig.pm
index d7a611e560014b48eb7f716458b18021364e7e89..fef480c81b2c2221355628203e6c9646eefaa6c5 100644 (file)
--- a/src/PVE/HA/FenceConfig.pm
+++ b/src/PVE/HA/FenceConfig.pm
@@ -90,19 +90,19 @@ sub write_config {
 
     my $raw = '';
 
-    foreach my $dev_name (sort {$a->{priority} <=> $b->{priority}} keys %$data) {
+    foreach my $dev_name (sort {$data->{$a}->{priority} <=> $data->{$b}->{priority}} keys %$data) {
        my $d = $data->{$dev_name};
 
        foreach my $sub_dev_nr (sort keys %{$d->{sub_devs}}) {
            my $sub_dev = $d->{sub_devs}->{$sub_dev_nr};
-           my $dev_arg_str = join (' ', @{$sub_dev->{args}});
+           my $dev_arg_str = PVE::Tools::cmd2string($sub_dev->{args});
 
            $raw .= "\ndevice $dev_name:$sub_dev_nr $sub_dev->{agent} $dev_arg_str\n";
 
            foreach my $node (sort keys %{$sub_dev->{node_args}}) {
                my $node_arg_str = join (' ', @{$sub_dev->{node_args}->{$node}});
 
-               $raw .= "connect $dev_name:$sub_dev_nr $node_arg_str\n";
+               $raw .= "connect $dev_name:$sub_dev_nr node=$node $node_arg_str\n";
            }
        }
     }