MymsMan/webif
1
0
Fork 0
forked from hummypkg/webif
Code Pull Requests Activity

support untrimmed settings

Browse Source 
git-svn-id: file:///root/webif/svn/pkg/webif/trunk@2556 2a923420-c742-0410-a762-8d5b09965624
This commit is contained in:
hummypkg 2015-11-29 23:35:49 +00:00
parent debb7c0da8
commit 19ae94cd2c
1 changed files with 10 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
webif/html/settings/settings.jim
View File

@ -59,12 +59,15 @@ set dedup_template [$settings dedup_template]
if {![dict exists $env SCRIPT_NAME]} { set env(SCRIPT_NAME) "" } if {![dict exists $env SCRIPT_NAME]} { set env(SCRIPT_NAME) "" }
proc _handle_update {class var old text} { proc _handle_update {class var old text {trim 1}} {
global _cgi global _cgi
global settings global settings
if {[dict exists $_cgi $var]} { if {[dict exists $_cgi $var]} {
set new [string trim [dict get $_cgi $var]] set new [dict get $_cgi $var]
if {$trim} {
set new [string trim $new]
}
if {$new == $old} { if {$new == $old} {
puts "$text unchanged." puts "$text unchanged."
} elseif {[string is $class -strict $new]} { } elseif {[string is $class -strict $new]} {
@ -77,12 +80,12 @@ proc _handle_update {class var old text} {
} }
} }
proc handle_int_update {var old {text "Value"}} { proc handle_int_update {var old {text "Value"} {trim 1}} {
_handle_update digit $var $old $text _handle_update digit $var $old $text $trim
} }
proc handle_str_update {var old {text "Value"} {class alnum}} { proc handle_str_update {var old {text "Value"} {class alnum} {trim 1}} {
_handle_update $class $var $old $text _handle_update $class $var $old $text $trim
} }
handle_str_update hostname $hostname Hostname handle_str_update hostname $hostname Hostname
@ -106,7 +109,7 @@ handle_int_update nounwatchedcount $nounwatchedcount "Disable unwatched count"
handle_int_update genrededup $genrededup "Genre search dedup" handle_int_update genrededup $genrededup "Genre search dedup"
handle_int_update autolog $autolog "Auto-processing log level" handle_int_update autolog $autolog "Auto-processing log level"
handle_int_update audiomp3 $audiomp3 "MP3 type" handle_int_update audiomp3 $audiomp3 "MP3 type"
handle_str_update dedup_template $dedup_template "Dedup Template" print handle_str_update dedup_template $dedup_template "Dedup Template" print 0
set acluser [cgi_get acluser "-"] set acluser [cgi_get acluser "-"]
set aclpass [cgi_get aclpass "-"] set aclpass [cgi_get aclpass "-"]