From: Metabox <redacted>
Date: Fri, 17 May 2019 02:40:36 +0000 (+1000)
Subject: added sys word limit setting.
X-Git-Url: https://lifelog.hopto.org/gitweb/?a=commitdiff_plain;h=79f82cd77963c1fbb481dc6dbafd417b421ea5cd;p=LifeLog.git

added sys word limit setting.
---

diff --git a/htdocs/cgi-bin/config.cgi b/htdocs/cgi-bin/config.cgi
index 4cbc1e8..fbf007c 100755
--- a/htdocs/cgi-bin/config.cgi
+++ b/htdocs/cgi-bin/config.cgi
@@ -628,14 +628,15 @@ sub changeSystemSettings {
 				my $var = $cgi->param('var'.$r[0]);
 				if(defined $var){					
 					switch ($r[1]) {
-						case "REC_LIMIT" {$REC_LIMIT=$var;  updConfSetting($r[0],$var)}
-						case "TIME_ZONE" {$TIME_ZONE=$var;  updConfSetting($r[0],$var)}
-						case "PRC_WIDTH" {$PRC_WIDTH=$var;  updConfSetting($r[0],$var)}
-						case "SESSN_EXPR"{$SESSN_EXPR=$var; updConfSetting($r[0],$var)}
-						case "DATE_UNI"  {$DATE_UNI=$var; updConfSetting($r[0],$var)}
-						case "LANGUAGE"  {$LANGUAGE=$var; updConfSetting($r[0],$var)}
-						case "AUTHORITY" {$AUTHORITY=$var; updConfSetting($r[0],$var)}
-						case "IMG_W_H"   {$IMG_W_H=$var; updConfSetting($r[0],$var)}
+						case "REC_LIMIT" {$REC_LIMIT=$var;  updCnf($r[0],$var)}
+						case "TIME_ZONE" {$TIME_ZONE=$var;  updCnf($r[0],$var)}
+						case "PRC_WIDTH" {$PRC_WIDTH=$var;  updCnf($r[0],$var)}
+						case "SESSN_EXPR"{$SESSN_EXPR=$var; updCnf($r[0],$var)}
+						case "DATE_UNI"  {$DATE_UNI=$var; updCnf($r[0],$var)}
+						case "LANGUAGE"  {$LANGUAGE=$var; updCnf($r[0],$var)}
+						case "AUTHORITY" {$AUTHORITY=$var; updCnf($r[0],$var)}
+						case "IMG_W_H"   {$IMG_W_H=$var; updCnf($r[0],$var)}
+						case "AUTO_WRD_LMT"   {$AUTO_WRD_LMT=$var; updCnf($r[0],$var)}
 					 }
 				}
 			}
@@ -645,7 +646,7 @@ sub changeSystemSettings {
 	}
 }
 
-sub updConfSetting {
+sub updCnf {
 	my ($id, $val) = @_;
 	my ($s,$d);
 	$s = "UPDATE CONFIG SET VALUE='".$val."' WHERE ID=".$id.";"; 
@@ -654,7 +655,7 @@ sub updConfSetting {
 		  $d->execute();
 	}
 	catch{
-		print "<font color=red><b>SERVER ERROR</b>->updConfSetting[$s]</font>:".$_;
+		print "<font color=red><b>SERVER ERROR</b>->updCnf[$s]</font>:".$_;
 	}
 }