hobbyquaker hat geschrieben:Hmm seltsam, kann ich mir nicht erklären. Weiterhin gilt: bitte nach Fehlermeldungen schauen
Hallo hobbyquaker,
da ich auch dieses Problem habe, bin ich der Sache einmal nachgegangen:
Der Fehler tritt in der Datei /www/addons/cuxchart/ajax/dpinfos.cgi auf. Dort wird ja ein ReGa-Script zusammengebaut, daß
die Datenpunkte abfragt. Und genau dieses bricht bei zu vielen Datenpunkten ab. Dadurch wird nur ein Teil der Datensätze ohne
abschließende geschweifte Klammer ausgeliefert.
Ich habe dpinfos.cgi mal so umgebaut, daß jeder Datenpunkt separat abgefragt und ausgegeben wird. Das dauert zwar etwas
länger, läuft aber durch:
Code: Alles auswählen
#!/bin/tclsh
# meta.cgi
#
# 5'2013 hobbyquaker https://github.com/hobbyquaker
#
load tclrega.so
puts "Content-Type: text/json;Charset=ISO-8859-1"
puts "Access-Control-Allow-Origin: *"
puts ""
set postdata [string trim [read stdin]]
set dps [split $postdata ";"]
#set hm_script "var first = true;\nobject o;\nobject ch;\nWrite('{');\n"
puts "{\n"
set first true
foreach dp $dps {
set hm_script "object o;\nobject ch;\n"
append hm_script "o = dom.GetObject('BidCos-RF.$dp');\nif (!o) \{\n"
append hm_script "o = dom.GetObject('CUxD.$dp');\n if (!o) \{\n"
append hm_script "o = dom.GetObject('BidCos-Wired.$dp');\n\}\n\}\nif (o) \{\n"
# append hm_script "if (first) \{\nfirst = false;\n\} else \{\nWriteLine(',');\n\}\n"
if {$first} {
set first false
} else {
append hm_script "WriteLine(',');\n"
}
append hm_script "Write('\"$dp\":\{');\n"
append hm_script "Write('\"ValueUnit\":\"' # o.ValueUnit() # '\"');\n"
# append hm_script "Write('\"ValueType\":\"' # o.ValueType() # '\",');\n"
# append hm_script "Write('\"ValueSubType\":\"' # o.ValueSubType() # '\",');\n"
# append hm_script "Write('\"ValueMin\":\"' # o.ValueMin() # '\",');\n"
# append hm_script "Write('\"ValueMax\":\"' # o.ValueMax() # '\"');\n"
append hm_script "ch = dom.GetObject(o.Channel());\nif (ch) \{\n"
append hm_script "Write(',\"ChannelName\":\"' # ch.Name() # '\"');\n"
# append hm_script "Write('\"ChannelHssType\":\"' # ch.HssType() # '\"');\n"
append hm_script "\}\nWrite('\}');\n"
append hm_script "\}\n"
puts [lindex [rega_script $hm_script] 1]
}
#append hm_script "WriteLine('\}');\n"
puts "}\n"
#puts $hm_script
#puts [lindex [rega_script $hm_script] 1]
Bei Fragen einfach fragen
.
(BTW: Der Bug, daß die absolute Luftfeuchtigkeit bei Vorhandensein der Prozentachse auf dieser abgebildet wird, ist in der aktuellen Version immer noch drin.)
Gruß,
Michael