49 lines
1.1 KiB
Plaintext
Executable File
49 lines
1.1 KiB
Plaintext
Executable File
#!/mod/bin/jimsh
|
|
######
|
|
# FlexView - Load 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 "application/json"
|
|
|
|
set start [clock milliseconds]
|
|
set name [cgi_get name "default"]
|
|
|
|
set fname "/mod/etc/fvConfig_$name.json"
|
|
if {[catch {set fd [open $fname r]
|
|
set fvconfig [read $fd]
|
|
puts $fvconfig
|
|
$fd close} msg opts]} {
|
|
log "Config file error caught: $msg $opts" 0
|
|
puts "{\"errmsg\": \"File load error $msg\"}"
|
|
}
|
|
|
|
[settings new] _tval_setting "fvConfig" $name
|
|
|
|
set end [clock milliseconds]
|
|
set elapse $(double($end-$start)/1000.0)
|
|
log "Load | $elapse | $fname" 0
|
|
|
|
|