From c457eefd914557318449f0a89dc213dde106b051 Mon Sep 17 00:00:00 2001
From: Will Budicm <vilijanac@gmail.com>
Date: Wed, 16 Dec 2020 18:47:43 +1100
Subject: [PATCH] upd.

---
 dbLifeLog/main.cnf      | 2 +-
 htdocs/cgi-bin/main.cgi | 5 ++++-
 2 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/dbLifeLog/main.cnf b/dbLifeLog/main.cnf
index fb785a8..091855a 100644
--- a/dbLifeLog/main.cnf
+++ b/dbLifeLog/main.cnf
@@ -10,7 +10,7 @@ Credential format:<<AUTO_LOGIN <{alias}/{password}> , don't enable here using AU
 # Default database driver prefix, is SQLite.
 <<DBI_SOURCE<DBI:SQLite:>
 # ProgresSQL DB driver. Remove -> '!' prefix to tag name, to enable, and override the above SQLite one.
-<<DBI_SOURCE<DBI:Pg:host=localhost;>
+<<!DBI_SOURCE<DBI:Pg:host=localhost;>
 # LOG actual variable size limit, - 1024 default, 128 minimum value. 
 <<!DBI_LOG_VAR_SIZE<1024>
 
diff --git a/htdocs/cgi-bin/main.cgi b/htdocs/cgi-bin/main.cgi
index d7b5147..a737ac3 100755
--- a/htdocs/cgi-bin/main.cgi
+++ b/htdocs/cgi-bin/main.cgi
@@ -26,7 +26,7 @@ my $db      = Settings::fetchDBSettings();
 my $cgi     = Settings::cgi();
 my $sss     = Settings::session();
 my $sid     = Settings::sid(); 
-my $dbname  = Settings::dbname();
+my $dbname  = Settings::dbName();
 my $alias   = Settings::alias();
 my $passw   = Settings::pass();
 
@@ -1256,6 +1256,9 @@ sub authenticate {
             return;
         }
 
+        #We log failed possible intruder access access
+        Settings::toLog($db,"User $alias, failed to authenticate!");
+
         print $cgi->header( -expires => "+0s", -charset => "UTF-8" );
         print $cgi->start_html(
             -title => "Personal Log Login",
-- 
2.34.1