From: Will Budic Date: Wed, 30 Oct 2019 05:19:29 +0000 (+1100) Subject: quick fix, double view runs. X-Git-Url: https://lifelog.hopto.org/gitweb/?a=commitdiff_plain;h=323f88953d274f634c7b45e90f39e2c88dcf13c2;p=LifeLog.git quick fix, double view runs. --- diff --git a/.gitignore b/.gitignore index 4794267..440d599 100644 --- a/.gitignore +++ b/.gitignore @@ -14,6 +14,7 @@ cgisess_* *.exe *.o *.so +*.log # Packages # ############ diff --git a/Installation.txt b/Installation.txt index 53f6819..2150ddc 100644 --- a/Installation.txt +++ b/Installation.txt @@ -63,22 +63,25 @@ git clone https://github.com/wbudic/LifeLog.git #Install cpanm to make installing other modules easier (you'll thank us later). -You need to type these commands into a Terminal emulator (Mac OS X, Win32, Linux) +#You need to type these commands into a Terminal emulator (Mac OS X, Win32, Linux) + sudo apt install cpanminus -#Install DBI module -sudo cpanm DBI -sudo cpanm DBD::SQLite #Install SQLite https://www.sqlite.org/download.html +#Developer? Install VSCode, not from flatpack. Use Microsoft site -> https://code.visualstudio.com/ -# Install Perl, properly, don't use the distro provided perl interpreter. -https://learn.perl.org/installing/unix_linux.html -# Perl compiled based on your hardware infrastructure, is Very Good. -sudo cpan Perl::LanguageServer +# Install Perl, properly, don't use the distro provided perl interpreter. +sudo apt install perlbrew +#https://learn.perl.org/installing/unix_linux.html +curl -L http://xrl.us/installperlnix | bash +# Perl compiled based on your hardware infrastructure now, is Very Good. +#Developer? Switch to it, and cpan modules: +perlbrew use 5.28.0 +cpan Perl::LanguageServer #Install or make sure you have following perl modules. @@ -94,6 +97,19 @@ sudo cpanm Regexp::Common; sudo cpanm JSON; sudo cpanm Switch; +#Install DBI module +sudo cpanm DBI; +sudo cpanm DBD::SQLite; + +#Final Perl Installation Notes + +This perl setup might take time and efforts. But, it is worth it. +You get it build and tested professionally, based on your hardware. +Platforms supported, Windows, Unix (all), Mac. + +Installing perl as an developer, requires no sudo. +But hence can't run server (system level) like. + #Upgrade Instructions To upgrade to newer version of this software requires data migration. diff --git a/htdocs/cgi-bin/main.cgi b/htdocs/cgi-bin/main.cgi index ee2515e..1ce2d51 100755 --- a/htdocs/cgi-bin/main.cgi +++ b/htdocs/cgi-bin/main.cgi @@ -3,8 +3,8 @@ # Programed in by: Will Budic # Open Source License -> https://choosealicense.com/licenses/isc/ # -use strict; use warnings; +use strict; use Try::Tiny; use Switch; @@ -36,14 +36,16 @@ our $IMG_W_H = '210x120'; our $AUTO_WRD_LMT = 1000; our $FRAME_SIZE = 0; our $RTF_SIZE = 0; + my $THEME = 'Standard'; my $TH_CSS = 'main.css'; -my $BGCOL = '#c8fff8'; +my $BGCOL = '#c8fff8'; #END OF SETTINGS + my $cgi = CGI->new; my $sss = - new CGI::Session( "driver:File", $cgi, { Directory => $LOG_PATH } ); + new CGI::Session( "driver:File", $cgi, { Directory => $LOG_PATH} ); my $sid = $sss->id(); my $dbname = $sss->param('database'); my $userid = $sss->param('alias'); @@ -290,7 +292,7 @@ qq(
pre("### -> ".$stmt); + print $cgi->pre("### -> ".$stmt); # my $tfId = 0; my $id = 0; @@ -325,11 +327,11 @@ qq(