fix(tools): improve debug log of start processes in manage vnc pipes

main
Tsu-ba-me 1 year ago committed by Yanhao Lei
parent 42a0cbc8a2
commit 0f3397bb18
  1. 7
      tools/striker-manage-vnc-pipes

@ -329,7 +329,8 @@ sub set_process
my $process = $parameters->{process};
my $processes = $parameters->{processes};
$anvil->Log->variables({ source => $THIS_FILE, line => __LINE__, level => $debug, list => $process, prefix => "process" });
$anvil->Log->variables({ source => $THIS_FILE, line => __LINE__, level => $debug, list => $parameters, prefix => "set_process" });
$anvil->Log->variables({ source => $THIS_FILE, line => __LINE__, level => $debug, list => $process });
return (1) if (not defined $processes);
@ -528,6 +529,8 @@ sub start_tp
my $existing_tp_pid = $tp_processes->{targets}{$tp_target};
$anvil->Log->variables({ source => $THIS_FILE, line => __LINE__, level => $debug, list => { existing_tp_pid => $existing_tp_pid } });
return (0, $existing_tp_pid) if (defined $existing_tp_pid);
my $tp_call = "$manage_tunnel --debug $debug --target $tp_target --ctl-path '$tp_ctl_path' --tunnel-ls-path '$tp_tunnel_ls_path' & $echo pid:\$!";
@ -622,6 +625,8 @@ sub start_ws
my $existing_ws_pid = $ws_processes->{targets}{$svr_vnc_port};
$anvil->Log->variables({ source => $THIS_FILE, line => __LINE__, level => $debug, list => { existing_ws_pid => $existing_ws_pid } });
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) });

Loading…
Cancel
Save