51 lines
1.2 KiB
Plaintext
Executable File
51 lines
1.2 KiB
Plaintext
Executable File
#!/mod/bin/jimsh
|
|
######
|
|
# FlexView - Save flexview cofig in jqGrid JSON format
|
|
# Author: MymsMan, 2016
|
|
######
|
|
|
|
|
|
package require cgi
|
|
source /mod/webif/lib/setup
|
|
require system.class settings.class
|
|
|
|
# logging options
|
|
if {[lindex $argv 0] eq "-d"} {
|
|
set argv [lrange $argv 1 end]
|
|
set loglevel 2
|
|
} else {
|
|
# Use same logging option as auto log
|
|
set settings [settings]
|
|
set loglevel [$settings _nval_setting "autolog"]
|
|
}
|
|
|
|
|
|
proc log {msg {level 2}} {
|
|
if {$level > $::loglevel} return
|
|
system plog flexview $msg
|
|
}
|
|
|
|
httpheader
|
|
|
|
set start [clock milliseconds]
|
|
set name [cgi_get name "default"]
|
|
set fvconfig [cgi_get fvconfig "{}"]
|
|
|
|
set fname "/mod/etc/fvConfig_$name.json"
|
|
if {[catch {set fd [open $fname w]
|
|
puts $fd $fvconfig
|
|
close $fd
|
|
puts "Saved configuration- $name<br>"} msg opts] } {
|
|
log "Config file error caught: $msg $opts" 0
|
|
puts "<b>File save error $msg</b><br>"
|
|
}
|
|
|
|
source /mod/webif/plugin/flexview/configlist.jim
|
|
genConfigList
|
|
[settings new] _tval_setting "fvConfig" $name
|
|
set end [clock milliseconds]
|
|
set elapse $(double($end-$start)/1000.0)
|
|
log "Save | $elapse | $fname" 0
|
|
|
|
|