<?php
/**
* CUN/CUL StatusEvent Script, Add to EventHandler Instance
* V0.5 26.12.2010
* @package CUN
*/

//Regvar-Instance
$reg=12344;
//get message variable
$lmid=getVid('AuxMessage',$reg);
//Status change
if ($IPS_SENDER == "StatusEvent")
{
IPS_LogMessage("CUL","Status:$IPS_STATUSTEXT ($IPS_STATUS)");
if ($IPS_STATUS==102) { //aktiv
	//Status variablen
	$versid=getVid('Version',$reg);
	$mid=getVid('Modus',$reg);
   //Modus abfragen
	RegVar_SendText($reg,"X\r\n");
   IPS_Sleep(200);
	$modus=substr(getValue($lmid),0,2);
	setValue($mid,$modus);
	if ($modus<>"21") {
	//CUL/CUN Modus setzen
		RegVar_SendText($reg,"X21\r\n");
		IPS_Sleep(500);
		//Modus abfragen
		RegVar_SendText($reg,"X\r\n");
		IPS_Sleep(200);
		$modus=substr(getValue($lmid),0,2);
		setValue($mid,$modus);
	}
	//Version abfragen
	RegVar_SendText($reg,"V\r\n");
   IPS_Sleep(200);
	$version=getValue($lmid);
	setValue($versid,$version);
	setValue($lmid,"");
} 
	
}
/**
* Get ID by name if exists, else create
* @Param String Name
* @param integer Parent-ID
* @return integer ID
*/
function getVid($name,$par) {
	$vid = @IPS_GetVariableIDByName($name, $par);
	if ($vid === false) {
		$vid=IPS_CreateVariable(3);
		ips_setname($vid,$name);
		ips_setParent($vid,$par);
		setValue($vid,'');
	}
	return $vid;
}
?>