upd.

diff --git a/dbLifeLog/main.cnf b/dbLifeLog/main.cnf
index fb785a8ef066e05ad9db78eb0f35aba71456fbfe..091855a093c702da7d95ed0ce961af4cad7209b7 100644 (file)
--- 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 d7b51474fc67371cc184b66f0e9fa4a957cb9628..a737ac3a466264d02cf45329ac8eb538068b749e 100755 (executable)
--- 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",