seasharp/anvil
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix(tools): add target host to vnc info variable

Browse Source
This commit is contained in:
Tsu-ba-me 2023-07-18 15:49:21 -04:00 committed by digimer
parent 0b91ee0314
commit cb98d28eb0
1 changed files with 8 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
tools/striker-manage-vnc-pipes
View File

@ -97,7 +97,7 @@ sub build_find_available_port_call
return (0, $call);
}
sub build_vncport_variable_name
sub build_vncinfo_variable_name
{
my ($svr_uuid) = @_;
@ -250,20 +250,22 @@ sub set_entry
return (0);
}
sub set_vncport_variable
sub set_vncinfo_variable
{
my $parameters = shift;
my $debug = $parameters->{debug} || 3;
my $end_port = $parameters->{end_port};
my $svr_uuid = $parameters->{svr_uuid};
$anvil->Log->variables({ source => $THIS_FILE, line => __LINE__, level => $debug, list => $parameters, prefix => "set_vncport_variable" });
$anvil->Log->variables({ source => $THIS_FILE, line => __LINE__, level => $debug, list => $parameters, prefix => "set_vncinfo_variable" });
my $local_host_name = $anvil->data->{sys}{host_name};
my ($variable_uuid) = $anvil->Database->insert_or_update_variables({
file => $THIS_FILE,
line => __LINE__,
variable_name => build_vncport_variable_name($svr_uuid),
variable_value => $end_port,
variable_name => build_vncinfo_variable_name($svr_uuid),
variable_value => "${local_host_name}:${end_port}",
});
return (1) if (not is_uuid_v4($variable_uuid));
@ -331,7 +333,7 @@ sub start_pipe
my $ws_process = $ws_processes->{pids}{$ws_pid};
($rcode) = set_vncport_variable({ end_port => $ws_process->{sport}, svr_uuid => $svr_uuid, %$common_params });
set_vncinfo_variable({ end_port => $ws_process->{sport}, svr_uuid => $svr_uuid, %$common_params });
return (0);
}