From fa342f624f0330e281d272ec991ed7dcadfebc39 Mon Sep 17 00:00:00 2001
From: Dmitry Maksyoma <ledestin@gmail.com>
Date: Tue, 3 Aug 2021 20:32:09 +1200
Subject: [PATCH] vncserver: extract AtLeastOneUserConfigured()

---
 unix/vncserver | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/unix/vncserver b/unix/vncserver
index 3732fc2..41ec69d 100755
--- a/unix/vncserver
+++ b/unix/vncserver
@@ -843,7 +843,7 @@ sub DisableVncAuth() {
 }
 
 sub TellUserToSetupUserAndPassword {
-   if (scalar @kasmPasswdUsers > 0) {
+   if (&AtLeastOneUserConfigured()) {
       return;
    }
 
@@ -854,6 +854,10 @@ sub TellUserToSetupUserAndPassword {
    }
 }
 
+sub AtLeastOneUserConfigured {
+   scalar @kasmPasswdUsers > 0;
+}
+
 sub LoadKasmPasswdUsers {
    my @result = ();