retrieve userlist, so user properties can bes saved and restored, too

diff --git a/rsbs2.pl b/rsbs2.pl
index a481f456bac5e25dd6d379b45bffed595f107efc..3b752c21187832fe1312c7479f5f4a989a6cbbda 100755 (executable)
--- a/rsbs2.pl
+++ b/rsbs2.pl
@@ -279,6 +279,22 @@ sub show_all_vars {
        }
 }
 
        }
 }
 

+sub usrlist {
+       my $reqstr = '<?XML version="1.0"?><?RMCXML version="1.0"?><RMCSEQ><REQ CMD="usrlist"></REQ></RMCSEQ>';
+       my $res = _req($reqstr);
+       my @users = ();
+
+       if ($res->{RESP}->{RC} ne '0x0') {
+               print "FAILED:".$res->{RESP}->{RC}."\n";
+               ();
+       } else {
+               foreach my $usr (@{$res->{RESP}->{USRLIST}->{USER}}) {
+                       push @users, $usr->{NAME};
+               }
+       }
+       @users;
+}
+

 sub syslog_debug {
        my $destination_ip = shift;
        my $bcast = shift;
 sub syslog_debug {
        my $destination_ip = shift;
        my $bcast = shift;


@@ -506,6 +522,9 @@ if ($save ne '') {
                print SAVEFILE "${ts}=".$phash->{VAL}."\n";
                print STDERR "." if (!$verbose);
        }
                print SAVEFILE "${ts}=".$phash->{VAL}."\n";
                print STDERR "." if (!$verbose);
        }

+       foreach my $usr (usrlist()) {
+               print STDERR "TODO: save user ${usr}\n";
+       }

        close(SAVEFILE);
        print STDERR "done\n" if (!$verbose);
 }
        close(SAVEFILE);
        print STDERR "done\n" if (!$verbose);
 }