<?php

logger(DEBUG,_("Including db_functions.php"), __FILE__ . ":" . __LINE__);

//to save or not to save the DB, that is the question ...
function storeDB($db, $filepath)
{
    $data = serialize($db);
    return file_put_contents($filepath, $data);
 }

function loadDB(& $db, $filepath)
{
	$data = file_get_contents($filepath);
	if ($data === false)
	{
		return false;
	}
	$db = unserialize($data);
}

function mkDevicesDB($topic, $json, $group=false)
{
	global $devices, $listProperties, $listPropertiesKeys, $indexDevices, $dbInit, $logFh, $hooks;
	if (!isset($devices[$topic]))
	{
		$devices[$topic]= array();
	}
	//print_r($json);
	foreach ($json as $jsonDevice)
	{

		$fn = $jsonDevice->friendly_name;
		$fnTree = explode("/", $fn);
		$device = & $devices[$topic];
		foreach($fnTree as $fnPart)
		{
			if (!array_key_exists($fnPart, $device))
			{
				$device[$fnPart] = array();
			}
			$device = & $device[$fnPart];
		}
		if (!array_key_exists("device", $device))
		{
			$device["device"] = new device;
		}
		$device["device"]->topic = $topic;
		//$device["device"]->device = $jsonDevice;
		$device["device"]->friendlyName = $fn;
		if ($group)
		{
			//print_r($device);
			$device["device"]->groupID = $jsonDevice->id;
			$indexDevices[$device["device"]->groupID] = & $device["device"];
			$indexFriendlyNames[$fn] = & $device["device"];
		}else
		{
			addDevice($device["device"], $fn, $jsonDevice);
		}
	}
	$dbInit += 1;
	fwrite($logFh, "################################START##################################################");
	fwrite($logFh, var_export($devices, true));
	fwrite($logFh, "################################END##################################################");

	logger(DEBUG, _("Devices DB made"), __FILE__ . ":" . __LINE__);
	//print_r($devices);
}

function addDevice(& $device, $fn, $jsonDevice )
{
	global $listProperties, $listPropertiesKeys, $hooks, $indexDevices, $indexFriendlyNames;
	$device->type = $jsonDevice->type;
	$device->ieeeAddress = $jsonDevice->ieee_address;
	if ( !empty($jsonDevice->power_source ) )
	{
		$device->powerSource = $jsonDevice->power_source;
	}
	if ($jsonDevice->definition != null)
	{
		$device->description = $jsonDevice->definition->description;
		searchPropertyKey($fn, $device, $jsonDevice->definition->exposes, $listPropertiesKeys);
	}
	searchPropertyValue($fn, $device, $jsonDevice, $listProperties);

	//indexing device
	$indexDevices[$device->ieeeAddress] = & $device;
	$indexFriendlyNames[$fn] = & $device;
}

function searchPropertyKey($fn, &$device, $inputObject, $listPropertiesKeys)
{
	//foreach($listPropertiesKeys as $propertyKey)
	//{
	logger(DEBUG, _("searching for property"), __FILE__ . ":" . __LINE__ );
	if (is_object($inputObject))
	{
		if (property_exists($inputObject, "property"))
		{
			logger(DEBUG, _("propertyKey exists filling properties"), __FILE__ . ":" . __LINE__ );
			$string = $inputObject->property;
			$device->properties[$string]["value"] = null;
			$device->properties[$string]["functions"] = array();

			foreach($inputObject as $key2 => $value2)
			{

				if ($key2 != "property")
				{
					$device->properties[$string][$key2] = $value2;
					logger(DEBUG, sprintf(_("property %s value %s"), $key2, print_r($device->properties[$string][$key2])), __FILE__ . ":" . __LINE__ );
				}
			}
		}else
		{
			if (property_exists($inputObject, "type"))
			{
				$device->type = $inputObject->type;
			}
			foreach($inputObject as $key => $value)
			{
				logger(DEBUG, sprintf(_("key = %s"), $key), __FILE__ . ":" . __LINE__ );
				searchPropertyKey($fn, $device, $value, $listPropertiesKeys);
			}
		}
		//print_r($device);
	}elseif (is_array($inputObject))
	{
		foreach($inputObject as $value)
		{
			logger(DEBUG, _("value is object or group, iterating"), __FILE__ . ":" . __LINE__ );
			searchPropertyKey($fn, $device, $value, $listPropertiesKeys);
		}
	}

}

function searchPropertyValue($fn, &$device, $object, $listProperties)
{
	$objectArray = (array)$object;
	foreach($listProperties as $key => $value)
	{
		if (in_array($value, $objectArray))
		{
			//echo "$value trouvé =>";
			$device->$key = $value;
			//echo $device->$key . EOL;
		}
	}
}

function changeDevice($topic, $fn, &$device, $payloadArray)
{
	//print_r($payloadArray);
	if (!empty($payloadArray))
	{
			//echo "==================== New ChangeDevice ====================="  .EOL;

		iterateDevice($topic, $fn, $device, $device, $payloadArray);
	}else
	{
		logger(ERROR, $fn . _(" => payloadArray is empty!"), __FILE__ . ":" . __LINE__);
	}

}

function iterateDevice($topic, $fn, $parentDevice, &$device, $payloadArray, $propertyTree="")
{
	global $changed, $mohaDB, $testMode;
	$deviceType = (is_a($device, "device"));				// = true if object
	//echo "==================== New iterate ====================="  .EOL;
	//echo "deviceType = "; var_dump($deviceType); echo EOL;
	//echo "device =>";print_r($device);echo EOL;
	//echo "PropertyTree ==============> " . $propertyTree . EOL;
	foreach($payloadArray as $key => $value)
	{
		$oldValue = null;
		//echo "key =>"; print_r($key); echo EOL;
		//echo "value =>"; var_dump($value); echo EOL;
		//echo "type : " . gettype($value) .EOL;
		$valueType = gettype($value);
		if ($valueType == "object")
		{
			//logger(DEBUG, _("valueType == object"), __FILE__ . ":" . __LINE__);

			$propertyTree .=  $key . "/";
			//echo "PropertyTree " . $propertyTree . EOL;
			//echo " is Object" . EOL;
			if ($deviceType === true )
			{
				//echo "deviceType = true" . EOL;
				if (!array_key_exists($key, $device->properties))
				{
					//echo "Property do not exists" . EOL;
					$device->properties[$key] = new stdClass;
				}
				//echo "iterating" . EOL;
				//echo "===============>";

				iterateDevice($topic, $fn, $parentDevice, $device->properties[$key],  $value, $propertyTree);
			}elseif(is_array($device))
			{
				//echo "is array";
				if (!array_key_exists($key, $device))
				{
					$device[$key] = new stdClass;
				}
				//echo "iterating" . EOL;
				iterateDevice($topic, $fn, $parentDevice, $device[$key], $value, $propertyTree);
			}elseif(is_object($device))
			{
				if (!property_exists($device, $key))
				{
					$device->$key = new stdClass;
				}
				iterateDevice($topic, $fn, $parentDevice, $device->$key, $value, $propertyTree);
			}

		}elseif ($valueType == "array")
		{
			//logger(DEBUG,_("valueType == array"), __FILE__ . ":" . __LINE__);
			$propertyTree .=  $key . "/";
			if ($deviceType === true )
			{
				$device->properties[$key] = array();
				iterateDevice($topic, $fn, $parentDevice, $device->properties[$key], $value, $propertyTree);
			}elseif(is_array($device))
			{
				$device[$key] = array();
				iterateDevice($topic, $fn, $parentDevice, $device[$key], $value, $propertyTree);
			}elseif(is_object($device))
			{
				$device->$key =  array();
				iterateDevice($topic, $fn, $parentDevice, $device->$key, $value, $propertyTree);
			}

		}else
		{
			//logger(DEBUG,_("valueType is ") . $valueType, __FILE__ . ":" . __LINE__);

			//var_dump($device);echo EOL;
			if (is_a($device, "device"))
			{
				//logger(DEBUG,_("This is an object 'device'"), __FILE__ . ":" . __LINE__);
				if(array_key_exists($key, $device->properties))
				{
					if ($device->properties[$key]["value"] != $value)
					{
						changeValue($device->properties[$key]["value"], $value, $parentDevice, $propertyTree, $key);
					}
				}else
				{
					$device->properties[$key] = array("value" => $value);
					$device->properties[$key]["functions"] = array();
				}
			}elseif (is_array($device))
			{
				//logger(DEBUG,_("deviceType") . $deviceType, __FILE__ . ":" . __LINE__);
				if (array_key_exists($key, $device))
				{
					if (is_array($device[$key]))
					{
						if ($device[$key]["value"] != $value)
						{
							changeValue($device->$key["value"], $value, $parentDevice, $propertyTree, $key);
						}
					}else
					{
						changeValue($device[$key], $value, $parentDevice, $propertyTree, $key);
					}
				}else
				{
					$device[$key] = array("value" => $value);
					$device[$key]["functions"] = array();
				}
			}elseif (is_object($device))
			{
				if(property_exists($device, $key))
				{
					if (is_array($device->$key))
					{
						if ($device->$key["value"] != $value)
						{
							changeValue($device->$key["value"], $value, $parentDevice, $propertyTree, $key);
						}
					}else
					{
						if ($device->$key != $value)
						{
							changeValue($device->$key, $value, $parentDevice, $propertyTree, $key);
						}
					}
				}else
				{
					$device->$key = array("value" => $value);
					$device->$key["functions"] = array();
				}
			}
		}
	}
}

function getDevicesValues($topic)
{
	global $indexDevices, $topics;
	logger(DEBUG, _("getDevicesValues function" ), __FILE__ . ":" . __LINE__ );
	foreach($indexDevices as $device)
	{
		if ($device->topic == $topic)
		{
			logger(DEBUG, "device: " . $device->friendlyName, __FILE__ . ":" . __LINE__ );
			$device->payload = array();
			$flag = false;
			//$properties = array_slice($device, 12);
			//logger(DEBUG, print_r($properties, true));
			if (!empty($device->properties))
			{
				foreach($device->properties as $property => $value)
				{
					$device->payload[$property] = "";
				}
				//logger(DEBUG, print_r($device->payload, true), __FILE__ . ":" . __LINE__ );
				$device->get();
			 }else
			 {
				logger(DEBUG, _("no properties to get for device: " . $device->friendlyName ), __FILE__ . ":" . __LINE__ );
			 }

		}
	}
}

function getDeviceByFriendlyname(&$device, $topic, $fn, $payloadArray, $create = false)
{
	global $devices, $indexDevices, $indexFriendlyNames;
	$n = explode("/", $fn);
	//echo "topic => ". $topic . EOL;
	$device = &$devices[$topic];
	foreach($n as $value)
	{
		//print_r($device[$value]);
		if (array_key_exists($value, $device))
		{
			$device = &$device[$value];
		}elseif($create === true)
		{
			$device[$value] = array();
			$device = &$device[$value];
		}else
		{
			logger(ERROR, sprintf(_(" device with friendlyname %s not found"), $fn),  __FILE__ . ":" . __LINE__);
			return false;
		}

	}
	if (! array_key_exists("device", $device))
	{
		if ($create === true)
		{
			logger(WARNING, _("init of ") . $fn, __FILE__ . ":" . __LINE__);
			$device["device"] = new device;
			$device["device"]->type = $payloadArray->type;
			$device["device"]->ieeeAddress = $payloadArray->ieeeAddress;
			$device["device"]->friendlyname = $fn;
			$indexDevices[$device["device"]->ieeeAddress] = & $device["device"];
			$indexFriendlyNames[$fn] = & $device["device"];
		}
	}else
	{
		logger(INFO, sprintf(_(" device with friendlyname %s exists"), $fn),  __FILE__ . ":" . __LINE__);
	}
	return true;
}

function changeValue(&$oldValue, $value, &$parentDevice, $propertyTree, $key)
{
	global $mohaDB;
	$object = $parentDevice->properties[$key];
	//$changed[$fn]["key"] = $key;
	//$changed[$fn]["value"] = $value;
	logger(INFO, sprintf(_("Logging Device %s property %s, %s"), $parentDevice->friendlyName, $propertyTree . $key, bool2string($value)), __FILE__ . ":" . __LINE__);
	$mohaDB->logProperty($parentDevice, $key, $value, $oldValue);
	$oldvalue = $value;
	if (!empty($object["functions"]))
	{
		logger(DEBUG,_("executing notifications functions"), __FILE__ . ":" . __LINE__);
		foreach($object["functions"] as $function)
		{
			$function($parentDevice, $key, $value);
		}
	}
}

?>