user.cfg: sort entries alphabetically in each section

it's not required for dependencies (since those are only ever between
sections, and not within), but makes for easier diffing.

Signed-off-by: Fabian Grünbichler <f.gruenbichler@proxmox.com>

diff --git a/PVE/AccessControl.pm b/PVE/AccessControl.pm
index 6ea0b85b81c9d97df7b0ff4f7f53b8705672342d..3e52c5f5389ae6b5c7d3216a3f014535b37119b8 100644 (file)
--- a/PVE/AccessControl.pm
+++ b/PVE/AccessControl.pm
@@ -1049,7 +1049,7 @@ sub write_user_config {
 
     my $data = '';
 
 
     my $data = '';
 

-    foreach my $user (keys %{$cfg->{users}}) {
+    foreach my $user (sort keys %{$cfg->{users}}) {

        my $d = $cfg->{users}->{$user};
        my $firstname = $d->{firstname} ? PVE::Tools::encode_text($d->{firstname}) : '';
        my $lastname = $d->{lastname} ? PVE::Tools::encode_text($d->{lastname}) : '';
        my $d = $cfg->{users}->{$user};
        my $firstname = $d->{firstname} ? PVE::Tools::encode_text($d->{firstname}) : '';
        my $lastname = $d->{lastname} ? PVE::Tools::encode_text($d->{lastname}) : '';


@@ -1063,7 +1063,7 @@ sub write_user_config {
 
     $data .= "\n";
 
 
     $data .= "\n";
 

-    foreach my $group (keys %{$cfg->{groups}}) {
+    foreach my $group (sort keys %{$cfg->{groups}}) {

        my $d = $cfg->{groups}->{$group};
        my $list = join (',', keys %{$d->{users}});
        my $comment = $d->{comment} ? PVE::Tools::encode_text($d->{comment}) : '';
        my $d = $cfg->{groups}->{$group};
        my $list = join (',', keys %{$d->{users}});
        my $comment = $d->{comment} ? PVE::Tools::encode_text($d->{comment}) : '';


@@ -1072,7 +1072,7 @@ sub write_user_config {
 
     $data .= "\n";
 
 
     $data .= "\n";
 

-    foreach my $pool (keys %{$cfg->{pools}}) {
+    foreach my $pool (sort keys %{$cfg->{pools}}) {

        my $d = $cfg->{pools}->{$pool};
        my $vmlist = join (',', keys %{$d->{vms}});
        my $storelist = join (',', keys %{$d->{storage}});
        my $d = $cfg->{pools}->{$pool};
        my $vmlist = join (',', keys %{$d->{vms}});
        my $storelist = join (',', keys %{$d->{storage}});


@@ -1082,7 +1082,7 @@ sub write_user_config {
 
     $data .= "\n";
 
 
     $data .= "\n";
 

-    foreach my $role (keys %{$cfg->{roles}}) {
+    foreach my $role (sort keys %{$cfg->{roles}}) {

        next if $special_roles->{$role};
 
        my $d = $cfg->{roles}->{$role};
        next if $special_roles->{$role};
 
        my $d = $cfg->{roles}->{$role};