Skip to content
Permalink
Browse files

Issue #704: check result of "SHOW ssl" for whether SSL is really bein…

…g used
  • Loading branch information...
ansgarbecker committed Oct 13, 2019
1 parent 0fe7bb6 commit 22b634ab36be36565a22342ebff149b748c05a48
Showing with 5 additions and 0 deletions.
  1. +5 −0 source/dbconnection.pas
@@ -2131,6 +2131,11 @@ procedure TPgConnection.SetActive(Value: Boolean);
except
FServerUptime := -1;
end;
try
FIsSSL := LowerCase(GetVar('SHOW ssl')) = 'on';
except
FIsSSL := False;
end;

DoAfterConnect;

0 comments on commit 22b634a

Please sign in to comment.
You can’t perform that action at this time.