<?php
/**
* CUN/CUL FS20Event Script, 
* Add as OnChange EventHandler to "Intensität" and "Status" Variable
* V0.5 26.12.2010
* @package CUN
*/

//Regvar-Instance to Clientsocket
$reg=12344 /*[CUN\Register Variable]*/;
//Status change
if (($IPS_SENDER == "Variable") || ($IPS_SENDER == "WebFront"))
{
	$me=$IPS_VARIABLE;
	$name=IPS_GetName($me);
	switch ($name) {
		case "Status":$val=$IPS_VALUE?"11":"00";break;
		case "Intensität":$val=dimmer($IPS_VALUE);break;
	}
	$fs20=IPS_GetParent($me);
	$fs20name=IPS_GetName($fs20);
	$addr=FS20_GetDeviceAddress($fs20);
	$hc=$addr['HomeCode'];
	$dev=$addr['Address'];
	$sub=$addr['SubAddress'];
	$code1=four2hex($hc);
	$code2=four2hex($dev.$sub);
	$cul='F'.$code1.$code2.$val;
	IPS_LogMessage("FS20CUL","Send ($name)$fs20 ($fs20name) -> $hc::$dev::$sub ($val)=$cul");
	RegVar_SendText($reg,$cul."\r\n");
}
//#############################
/**
* converting ELV IDs into CUL Hex-Ids
* translated from 10_fs20
* @param string $v ELV ID
* @returns string Hex- Value
*/

function four2hex($v){

  $r = 0;
  foreach  (str_split($v) as $x) {
    $r = $r*4+($x-1);
  }
  $out="";
  $len=strlen($v);
  switch ($len) {
   case 4:$out=sprintf("%02X",$r);break;
   case 8:$out=sprintf("%04X",$r);break;
	}
  return $out;
}
function dimmer($v) {
//dim values from webfront are already steps, not percent!
//otherwise use $out=round(16/100*$v))
if (($v<0)|| ($v>100)) {
	$out=0;
}else{
	$out=$v;
}
return sprintf("%02X",$out);
}

?>