upd.

diff --git a/Current Development Check List.md b/Current Development Check List.md
index fb623d78dd950359b5fe141c7619f046845442f4..585b853b437094d4e33ad9c1eebbc9357fbe4dd8 100644 (file)
--- a/Current Development Check List.md
+++ b/Current Development Check List.md
@@ -6,6 +6,9 @@
 
 ### New Development v.2.3+
 
+* Search panel revisited.
+  * [ ] Search and previous view setup made fully session persisted.
+  * [ ] Provide button reset search.  
 * ✔ Sums and dynamic calculations, interactions further to be refined.
   * Canceling submit, leaves the translated '**\n**' for transfer not reverted.
 * ✔ Setting should provide page color defaults in form of an hash.

diff --git a/htdocs/cgi-bin/stats.cgi b/htdocs/cgi-bin/stats.cgi
index 220df870acc5116cef1ef8170bedd43267042f30..d800d65d5ca5ac39d12bd7ca975aec945b4d25f0 100755 (executable)
--- a/htdocs/cgi-bin/stats.cgi
+++ b/htdocs/cgi-bin/stats.cgi
@@ -28,7 +28,6 @@ my $sid     = Settings::sid();
 my $dbname  = Settings::dbFile();
 my $alias   = Settings::alias();
 
-
 if(!$alias||!$dbname){
         print $cgi->redirect("login_ctr.cgi?CGISESSID=$sid");
         exit;
@@ -133,10 +132,10 @@ $income     = big_money(sprintf("%.2f",$income));
 #So I use the inter processing module here for inxi. -- @wbudic
 my $buff = "";
 my @cmd = ("/usr/bin/inxi", "-b", "-c0");
-my $uptime = `uptime -p`;
-my @ht = split(m/\s/,`hostname -I`);
+my $uptime = qx(uptime -p);
+my @ht = split(m/\s/, qx(hostname -I));
 my $hst = "";
-   $hst = `hostname` . "($ht[0])" if (@ht);
+   $hst = qx(hostname) . "($ht[0])" if (@ht);
 
 
 #Gather into $buff
@@ -156,7 +155,7 @@ my $log = "<span>".$hardware_status."</span>"."<pre>\n".`df -h -l -x tmpfs`."</p
    Settings::toLog($db, $log);   
 ###
 my $prc = 'ps -eo size,pid,user,command --sort -size | awk \'{ hr=$1/1024 ; printf("%13.2f Mb ",hr) } { for ( x=4 ; x<=NF ; x++ ) { printf("%s ",$x) } print "" }\'';
-my $processes = `$prc | sort -u -r -`;
+my $processes = qx($prc | sort -u -r -);
 my @stat = stat Settings::dbFile();
 my $dbSize =  "Not Avail";
    $dbSize = (uc format_bytes($stat[7], bs => 1000)) if !Settings::isProgressDB();
@@ -166,8 +165,8 @@ $processes =~ s/\s*0.00.*//gd;
 $processes =~ s/^\s+/  /gm;
 my $year =$today->year();
 
-my $IPPublic  = `curl -s https://www.ifconfig.me`;
-my $IPPrivate = `hostname -I`; $IPPrivate =~ s/\s/<br>/g;
+my $IPPublic  = qx(curl -s https://www.ifconfig.me);
+my $IPPrivate = qx(hostname -I); $IPPrivate =~ s/\s/<br>/g;
 my $tbl = qq(
 <div class="table r0" style="text-align:centered; float:left;">
   <div class="header">
@@ -275,11 +274,4 @@ sub big_money {
 return $number;
 }
 
-sub camm {
-  my $amm = sprintf("%.2f", shift @_);
- # Add one comma each time through the do-nothing loop
- 1 while $amm =~ s/^(-?\d+)(\d\d\d)/$1,$2/;
-return $amm;
-}
-
 1.
\ No newline at end of file

diff --git a/scripted_sample_log_data_file.cnf b/scripted_sample_log_data_file.cnf
new file mode 100644 (file)
index 0000000..0b40f5f
--- /dev/null
+++ b/scripted_sample_log_data_file.cnf
@@ -0,0 +1,23 @@
+!CNF2.2
+/**
+ A simple sample log file data entries file. In CNF format.
+**/
+
+<<CAT<>
+01|Unspecified `For quick uncategorized entries.
+09|Event       `Event that occurred, meeting, historically important.
+28|Personal    `Personal log of historical importance, diary type.
+32|Expense     `Significant yearly expense.
+35|Income      `Significant yearly income.
+>>
+
+################################################
+# CNF list type items are postfixed with '$$'
+# List is obtained like: $cnf->list('LOG')
+#
+<<LOG$$<2014-11-13 13:48:05`cat=9>
+TED - What your doctor won’t disclose http://youtu.be/oxYU5GNngnk
+>>
+
+<<LOG$$<2016-07-08 00:00:00`cat=32`amount=24.0`aflag=2>Gas Bottle Purchase>>
+<<LOG$$<2018-08-24 22:27:10`cat=1><Search 1927 - If I Could (1988)>>