<?
// Klassendefinition
class MonitoringClient extends IPSModule {
    // Überschreibt die interne IPS_Create($id) Funktion
    public function Create() {
        // Diese Zeile nicht löschen.
        parent::Create();
        
        $this->RegisterPropertyInteger("ParseNotifyCategoryID","0");
        $this->RegisterPropertyInteger("ParseAlarmCategoryID","0");
        $this->RegisterPropertyInteger("ParseAnalogCategoryID","0");
        $this->RegisterPropertyInteger("ParseSetpointCategoryID","0");
        $this->RegisterPropertyInteger("ParseSetpointCacheCategoryID","0");

        $this->RegisterPropertyInteger("MqttCLientID","0");
        $this->RegisterPropertyInteger("Projectnumber","230001");
        $this->RegisterPropertyString("Projectname","");
        $this->RegisterPropertyInteger("ISP","1");
        $this->RegisterPropertyInteger("Projectyear","2023");
        $this->RegisterPropertyInteger("Updatetime","20");
        $this->RegisterPropertyInteger("ForceUpdatetime","30");

        $this->RegisterTimer("Update", 0, 'SEMC_SendTopic('.$this->InstanceID.');');
        $this->RegisterTimer("ForceUpdate", 0, 'SEMC_ForceSendTopic('.$this->InstanceID.');');

    }

    // Überschreibt die intere IPS_ApplyChanges($id) Funktion
    public function ApplyChanges() {
        // Diese Zeile nicht löschen
        parent::ApplyChanges();

        $this->SetTimerInterval("Update", $this->ReadPropertyInteger("Updatetime") * 1000);
        $this->SetTimerInterval("ForceUpdate", $this->ReadPropertyInteger("ForceUpdatetime") * 1000 * 60);

    }
    /**
    * Die folgenden Funktionen stehen automatisch zur Verfügung, wenn das Modul über die "Module Control" eingefügt wurden.
    * Die Funktionen werden, mit dem selbst eingerichteten Prefix, in PHP und JSON-RPC wiefolgt zur Verfügung gestellt:
    *
    * DWM_SendMessage($id);
    *
    */
    /* Publish a given payload over a MQTT server under
    a given topic without having to manually create a
    MQTT server device */
    public function MqttPublish($server_id, $topic, $payload, $retain) {
        // ensure server instance exists
        if(!IPS_InstanceExists($server_id)) {
            return false;
        }

        // convert array structure to json string
        if(is_array($payload)) $payload = json_encode($payload);

        // determine data type
        if(is_string($payload)) {
            $ips_var_type = 3;
        } else if(is_float($payload)) {
            $ips_var_type = 2;
        } else if(is_int($payload)) {
            $ips_var_type = 1;
        } else if(is_bool($payload)) {
            $ips_var_type = 0;
        } else { // unsupported
            return false;
        }

        $module_id = "{01C00ADD-D04E-452E-B66A-D253278743FE}" /* Module ID of MQTT Server Device */;
        $ident = "TempMQTTDevice";

        // enter semaphore to ensure the temporary device gets used by one thread at a time
        if(IPS_SemaphoreEnter($ident, 100)) {
            // get temporary MQTT Server Device or create if needed
            $id = @IPS_GetObjectIDByIdent($ident, $_IPS['SELF']);
            if($id === false) {
                $id = @IPS_CreateInstance($module_id);
                if($id === false) {
                    return false;
                }
                IPS_SetParent($id, $_IPS['SELF']);
                IPS_SetIdent($id, $ident);
            }

            // ensure the specified server instance is actually compatible
            if(!IPS_IsInstanceCompatible($id, $server_id)) {
                return false;
            }

            // ensure that the temporary device is actually connected to the correct server instance
            $inst_config = IPS_GetInstance($id);
            if($inst_config["ConnectionID"] != $server_id) {
                IPS_DisconnectInstance($id);
                if(!@IPS_ConnectInstance($id, $server_id)) {
                    return false;
                }
            }

            // name object to help with debugging
            IPS_SetName($id, "Temporary MQTT Device for: " . $topic);

            // configure temporary device
            $config_arr = array(
                "Retain" => $retain,
                "Topic" => $topic,
                "Type" => $ips_var_type
            );
            $config_str = json_encode($config_arr);
            IPS_SetConfiguration($id, $config_str);
            IPS_SetHidden($id,true);
            IPS_ApplyChanges($id);

            // get Value variable and use it to publish the payload
            $var_id = @IPS_GetObjectIDByIdent("Value", $id);
            RequestAction($var_id, $payload);

            IPS_SemaphoreLeave($ident);
        } else { // semaphore timeout
            return false;
        }

        return true;
    } // MQTT_Publish

    public function MqttSync($server_id, $topic, $payload, $retain, $ident, $source) {

        $cacheCat = $this->ReadPropertyInteger("ParseSetpointCacheCategoryID");

        if ($cacheCat == 0){
            return false;
        }

        if (IPS_CategoryExists($cacheCat) == false){
            return false;
        }

        if (IPS_VariableExists($source) == false){
            return false;
        }

        // ensure server instance exists
        if(!IPS_InstanceExists($server_id)) {
            return false;
        }

        // determine data type
        if(is_string($payload)) {

            $ips_var_type = 3;
        } else if(is_float($payload)) {
            $ips_var_type = 2;
        } else if(is_int($payload)) {
            $ips_var_type = 1;
        } else if(is_bool($payload)) {
            $ips_var_type = 0;
        } else { // unsupported
            return false;
        }

        $module_id = "{01C00ADD-D04E-452E-B66A-D253278743FE}" /* Module ID of MQTT Server Device */;

            // get temporary MQTT Server Device or create if needed
            $id = @IPS_GetObjectIDByIdent($ident, $cacheCat);
            if($id === false) {
                $id = @IPS_CreateInstance($module_id);
                if($id === false) {
                    return false;
                }
                IPS_SetParent($id, $cacheCat);
                IPS_SetIdent($id, $ident);
                // name object to help with debugging
                IPS_SetName($id, "CS_" . $name);

                // configure temporary device
                $config_arr = array(
                    "Retain" => $retain,
                    "Topic" => $topic,
                    "Type" => $ips_var_type
                );

                $config_str = json_encode($config_arr);
                IPS_SetConfiguration($id, $config_str);
                IPS_ApplyChanges($id);
            }

            // ensure the specified server instance is actually compatible
            if(!IPS_IsInstanceCompatible($id, $server_id)) {
                return false;
            }

            $inst_config = IPS_GetInstance($id);
            if($inst_config["ConnectionID"] != $server_id) {
                IPS_DisconnectInstance($id);
                if(!@IPS_ConnectInstance($id, $server_id)) {
                    return false;
                }
            }

            $valSelf = $this->GetValue($id);
            $valSource = $this->GetValue($source);

            $varInfoSelf = IPS_GetVariable($id); 
            $changedtimeSelf = $varInfoSelf["VariableChanged"];

            $varInfoSource = IPS_GetVariable($source); 
            $changedtimeSource = $varInfoSource["VariableChanged"];

            if($valSelf != $valSource) {

                //self is newer than source, so update source with self value
                if ($changedtimeSelf > $changedtimeSource) {
                    RequestAction($source, $valSelf);
                } 

                //source is newer than self, so update self with source value
                if ($changedtimeSource > $changedtimeSelf) {
                    RequestAction($id, $valSource);
                }

            }



        return true;
    } // MQTT_Sync

    public function SendTopic() {
   
        $mqttId = $this->ReadPropertyInteger("MqttCLientID");
        $projectyear = $this->ReadPropertyInteger("Projectyear");
        $projectnumber = $this->ReadPropertyInteger("Projectnumber");
        $projectname = $this->ReadPropertyString("Projectname");
        $ispnumber = $this->ReadPropertyInteger("ISP");
        $updatetime = $this->ReadPropertyInteger("Updatetime");

            $catIds[0]["id"] = $this->ReadPropertyInteger("ParseNotifyCategoryID");
            $catIds[0]["top"] = "Projekte". $projectyear."/P".$projectnumber. "/ISP" .$ispnumber. "/Notify/";
            $catIds[1]["id"] = $this->ReadPropertyInteger("ParseAlarmCategoryID");
            $catIds[1]["top"] = "Projekte". $projectyear."/P".$projectnumber. "/ISP" .$ispnumber. "/Alarm/";
            $catIds[2]["id"] = $this->ReadPropertyInteger("ParseAnalogCategoryID");
            $catIds[2]["top"] = "Projekte". $projectyear."/P".$projectnumber. "/ISP" .$ispnumber. "/Analog/";
            $catIds[3]["id"] = $this->ReadPropertyInteger("ParseSetpointCategoryID");
            $catIds[3]["top"] = "Projekte". $projectyear."/P".$projectnumber. "/ISP" .$ispnumber. "/Setpoint/";
            $catIds[3]["setpoint"] = true;


            foreach ($catIds as $catId){

                        $catChilds = IPS_GetChildrenIDs($catId["id"]);

                        foreach ($catChilds as $catChild) {

                            $childids = IPS_GetChildrenIDs($catChild);

                            $parname = IPS_GetName($catChild);

                            if (IPS_VariableExists($catChild) != 1 && IPS_LinkExists($catChild) != 1){

                                foreach ($childids as $childid){

                                        foreach ($childids as $childid){
                                            if (IPS_VariableExists($childid) != 1){

                                                if(IPS_LinkExists($childid) == 1){
                                                    $linkInfo = IPS_GetLink($childid);
                                                    $linkTarget = $linkInfo["TargetID"];
                                                    $childid = $linkTarget;
                                                    $varInfo = IPS_GetVariable($childid); 
                                                }
                                            }
                                            
                                            $varInfo = IPS_GetVariable($childid);
                                            $changedtime = $varInfo["VariableChanged"];
                                            $varname = IPS_GetName($childid);
                                            $topic = $catId["top"]. $parname."_".$varname;
                                            $syncname = $parname."_".$varname;
                                            $payload = round(getvalue($childid), 2);
                                            $time = time();

                                            $isSetpoint = isset($catId["setpoint"]) ? $catId["setpoint"] : false;

                                            if ($isSetpoint == true){
                                                $this->MqttSync($mqttId, $topic, $payload, false, $syncname, $childid);
                                                IPS_LogMessage("Monitoring Client", "Sync Setpoint: " . $topic . " mit Payload: " . $payload. " und Source: " . $childid . " und Ident: " . $syncname);
                                            }else{
                                                if($changedtime > $time - $updatetime){
                                                    $this->MqttPublish($mqttId, $topic, $payload, false);
                                                }
                                            }    

                                        }

                                }
                            }else{
                                $childid = $catChild;
                                if (IPS_VariableExists($childid) != 1){

                                    if(IPS_LinkExists($childid) == 1){
                                        $linkInfo = IPS_GetLink($childid);
                                        $linkTarget = $linkInfo["TargetID"];
                                        $childid = $linkTarget;
                                        $varInfo = IPS_GetVariable($childid); 
                                    }
                                }

                                    $varInfo = IPS_GetVariable($childid);
                                    $changedtime = $varInfo["VariableChanged"];
                                    $varname = IPS_GetName($childid);
                                    $topic = $catId["top"]. $parname."_".$varname;
                                    $payload = round(getvalue($childid), 2);
                                    $time = time();

                                    $isSetpoint = isset($catId["setpoint"]) ? $catId["setpoint"] : false;

                                    if ($isSetpoint == true){
                                       $this->MqttSync($mqttId, $topic, $payload, false, $parname."_".$varname, $childid);
                                    }else{
                                       if($changedtime > $time - $updatetime){
                                        $this->MqttPublish($mqttId, $topic, $payload, false);
                                        }
                                    }  
                            }
                        }

            }
            $topic = "Projekte". $projectyear."/".$projectnumber. "/ISP" .$ispnumber. "/Name";
            $this->MqttPublish($mqttId, $topic, $projectname, false);

    }
    public function ForceSendTopic() {
   
        $mqttId = $this->ReadPropertyInteger("MqttCLientID");
        $projectyear = $this->ReadPropertyInteger("Projectyear");
        $projectnumber = $this->ReadPropertyInteger("Projectnumber");
        $projectname = $this->ReadPropertyString("Projectname");
        $ispnumber = $this->ReadPropertyInteger("ISP");
        $updatetime = $this->ReadPropertyInteger("Updatetime");

            $catIds[0]["id"] = $this->ReadPropertyInteger("ParseNotifyCategoryID");
            $catIds[0]["top"] = "Projekte". $projectyear."/P".$projectnumber. "/ISP" .$ispnumber. "/Notify/";
            $catIds[1]["id"] = $this->ReadPropertyInteger("ParseAlarmCategoryID");
            $catIds[1]["top"] = "Projekte". $projectyear."/P".$projectnumber. "/ISP" .$ispnumber. "/Alarm/";
            $catIds[2]["id"] = $this->ReadPropertyInteger("ParseAnalogCategoryID");
            $catIds[2]["top"] = "Projekte". $projectyear."/P".$projectnumber. "/ISP" .$ispnumber. "/Analog/";



            foreach ($catIds as $catId){

                        $catChilds = IPS_GetChildrenIDs($catId["id"]);

                        foreach ($catChilds as $catChild) {

                            $childids = IPS_GetChildrenIDs($catChild);

                            $parname = IPS_GetName($catChild);

                            if (IPS_VariableExists($catChild) != 1 && IPS_LinkExists($catChild) != 1){

                                foreach ($childids as $childid){

                                    

                                        foreach ($childids as $childid){
                                            if (IPS_VariableExists($childid) != 1){

                                                if(IPS_LinkExists($childid) == 1){
                                                    $linkInfo = IPS_GetLink($childid);
                                                    $linkTarget = $linkInfo["TargetID"];
                                                    $childid = $linkTarget;
                                                    $varInfo = IPS_GetVariable($childid); 
                                                }
                                            }
                                        
                                            $varInfo = IPS_GetVariable($childid); 
                                            $varname = IPS_GetName($childid);
                                            $topic = $catId["top"]. $parname."_".$varname;
                                            $payload = round(getvalue($childid), 2);

                                            $this->MqttPublish($mqttId, $topic, $payload, false);
                                            // IPS_LogMessage("Monitoring Client", "Force Update with Parent: " . $topic . " mit Payload: " . $payload);
                                        
                                        }

                                }
                            }else{
                                $childid = $catChild;
                                if (IPS_VariableExists($childid) != 1){

                                    if(IPS_LinkExists($childid) == 1){
                                        $linkInfo = IPS_GetLink($childid);
                                        $linkTarget = $linkInfo["TargetID"];
                                        $childid = $linkTarget;
                                        $varInfo = IPS_GetVariable($childid); 
                                    }
                                }

                                $varInfo = IPS_GetVariable($childid); 
                                $varname = IPS_GetName($childid);
                                $topic = $catId["top"].$varname;
                                $payload = round(getvalue($childid), 2);

                                $this->MqttPublish($mqttId, $topic, $payload, false);
                               // IPS_LogMessage("Monitoring Client", "Force Update none Parent: " . $topic . " mit Payload: " . $payload);
                            }
                        }

            }
            $topic = "Projekte". $projectyear."/".$projectnumber. "/ISP" .$ispnumber. "/Name";
            $this->MqttPublish($mqttId, $topic, $projectname, false);

    }


}
?>