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

Added logging for DB connection test bug

Browse Source 
Signed-off-by: Madison Kelly <mkelly@alteeve.com>
main
Madison Kelly 7 months ago
parent 52643885d2
commit d3ddbd395f
1 changed files with 12 additions and 5 deletions
Whitespace
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Unified View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 17
      Anvil/Tools/Database.pm

17
Anvil/Tools/Database.pm
Unescape View File

@ -17451,7 +17451,7 @@ sub query
my $timeout = defined $parameter->{timeout} ? $parameter->{timeout} : 30; my $timeout = defined $parameter->{timeout} ? $parameter->{timeout} : 30;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => { $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => {
uuid => $uuid, uuid => $uuid,
"cache::database_handle::${uuid}" => $anvil->data->{cache}{database_handle}{$uuid}, "cache::database_handle::${uuid}" => $uuid ? $anvil->data->{cache}{database_handle}{$uuid} : "",
line => $line, line => $line,
query => (not $secure) ? $query : $anvil->Log->is_secure($query), query => (not $secure) ? $query : $anvil->Log->is_secure($query),
secure => $secure, secure => $secure,
@ -17466,8 +17466,9 @@ sub query
$uuid = $anvil->data->{sys}{database}{read_uuid}; $uuid = $anvil->data->{sys}{database}{read_uuid};
$used_read_uuid = 1; $used_read_uuid = 1;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => { $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => {
"s1:uuid" => $uuid, "s1:uuid" => $uuid,
"s2:used_read_uuid" => $used_read_uuid, "s2:used_read_uuid" => $used_read_uuid,
"s3:cache::database_handle::${uuid}" => $anvil->data->{cache}{database_handle}{$uuid},
}}); }});
} }
@ -20748,7 +20749,9 @@ sub _test_access
alarm(0); alarm(0);
if (not $connected) if (not $connected)
{ {
if ((not exists $anvil->data->{sys}{in_test_access}) or (not $anvil->data->{sys}{in_test_access})) $anvil->data->{sys}{in_test_access} = 0 if not defined $anvil->data->{sys}{in_test_access};
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => { "sys::in_test_access" => $anvil->data->{sys}{in_test_access} }});
if (not $anvil->data->{sys}{in_test_access})
{ {
# This prevents deep recursion # This prevents deep recursion
$anvil->data->{sys}{in_test_access} = 1; $anvil->data->{sys}{in_test_access} = 1;
@ -20768,7 +20771,8 @@ sub _test_access
$anvil->data->{sys}{in_test_access} = 0; $anvil->data->{sys}{in_test_access} = 0;
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => { $anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => {
"sys::in_test_access" => $anvil->data->{sys}{in_test_access}, "s1:sys::in_test_access" => $anvil->data->{sys}{in_test_access},
"s2:cache::database_handle::${uuid}" => $anvil->data->{cache}{database_handle}{$uuid},
}}); }});
if ($anvil->data->{cache}{database_handle}{$uuid}) if ($anvil->data->{cache}{database_handle}{$uuid})
@ -20805,6 +20809,9 @@ sub _test_access
else else
{ {
# No luck. # No luck.
$anvil->Log->entry({source => $THIS_FILE, line => __LINE__, level => 1, key => "warning_0179", variables => { server => $say_server }});
$anvil->Log->variables({source => $THIS_FILE, line => __LINE__, level => $debug, list => { problem => $problem }});
return($problem);
} }
} }

Write Preview
Loading…
Cancel
Save