+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;
+}
+