|
|
@ -2741,7 +2741,7 @@ sub interactive_ask_server_os |
|
|
|
} |
|
|
|
} |
|
|
|
} |
|
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
$anvil->Get->virsh_list_os({debug => 2}); |
|
|
|
$anvil->Get->virsh_list_os(); |
|
|
|
foreach my $os_code (split/,/, $anvil->data->{sys}{servers}{os_short_list}) |
|
|
|
foreach my $os_code (split/,/, $anvil->data->{sys}{servers}{os_short_list}) |
|
|
|
{ |
|
|
|
{ |
|
|
|
$os_code =~ s/ //g; |
|
|
|
$os_code =~ s/ //g; |
|
|
@ -2841,7 +2841,8 @@ sub interactive_ask_server_confirm |
|
|
|
$anvil->Database->get_anvils(); |
|
|
|
$anvil->Database->get_anvils(); |
|
|
|
$anvil->Database->get_files(); |
|
|
|
$anvil->Database->get_files(); |
|
|
|
$anvil->Database->get_file_locations(); |
|
|
|
$anvil->Database->get_file_locations(); |
|
|
|
|
|
|
|
$anvil->Get->virsh_list_os(); |
|
|
|
|
|
|
|
|
|
|
|
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { |
|
|
|
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { |
|
|
|
"new_server::anvil_uuid" => $anvil->data->{new_server}{anvil_uuid}, |
|
|
|
"new_server::anvil_uuid" => $anvil->data->{new_server}{anvil_uuid}, |
|
|
|
"switches::ci-test" => $anvil->data->{switches}{'ci-test'}, |
|
|
|
"switches::ci-test" => $anvil->data->{switches}{'ci-test'}, |
|
|
|