vncserver: extract WarnUserXvncNotStartedAndExit()

unix/vncserver

@@ -119,12 +119,7 @@ sleep(3);
 &IfXvncDidntStartTryFixingFontPathAndStartXvncAgain();
 
 unless (&IsXvncRunning()) {
-    warn "Could not start Xvnc.\n\n";
-    unlink $pidFile;
-    open(LOG, "<$desktopLog");
-    while (<LOG>) { print; }
-    close(LOG);
-    die "\n";
+   &WarnUserXvncNotStartedAndExit();
 }
 
 warn "\nNew '$desktopName' desktop is $host:$displayNumber\n";
@@ -952,3 +947,12 @@ sub IfXvncDidntStartTryFixingFontPathAndStartXvncAgain {
 sub IsXvncRunning {
    kill 0, `cat $pidFile`;
 }
+
+sub WarnUserXvncNotStartedAndExit {
+    warn "Could not start Xvnc.\n\n";
+    unlink $pidFile;
+    open(LOG, "<$desktopLog");
+    while (<LOG>) { print; }
+    close(LOG);
+    die "\n";
+}