fixed a bug where a missing /www/api/methods/ccu/getversion.tcl file

resulted in an incomplete JSON API interface. While CCU.getVersion was properly defined in methods.conf the corresponding getversion.tcl was missing. This fixes #1123
jens-maus · Feb 12, 2021 · 3e87e95 · 3e87e95
1 parent 2bb8fec
commit 3e87e95
Show file tree

Hide file tree

Showing 5 changed files with 57 additions and 0 deletions.
diff --git a/...8-WebUI-Fix-MissingReportValueUsage.patch → ...u/0088-WebUI-Fix-MissingJSONMethods.patch b/...8-WebUI-Fix-MissingReportValueUsage.patch → ...u/0088-WebUI-Fix-MissingJSONMethods.patch
@@ -1,3 +1,33 @@
+--- occu/WebUI/www/api/methods/ccu/getversion.tcl.orig
++++ occu/WebUI/www/api/methods/ccu/getversion.tcl
+@@ -0,0 +1,27 @@
++##
++# CCU.getVersion
++# Liefert die Firmware-Version der HomeMatic Zentrale
++#
++# Parameter: <keine>
++#
++# Rückgabewert: [string]
++#  Firmware-Version der HomeMatic Zentrale
++##
++
++proc read_var { filename varname} {
++    set fd [open $filename r]
++    set var ""
++    if { $fd >=0 } {
++        while { [gets $fd buf] >=0 } {
++          if [regexp "^ *$varname *= *(.*)$" $buf dummy var] break
++        }
++      close $fd
++    }
++    return $var
++}
++
++proc get_version { } {
++    return [read_var /VERSION VERSION]
++}
++
++jsonrpc_response [json_toString [get_version]]
 --- occu/WebUI/www/api/methods/interface/reportvalueusage.tcl.orig
 +++ occu/WebUI/www/api/methods/interface/reportvalueusage.tcl
 @@ -0,0 +1,21 @@

diff --git a/...ches/occu/0088-WebUI-Fix-MissingJSONMethods/occu/WebUI/www/api/methods/ccu/getversion.tcl b/...ches/occu/0088-WebUI-Fix-MissingJSONMethods/occu/WebUI/www/api/methods/ccu/getversion.tcl
@@ -0,0 +1,27 @@
+##
+# CCU.getVersion
+# Liefert die Firmware-Version der HomeMatic Zentrale
+#
+# Parameter: <keine>
+#
+# Rückgabewert: [string]
+#  Firmware-Version der HomeMatic Zentrale
+##
+
+proc read_var { filename varname} {
+    set fd [open $filename r]
+    set var ""
+    if { $fd >=0 } {
+        while { [gets $fd buf] >=0 } {
+          if [regexp "^ *$varname *= *(.*)$" $buf dummy var] break
+        }
+      close $fd
+    }
+    return $var
+}
+
+proc get_version { } {
+    return [read_var /VERSION VERSION]
+}
+
+jsonrpc_response [json_toString [get_version]]
diff --git a/...thods/interface/reportvalueusage.tcl.orig → ...I/www/api/methods/ccu/getversion.tcl.orig b/...thods/interface/reportvalueusage.tcl.orig → ...I/www/api/methods/ccu/getversion.tcl.orig
diff --git a/...pi/methods/interface/reportvalueusage.tcl → ...pi/methods/interface/reportvalueusage.tcl b/...pi/methods/interface/reportvalueusage.tcl → ...pi/methods/interface/reportvalueusage.tcl
diff --git a/...bUI-Fix-MissingJSONMethods/occu/WebUI/www/api/methods/interface/reportvalueusage.tcl.orig b/...bUI-Fix-MissingJSONMethods/occu/WebUI/www/api/methods/interface/reportvalueusage.tcl.orig