diff --git a/tools/striker-manage-vnc-pipes b/tools/striker-manage-vnc-pipes index 39322a12..f86ca48f 100755 --- a/tools/striker-manage-vnc-pipes +++ b/tools/striker-manage-vnc-pipes @@ -171,7 +171,7 @@ sub find_ws_processes $anvil->Log->variables({ source => $THIS_FILE, line => __LINE__, level => $debug, list => $parameters, prefix => "find_ws_processes" }); - my $ps_call = "$pgrep -a '$ps_name' | $sed -En 's/^([[:digit:]]+).*${ps_name}[[:space:]:]+([[:digit:]]+)[[:space:]:]+([[:digit:]]+).*\$/\\1,\\2,\\3/p'"; + my $ps_call = "$pgrep -a '$ps_name' | $sed -En 's/^([[:digit:]]+).*${ps_name}([[:space:]]+(--?[^[:space:]]+))*[[:space:]:]+([[:digit:]]+)[[:space:]:]+([[:digit:]]+).*\$/\\1,\\4,\\5/p'"; my ($rcode, $output) = call({ call => $ps_call, debug => $debug }); @@ -358,20 +358,27 @@ sub start_ws return (0, $existing_ws_pid) if (defined $existing_ws_pid); - my ($find_rcode, $ws_sport) = find_available_port({ debug => $debug, start => int($svr_vnc_port) + int($ws_sport_offset) }); + my $rcode; + + ($rcode, my $ws_sport) = find_available_port({ debug => $debug, start => int($svr_vnc_port) + int($ws_sport_offset) }); + + return ($rcode) if ($rcode); - return (1) if ($find_rcode); + my $ws_call = "$websockify -D $ws_sport :$svr_vnc_port &>/dev/null"; - my $ws_call = "$websockify $ws_sport :$svr_vnc_port &>/dev/null"; + ($rcode) = call({ call => $ws_call, debug => $debug }); - my ($start_rcode, $start_ps) = call({ background => 1, call => $ws_call, debug => $debug }); + return ($rcode) if ($rcode); - return (1) if ($start_rcode); + # Re-find to locate the new daemon. + ($rcode, my $re_ws_processes) = find_ws_processes({ debug => $debug }); - my $ws_pid = $start_ps->pid; + return ($rcode) if ($rcode); - my $ws_process = { pid => $ws_pid, sport => $ws_sport, tport => $svr_vnc_port }; + my $ws_pid = $re_ws_processes->{targets}{$svr_vnc_port}; + my $ws_process = $re_ws_processes->{pids}{$ws_pid}; + # Remember the started daemon. set_ws_process({ debug => $debug, entry => $ws_process, entries => $ws_processes }); return (0, $ws_pid);