|
|
@ -1432,14 +1432,15 @@ sub prep_database |
|
|
|
}}); |
|
|
|
}}); |
|
|
|
if ($prep_database) |
|
|
|
if ($prep_database) |
|
|
|
{ |
|
|
|
{ |
|
|
|
### NOTE: This failed once, in case / until it happens again, we'll force log level 2 and secure logging. |
|
|
|
$anvil->Database->configure_pgsql({debug => 2}) |
|
|
|
my $shell_call = $anvil->data->{path}{exe}{'striker-prep-database'}." -vv --log-secure"; |
|
|
|
# ### NOTE: This failed once, in case / until it happens again, we'll force log level 2 and secure logging. |
|
|
|
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { shell_call => $shell_call }}); |
|
|
|
# my $shell_call = $anvil->data->{path}{exe}{'striker-prep-database'}." -vv --log-secure"; |
|
|
|
my ($database_output, $return_code) = $anvil->System->call({debug => 2, shell_call => $shell_call, source => $THIS_FILE, line => __LINE__ }); |
|
|
|
# $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { shell_call => $shell_call }}); |
|
|
|
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { |
|
|
|
# my ($database_output, $return_code) = $anvil->System->call({debug => 2, shell_call => $shell_call, source => $THIS_FILE, line => __LINE__ }); |
|
|
|
database_output => $database_output, |
|
|
|
# $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => 2, list => { |
|
|
|
return_code => $return_code, |
|
|
|
# database_output => $database_output, |
|
|
|
}}); |
|
|
|
# return_code => $return_code, |
|
|
|
|
|
|
|
# }}); |
|
|
|
} |
|
|
|
} |
|
|
|
elsif (not $anvil->data->{sys}{database}{connections}) |
|
|
|
elsif (not $anvil->data->{sys}{database}{connections}) |
|
|
|
{ |
|
|
|
{ |
|
|
|