From: Metabox Date: Tue, 23 Jul 2019 00:18:29 +0000 (+1000) Subject: Added $RTF_SIZE setting and summing button. X-Git-Url: https://lifelog.hopto.org/gitweb/?a=commitdiff_plain;h=cf281e77356f8f70e617a4ad71cc7a71781a09c2;p=LifeLog.git Added $RTF_SIZE setting and summing button. --- diff --git a/dbLifeLog/main.cnf b/dbLifeLog/main.cnf index a37e0e9..0894b0c 100644 --- a/dbLifeLog/main.cnf +++ b/dbLifeLog/main.cnf @@ -17,6 +17,7 @@ Credential format:< , must be enabled option. 20|$AUTO_WRD_LMT= 200`Autocomplete word gathering limit. 22|$AUTO_LOGIN = 0`Autologin option, that expires only if login out. Enter Credentials in main.cnf. 24|$FRAME_SIZE = 0`Youtube frame size settings, 0 - Large, 1 - Medium, 2- Small. +26|$RTF_SIZE = 2`RTF Document height, 0 - Large, 1 - Medium, 2- Small. < 01|Unspecified `For quick uncategorised entries. 03|File System `Operating file system short log. diff --git a/htdocs/cgi-bin/config.cgi b/htdocs/cgi-bin/config.cgi index 3db4f28..af26749 100755 --- a/htdocs/cgi-bin/config.cgi +++ b/htdocs/cgi-bin/config.cgi @@ -32,6 +32,7 @@ our $IMG_W_H = '210x120'; our $AUTO_WRD_LMT= 200; our $AUTO_LOGIN = 0; our $FRAME_SIZE = 0; +our $RTF_SIZE = 0; #END OF SETTINGS #This is the OS developer release key, replace on istallation. As it is not secure. @@ -184,7 +185,7 @@ $tbl = qq( ); -my $stm = 'SELECT * FROM CONFIG;'; +my $stm = 'SELECT ID, NAME, VALUE, DESCRIPTION FROM CONFIG;'; $dbs = $db->prepare( $stm ); $rv = $dbs->execute() or die or die "

Error->"& $DBI::errstri &"

"; @@ -239,13 +240,35 @@ while(my @row = $dbs->fetchrow_array()) { } else{ $t = $v; + } + $v = qq(); + } + elsif($n eq "RTF_SIZE"){ + my($l,$m,$s, $t)=("",""); + if($v == 0){ + $l = "SELECTED" } - $v = qq(); + } elsif($n ne "RELEASE_VER"){ $v = ''; @@ -762,10 +785,17 @@ sub logout{ exit; } +CREATE TABLE CONFIG( + ID TINY PRIMARY KEY NOT NULL, + NAME VCHAR(16), + VALUE VCHAR(28), + DESCRIPTION VCHAR(128) + ); + sub changeSystemSettings { try{ - $dbs = $db->prepare("SELECT * FROM CONFIG;"); - $dbs->execute(); + $dbs = $db->prepare("SELECT ID, NAME FROM CONFIG;"); + $dbs->execute(); while (my @r=$dbs->fetchrow_array()){ my $var = $cgi->param('var'.$r[0]); if(defined $var){ @@ -781,6 +811,7 @@ sub changeSystemSettings { case "AUTO_WRD_LMT"{$AUTO_WRD_LMT=$var; updCnf($r[0],$var)} case "AUTO_LOGIN" {$AUTO_LOGIN=$var; updCnf($r[0],$var)} case "FRAME_SIZE" {$FRAME_SIZE=$var; updCnf($r[0],$var)} + case "RTF_SIZE" {$RTF_SIZE=$var; updCnf($r[0],$var)} } } } @@ -980,6 +1011,7 @@ sub getConfiguration { case "AUTO_WRD_LMT" {$AUTO_WRD_LMT=$r[2]} case "AUTO_LOGIN" {$AUTO_LOGIN=$r[2]} case "FRAME_SIZE" {$FRAME_SIZE=$r[2]} + case "RTF_SIZE" {$RTF_SIZE=$r[2]} } } diff --git a/htdocs/cgi-bin/main.cgi b/htdocs/cgi-bin/main.cgi index 5e88543..93331d7 100755 --- a/htdocs/cgi-bin/main.cgi +++ b/htdocs/cgi-bin/main.cgi @@ -35,6 +35,7 @@ our $AUTHORITY = ''; our $IMG_W_H = '210x120'; our $AUTO_WRD_LMT = 1000; our $FRAME_SIZE = 0; +our $RTF_SIZE = 0; #END OF SETTINGS my $cgi = CGI->new; @@ -593,10 +594,11 @@ if ( $tbl_rc == 0 ) { } $tbl .= -qq( -
Description
[Show All -> ] +qq(
[Show All -> ] + +     @@ -1036,6 +1038,7 @@ sub getConfiguration { case "IMG_W_H" { $IMG_W_H = $r[2] } case "AUTO_WRD_LMT" { $AUTO_WRD_LMT = $r[2] } case "FRAME_SIZE" { $FRAME_SIZE = $r[2] } + case "RTF_SIZE" { $RTF_SIZE = $r[2] } else { print "Unknow variable setting: " . $r[1] . " == " . $r[2]; } @@ -1057,6 +1060,18 @@ return $am; sub quill { my $log_id = shift; +my $h; +switch ( $RTF_SIZE ) { + case "0" { $h = q(height:420px;) } + case "1" { $h = q(height:260px;) } + case "2" { $h = q(height:140px;) } + else{ + $h = $RTF_SIZE; + } +} + + + return <