modified mastervalue.cgi/mastervaluechange.cgi to automatically identify HMIP devices and query the HMIP xmlrpc port (2010) instead. This closes #14 and #13.

Author: jens-maus

xmlapi/mastervalue.cgi

@@ -50,10 +50,12 @@ foreach devid $devids {
 
 	puts -nonewline $values(STDOUT)              
 
-	if {$deviceType=="HM-CC-VG-1"} {             
+	if {[string first "HM-CC-VG-" $deviceType] >= 0} {
 		set ausgabe [xmlrpc http://127.0.0.1:9292/groups getParamset [list string $deviceAddress] [list string "MASTER"] ]
-	} else {                                                                                                                  
-		set ausgabe [xmlrpc http://127.0.0.1:2001/ getParamset [list string $deviceAddress] [list string "MASTER"] ]      
+	} elseif {[string first "HMIP-" $deviceType] >= 0} {
+		set ausgabe [xmlrpc http://127.0.0.1:2010/ getParamset [list string $deviceAddress] [list string "MASTER"] ]
+        } else {
+		set ausgabe [xmlrpc http://127.0.0.1:2001/ getParamset [list string $deviceAddress] [list string "MASTER"] ]
 	}                                                                                                                         
 
 	foreach { bezeichnung wert } $ausgabe {                                                                                   
@@ -67,4 +69,4 @@ foreach devid $devids {
 	}                                                                                                                     
 	puts -nonewline {</device>}                                                                                               
 }                                                                                                                                 
-puts -nonewline {</mastervalue>}
+puts -nonewline {</mastervalue>}

xmlapi/mastervaluechange.cgi

@@ -51,10 +51,12 @@ for {set counter 0} {$counter<[llength $rec_devids]} {incr counter} {
 
     puts -nonewline $values(STDOUT)           
 
-    if {$deviceType=="HM-CC-VG-1"} {       
+    if {[string first "HM-CC-VG-" $deviceType] >= 0} {
         set ausgabe [xmlrpc http://127.0.0.1:9292/groups putParamset [list string $deviceAddress] [list string "MASTER"] [list struct $cmd]]
-    } else {                                                                                                                                
-        set ausgabe [xmlrpc http://127.0.0.1:2001/ putParamset [list string $deviceAddress] [list string "MASTER"] [list struct $cmd]]      
+    } elseif {[string first "HMIP-" $deviceType] >= 0} {
+        set ausgabe [xmlrpc http://127.0.0.1:2010/ putParamset [list string $deviceAddress] [list string "MASTER"] [list struct $cmd]]
+    } else {
+        set ausgabe [xmlrpc http://127.0.0.1:2001/ putParamset [list string $deviceAddress] [list string "MASTER"] [list struct $cmd]]
     }                                                                                                                                       
     puts -nonewline {<mastervalue name='}                                                                                                   
     puts -nonewline $item