vncserver: print user permissions

This commit is contained in:
Dmitry Maksyoma 2021-08-06 22:25:09 +12:00
parent db2901e673
commit fa4308c542

View File

@ -906,12 +906,17 @@ sub AtLeastOneUserConfigured {
sub LoadKasmPasswdUsers {
my @result = ();
my %permissionExplanations = ("w" => "can use keyboard and mouse",
"o" => "can add/remove users",
"ow" => "can use keyboard and mouse, add/remove users",
"" => "can only view");
open(FH, '<', $kasmPasswdFile) or return @result;
while(<FH>){
$_ =~ /^([^:]+):/ or die "$kasmPasswdFile is incorrect";
push(@result, $1);
chomp $_;
my ($name, $__, $permissions) = split(':', $_);
push(@result, "$name ($permissionExplanations{$permissions})");
}
close(FH);
@ -919,7 +924,6 @@ sub LoadKasmPasswdUsers {
return @result;
}
sub MakeXCookie {
# Make an X server cookie and set up the Xauthority file
# mcookie is a part of util-linux, usually only GNU/Linux systems have it.