Implemented command line server side logging.

diff --git a/Current Development Check List.md b/Current Development Check List.md
index cfddcff51e9a098c51cf0ae45efed83cfdb2032e..a94c4bf65cd9906964bfbda5ea4df104203e0c8a 100644 (file)
--- a/Current Development Check List.md
+++ b/Current Development Check List.md
@@ -6,6 +6,9 @@
 
 ### v.2.2 SUN STABLE
 
+* Command line logging, server side. i.e. LifeLog/log.pl -database {name} {-alias} {-password:}
+ * Update CNFParser v.2.0.
+* Send to system log, password change, backup issued, main.inf page view changes.
 * Search keep in session should preserve and always set options as selection till it is ticked.
   * Reset Whole View to page view, should still set the search option till it is ticked.
   * Unticking Keep in Session should be honored on next browsing.

diff --git a/Installation.txt b/Installation.txt
index b0c4260a9d35e4dbd1e4bd276461b63293b5a603..4ba894e3700bb7b158a3aea2e177ff405637bdd1 100644 (file)
--- a/Installation.txt
+++ b/Installation.txt
@@ -87,6 +87,12 @@ sudo cpan IPC::Run;
 sudo cpan Syntax::Keyword::Try;
 sudo cpan Text::Markdown
 sudo cpan Crypt::Blowfish;
+sudo cpan Compress::Zlib;
+sudo cpan IO::Compress::Gzip;
+sudo cpan IO::Prompter;
+sudo cpan IO::Interactive;
+
+
 
 #Install next after installing desired ciphers, we use Blowfish only.
 sudo cpan Crypt::CBC;

diff --git a/log.pl b/log.pl
new file mode 100755 (executable)
index 0000000..fd27f2a
--- /dev/null
+++ b/log.pl
@@ -0,0 +1,175 @@
+#!/usr/bin/perl
+#
+# Server side command line logging utility.
+# Use to log entries to an database, without having to access via browser.
+# 
+# Programed by: Will Budic
+# Open Source License -> https://choosealicense.com/licenses/isc/
+#
+use v5.14;
+use feature 'switch';
+
+use warnings;
+use strict;
+no warnings 'portable';
+
+use lib $ENV{'PWD'}.'/htdocs/cgi-bin/system/modules';
+
+require CNFParser;
+require Settings;
+
+use Exception::Class ('LifeLogException');
+use DBI;
+use IO::Interactive qw(is_interactive interactive busy);
+use IO::Prompter [ -stdio, -style=>'bold' ];
+
+my $cnf = CNFParser->new('dbLifeLog/main.cnf');
+
+
+my $help = qq(
+
+Syntax: $0 {_} {-vim_option}... {ext_name}...
+
+);
+
+my ($database, $alias, $db_source, $set, $cat_id, $log) = 0;
+my ($IS_PG_DB, $DSN, $DBFILE);
+my $LOG_PATH = "dbLifeLog/";
+
+my $io;
+if (!is_interactive) { 
+   #die "Input from terminal (pipe) not allowed!\n" 
+   busy {
+       $log = readline STDIN;
+       say $log;
+       open STDIN, "<", "/dev/tty" or die "IO Error @_";
+   } 
+}
+
+foreach my $arg(@ARGV){
+    #print "{{{$arg}}}"; 
+    if($arg =~ /^\-/){
+        if($arg=~/(^\-*\?)/){print $help; exit;  
+        }elsif($arg=~/(^\-*database)/){$set=1;}
+        elsif($arg=~/(^\-*alias)/){$set=2;}
+        elsif($arg=~/(^\-*db_src)/){$set=3;}
+        elsif($arg=~/(^\-*c.*)/){$set=4;}
+        elsif($arg=~/(^\-*log)/){$set=5;}
+    }elsif($arg ne $ENV{'HOME'}){           
+        if($arg=~/^\w+\./){
+            print "Ignoring -> $arg\n"; 
+            next;
+        }
+        if   ($set == 1)   { undef $set; $database = $arg }
+        elsif($set == 2){ undef $set; $alias = $arg }
+        elsif($set == 3){ undef $set; $db_source = $arg }
+        elsif($set == 4){ undef $set; $cat_id = $arg }
+        elsif($set == 5){ undef $set; $log = $arg }
+    }
+}
+
+if(!$database && !$alias){
+$database="admin";
+    #say "Error: Database -database or -alias option not set!";  exit 0;
+}
+if(!$alias){$alias=$database}
+if(!$db_source){
+    $db_source = $cnf->constant('DBI_SOURCE');
+    $db_source = "DBI:SQLite:" if !$db_source;
+}
+
+$IS_PG_DB = 1 if(index (uc $db_source, 'DBI:PG') ==0);
+
+
+
+my $passw = prompt "Enter The Password ($database): ", -echo => '*';
+$passw = uc crypt $passw, hex Settings->CIPHER_KEY if $passw;
+
+# system ("stty -echo");  
+# my $password = <STDIN>;  
+# system ("stty echo");
+
+my $db = connectDB($database,$alias,$passw);
+my $st = traceDBExe("SELECT alias FROM AUTH WHERE alias='$alias' and passw='$passw';");
+my @c = $st->fetchrow_array();
+if (@c && $c[0] eq $alias) {
+    if(!$cat_id){
+        $cat_id = $cnf->anons('CAT', undef);
+        $cat_id =~ s/^.*>\n//;
+        say $cat_id;
+        $cat_id = prompt "Enter Category id (default is '01' for Unspecified): ";
+        $cat_id = '01' if ($cat_id eq ""); 
+    }
+    if(!$log){
+        my $t = prompt "Enter Log ([enter] key quits):";
+        $log = $t;
+        while($t ne ""){
+            $t=prompt ":";
+            $log .= "\n".$t;
+        }
+
+        say "\nLog:$log";
+        if(!$log){
+            say "Aborting, no log ahas been entered."; exit;
+        }
+    }
+    else{
+        #encode
+        $log =~ s/'/''/g;
+    }
+    Settings::toLog($db, $log, $cat_id);
+    say "Log issued to -> $DSN";
+}else{
+    #We log failed possible intruder access.
+    if(!$passw){
+        say "Error: Exiting, no password has been entered for ($alias).";  exit 0;
+    }
+    Settings::toLog($db,"User $alias, failed to authenticate, from command line!");
+    say "Error: Get out of here! Entered password $passw doesn't match for ($alias).";  exit 0;
+}
+
+
+sub connectDB {
+    my ($d,$u,$p) = @_;
+    $u = $alias if(!$u);
+    $p = $alias if(!$p);
+    my $db =$u;
+    if(!$d){$db = 'data_'.$u.'_log.db';$d=$u}
+    else{   $db = 'data_'.$d.'_log.db';$database = $d if !$database}
+    $DBFILE = $LOG_PATH.$db;
+    if ($IS_PG_DB)  {
+        $DSN = $db_source .'dbname='.$d;
+    }else{
+        $DSN = $db_source .'dbname='.$DBFILE;        
+    }    
+    try{
+        return DBI->connect($DSN, $u, $p, {AutoCommit => 1, RaiseError => 1, PrintError => 0, show_trace=>1});
+    }catch{           
+       LifeLogException->throw(error=>"<p>Error->$@</p><br><p>$DSN</p>",  show_trace=>1);
+    }
+}
+
+sub traceDBExe {
+    my $sql = shift;
+    try{
+        my $st = $db->prepare($sql);
+           $st -> execute() or LifeLogException->throw("Execute failed [$DBI::errstri]", show_trace=>1);
+        return $st;
+    }catch{
+        #BUG 31 fix.
+        if(Settings::isProgressDB() &&  index($sql,Settings->VW_LOG)>0){
+            $db -> do(Settings::createViewLOGStmt());
+            my $st = $db->prepare($sql);
+               $st -> execute() or LifeLogException->throw("Execute failed [$DBI::errstri]", show_trace=>1);
+            return $st;
+        }
+        LifeLogException->throw(error=>"DSN: [".Settings::dsn()."] Error encountered -> $@", show_trace=>1);
+    }
+}
+
+END {
+    $db->disconnect() if $db;
+}
+
+
+1;
\ No newline at end of file