Home Automation Domotica Forum Europe, Bwired Forum

Code: Select all

function do_xmlrpc($request) {
   global $rpc_connect;
   global $use_curl;

   if ( $use_curl == "yes" ) {
      $ch = curl_init($rpc_connect);
      curl_setopt($ch, CURLOPT_POST, 1);
      curl_setopt($ch, CURLOPT_HTTPHEADER, array('Content-Type: text/xml'));
      curl_setopt($ch, CURLOPT_POSTFIELDS, "$request");
      curl_setopt($ch, CURLOPT_RETURNTRANSFER, 1);
      $context = curl_exec($ch);
      if ( curl_error($ch) == "" ) {
         curl_close($ch);
         return xmlrpc_decode($context,"UTF-8");
      } else {
         curl_close($ch);
         die ("<h2>Cannot connect to the DomotiGa server!</h2>");
      }
   } else {
      $context = stream_context_create(array('http' => array('method' => "POST",'header' =>"Content-Type: text/xml",'content$
      if ($file = @file_get_contents($rpc_connect, false, $context)) {
         $file=str_replace("i8","double",$file);
         return xmlrpc_decode($file, "UTF-8");
      } else {
         die ("<h2>Cannot connect to the DomotiGa server!</h2>");
      }
   }
}

Code: Select all

// Get Globalvar list
function get_globalvar_list() {
   $request = xmlrpc_encode_request("globalvar.list",null);
   $response = do_xmlrpc($request);
   if (xmlrpc_is_fault($response)) {
       trigger_error("xmlrpc: $response[faultString] ($response[faultCode])");
   } else {
      $index=0;
      foreach($response AS $item) {
      list($retarr[$index]['globalvarname'], $retarr[$index]['globalvarvalue']) = explode (';;', $item);
      $index++;
      }
   if (isset($retarr)) {
         return $retarr;
   } else {
         return FALSE;
         }
   }
}