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