\n"; } else { fwrite($fp, "$order;quit\n"); #buggy in fhem by notify? #$errormessage= fgets($fp); fclose($fp); } return $errormessage; } ###### make an array from the xmllist unset($output); $stack = array(); $output=array(); unset($longxml); $version = explode('.', phpversion()); ###################################################################### # get the xmllist from fhem $fp = stream_socket_client("tcp://$fhem:$fhemport", $errno, $errstr, 30); if (!$fp) { echo "$errstr ($errno)
\n"; } else { fwrite($fp, "xmllist;quit\n"); $outputvar=stream_get_contents($fp); array_push($output,$outputvar); fclose($fp); } # start_element_handler ( resource parser, string name, array attribs ) function startElement($parser, $name, $attribs) { global $stack; $tag=array("name"=>$name,"attrs"=>$attribs); array_push($stack,$tag); } # end_element_handler ( resource parser, string name ) function endElement($parser, $name) { global $stack; $stack[count($stack)-2]['children'][] = $stack[count($stack)-1]; array_pop($stack); } function new_xml_parser($live) { global $parser_live; $xml_parser = xml_parser_create(); xml_parser_set_option($parser, XML_OPTION_TARGET_ENCODING, "UTF-8"); xml_parser_set_option($xml_parser, XML_OPTION_CASE_FOLDING, 0); xml_set_element_handler($xml_parser, "startElement", "endElement"); if (!is_array($parser_live)) { settype($parser_live, "array"); } $parser_live[$xml_parser] = $live; return array($xml_parser, $live); } # go parsing if (!(list($xml_parser, $live) = new_xml_parser($live))) { die("could not parse XML input"); } #change the xmllist into an intern array $data = $output[0]; if (!xml_parse($xml_parser, $data)) { $now=date($timeformat); echo("There is a xmllist file for debugging: $AbsolutPath/tmp/debugxml$now

"); $handle=fopen("tmp/debugxml$now","w"); fwrite($handle,$outputvar); $warning=sprintf("XML error: %s at line %d\n", xml_error_string(xml_get_error_code($xml_parser)), xml_get_current_line_number($xml_parser)); echo $warning; fwrite($handle,$warning); fclose($handle); } xml_parser_free($xml_parser); #print_r($stack); #exit; #searching for rooms/fs20/HomeMatic/Logpaths $rooms=array(); $fs20devs=array(); $culhmdevs=array(); $fhtdevs=array(); $logpaths=array(); $actors=array(); for($i=0; $i < count($stack[0][children]); $i++) { if ((substr($stack[0][children][$i][name],0,5)=='FS20_') || (substr($stack[0][children][$i][name],0,4)=='X10_')) { for($j=0; $j < count($stack[0][children][$i][children]); $j++) { $fs20devxml=$stack[0][children][$i][children][$j][attrs][name]; for($k=0; $k < count($stack[0][children][$i][children][$j][children]); $k++) { #$check=$stack[0][children][$i][children][$j][children][$k][attrs][name]; # if ($check=='ATTR') #{ if (($stack[0][children][$i][children][$j][children][$k][attrs][key])=='room') { $room=$stack[0][children][$i][children][$j][children][$k][attrs][value]; if (! in_array($room,$rooms)) array_push($rooms,$room); } #}# } if ((! in_array($fs20devxml,$fs20devs)) AND ( $room != 'hidden')) array_push($fs20devs,$fs20devxml); } }#FS20 #################################################### HomeMatic elseif ((substr($stack[0][children][$i][name],0,7)=='CUL_HM_')) { for($j=0; $j < count($stack[0][children][$i][children]); $j++) { $culhmdevxml=$stack[0][children][$i][children][$j][attrs][name]; for($k=0; $k < count($stack[0][children][$i][children][$j][children]); $k++) { # $check=$stack[0][children][$i][children][$j][children][$k][attrs][name]; #if ($check='ATTR') #{ if (($stack[0][children][$i][children][$j][children][$k][attrs][key])=='room') { $room=$stack[0][children][$i][children][$j][children][$k][attrs][value]; if (! in_array($room,$rooms)) array_push($rooms,$room); } #}# } if ((! in_array($culhmdevxml,$culhmdevs)) AND ( $room != 'hidden')) array_push($culhmdevs,$culhmdevxml); } }#HomeMatic #################################################### FHTs elseif (substr($stack[0][children][$i][name],0,4)=='FHT_') { for($j=0; $j < count($stack[0][children][$i][children]); $j++) { $fhtdevxml=$stack[0][children][$i][children][$j][attrs][name]; for($k=0; $k < count($stack[0][children][$i][children][$j][children]); $k++) { $check=$stack[0][children][$i][children][$j][children][$k][attrs][key]; if ( $check=="room") {$room=$stack[0][children][$i][children][$j][children][$k][attrs][value]; if (! in_array($room,$rooms)) array_push($rooms,$room); } } if ((! in_array($fhtdevxml,$fhtdevs)) AND ( $room != 'hidden')) array_push($fhtdevs,$fhtdevxml); } } #FHT #################################################### HMS and CUL_WS elseif ((substr($stack[0][children][$i][name],0,4)=='HMS_') || (substr($stack[0][children][$i][name],0,7)=='CUL_WS_')) { for($j=0; $j < count($stack[0][children][$i][children]); $j++) { for($k=0; $k < count($stack[0][children][$i][children][$j][children]); $k++) { if ( $stack[0][children][$i][children][$j][children][$k][attrs][key]=="room") {$room=$stack[0][children][$i][children][$j][children][$k][attrs][value]; if (! in_array($room,$rooms)) array_push($rooms,$room); } } } } # HMS and CUL_WS #################################################### LogpathFileLOG elseif (substr($stack[0][children][$i][name],0,8)=='FileLog_') { for($j=0; $j < count($stack[0][children][$i][children]); $j++) { for($k=0; $k < count($stack[0][children][$i][children][$j][children]); $k++) { if ( $stack[0][children][$i][children][$j][children][$k][attrs][key]=="currentlogfile") {$logpathstack=$stack[0][children][$i][children][$j][children][$k][attrs][value]; if (! in_array($logpathistack,$logpaths)) array_push($logpaths,$logpathstack); } } } } # FileLog #################################################### INTERNAL Logpath elseif (substr($stack[0][children][$i][name],0,9)=='_internal') { for($j=0; $j < count($stack[0][children][$i][children]); $j++) { for($k=0; $k < count($stack[0][children][$i][children][$j][children]); $k++) { if ( $stack[0][children][$i][children][$j][children][$k][attrs][key]=="currentlogfile") {$fhemlog=$stack[0][children][$i][children][$j][children][$k][attrs][value]; if (! in_array($fhemlog,$logpaths)) array_push($logpaths,$fhemlog); } } } } # _internal_ #################################################### SCIVT elseif (substr($stack[0][children][$i][name],0,6)=='SCIVT_') { for($j=0; $j < count($stack[0][children][$i][children]); $j++) { for($k=0; $k < count($stack[0][children][$i][children][$j][children]); $k++) { if ( $stack[0][children][$i][children][$j][children][$k][attrs][key]=="room") {$room=$stack[0][children][$i][children][$j][children][$k][attrs][value]; if (! in_array($room,$rooms)) array_push($rooms,$room); } } } } # SCIVT #################################################### SCIVT elseif (substr($stack[0][children][$i][name],0,6)=='KS300_') { for($j=0; $j < count($stack[0][children][$i][children]); $j++) { for($k=0; $k < count($stack[0][children][$i][children][$j][children]); $k++) { # $check=$stack[0][children][$i][children][$j][children][$k][attrs][name]; #if ($check='ATTR') #{ if (($stack[0][children][$i][children][$j][children][$k][attrs][key])=='room') { $room=$stack[0][children][$i][children][$j][children][$k][attrs][value]; if (! in_array($room,$rooms)) array_push($rooms,$room); } # } } } } } # end searching rooms /logpaths in the array from fhem # user defined rooms? if ($UserDefs==1) { for($i=0; $i < count($userdef); $i++) { $room=$userdef[$i]['room']; if (! in_array($room,$rooms)) array_push($rooms,$room); } } array_push($rooms,'ALL'); sort($rooms); #print_r($rooms); echo "Count: $countrooms"; exit; #print_r($fs20devs); # exit; #echo "#################################"; #print_r($culhmdevs); exit; #echo count($stack[0][children]);exit; #print_r($logpaths); exit; #exit; # Print Array on Screen $now=date($timeformat); # only RSS-Feeds?? if (isset($showrss)) { include "include/rssfeeds.php"; exit; } ###### write the header on screen echo " $titel"; include ("include/style.css"); echo " "; echo" $errormessage \r\r
\r
\r\r
\r"; ###################### Webcam if ($showwebcam==1) { echo " "; }; ############################ WEATHER if ($enableweather==1) { echo ""; if (($weatherroom != 'hidden') and ($showroom=='ALL' or $showroom==$weatherroom or $weatherroom=='donthide') and ($showweath==1)) include 'include/weather.php'; } ############################ FHZ if ($show_fs20pulldown==1 or $show_general==1 or $show_hmpulldown==1 or $show_fhtpulldown==1) { echo ""; } if ($showmenu=='1') { if ($show_general=='1') {echo " "; }; if ($show_fs20pulldown=='1') include 'include/fs20pulldown.php'; if ($show_hmpulldown=='1') include 'include/hmpulldown.php'; if ($show_fhtpulldown=='1') include 'include/fhtpulldown.php'; if ($show_logpulldown=='1') include 'include/logpulldown.php'; }; ############################ ROOMS if (($showroombuttons==1) and (count($rooms)>1)) { echo "\r\r\r"; echo ""; } ##################################################################################################################### ## now the xmllist will be writen on screen as html ##### Let's go.... :-))))) for($i=0; $i < count($stack[0][children]); $i++) { ############################ if ((substr($stack[0][children][$i][name],0,5)=='FS20_') || (substr( $stack[0][children][$i][name],0,4)=='X10_') || (substr( $stack[0][children][$i][name],0,7)=='CUL_HM_')) { $type=$stack[0][children][$i][name]; echo "\r\r\r"; $counter=0; echo "\r"; if (isset($showfs20) and $showgnuplot == 1) { drawgnuplot($showfs20,"FS20",$gnuplot,$pictype,$logpath, $FHTyrange,$FHTy2range,$DBUse); $FS20dev1=$showfs20.'1'; echo "\r"; } } ############################ elseif (substr($stack[0][children][$i][name],0,4)=='FHT_') { $type=$stack[0][children][$i][name]; #echo "\r"; echo "\r\r\r"; for($j=0; $j < count($stack[0][children][$i][children]); $j++) { $room=""; for($k=0; $k < count($stack[0][children][$i][children][$j][children]); $k++) { $check=$stack[0][children][$i][children][$j][children][$k][attrs][key]; if ( $check=="room") {$room=$stack[0][children][$i][children][$j][children][$k][attrs][value]; } if ( $check=="warnings") {$battery=$stack[0][children][$i][children][$j][children][$k][attrs][value]; } } if (($room != 'hidden') and ($showroom=='ALL' or $showroom==$room)) { $FHTdev=$stack[0][children][$i][children][$j][attrs][name]; if ($showfht == $FHTdev) {echo "\r"; } else {echo "\r"; }; echo "\r"; echo ""; if ($showfht==$FHTdev and $showgnuplot == 1) { drawgnuplot($FHTdev,"FHT",$gnuplot,$pictype,$logpath, $FHTyrange,$FHTy2range,$DBUse); $FHTdev1=$FHTdev.'1'; echo "\r"; } if ( $showfht==$FHTdev) { echo "\r\r\r"; } } } } ############################ elseif ((substr($stack[0][children][$i][name],0,4)=='HMS_') or (substr($stack[0][children][$i][name],0,6)=='CUL_WS')) { $type=$stack[0][children][$i][name]; #echo "\r"; echo "\r\r\r"; for($j=0; $j < count($stack[0][children][$i][children]); $j++) { $room=""; for($k=0; $k < count($stack[0][children][$i][children][$j][children]); $k++) { if ( $stack[0][children][$i][children][$j][children][$k][attrs][key]=="battery") {$battery=$stack[0][children][$i][children][$j][children][$k][attrs][value]; } if ( $stack[0][children][$i][children][$j][children][$k][attrs][key]=="room") {$room=$stack[0][children][$i][children][$j][children][$k][attrs][value]; } if (( $stack[0][children][$i][children][$j][children][$k][attrs][key]=="type") or ( $stack[0][children][$i][children][$j][children][$k][attrs][key]=="TYPE") ) {$type=$stack[0][children][$i][children][$j][children][$k][attrs][value];}; } if (($room != 'hidden') and ($showroom=='ALL' or $showroom==$room)) { $HMSdev=$stack[0][children][$i][children][$j][attrs][name]; if ($type=="HMS100T" or $type=="HMS100TF" or $type=="CUL_WS") { if ($showhmsgnu== $HMSdev) {$formvalue="hide";$gnuvalue="";} else {$formvalue="show";$gnuvalue=$HMSdev;}; echo "\r"; if ($showhmsgnu == $HMSdev and $showgnuplot == 1) { drawgnuplot($HMSdev,$type,$gnuplot,$pictype,$logpath,0,0,$DBUse); $HMSdev1=$HMSdev.'1'; echo "\r"; } } } } ############################ elseif (substr($stack[0][children][$i][name],0,6)=='KS300_' or substr($stack[0][children][$i][name],0,6)=='WS300_') { $type=$stack[0][children][$i][name]; echo "\r\r\r"; for($j=0; $j < count($stack[0][children][$i][children]); $j++) { $KSdev=$stack[0][children][$i][children][$j][attrs][name]; $room=''; for($k=0; $k < count($stack[0][children][$i][children][$j][children]); $k++) { $check=$stack[0][children][$i][children][$j][children][$k][attrs][key]; $check2=$stack[0][children][$i][children][$j][children][$k][attrs][name]; if ($check=='room') $room=$stack[0][children][$i][children][$j][children][$k][attrs][value]; elseif ($check=='willi') $willi=1; elseif ($check=='avg_day') $KSavgday=$stack[0][children][$i][children][$j][children][$k][attrs][value]; elseif ($check=='temperature') $KSmeasured=$stack[0][children][$i][children][$j][children][$k][attrs][measured]; elseif ($check=='avg_month') $KSavgmonth=$stack[0][children][$i][children][$j][children][$k][attrs][value]; # for older versions... if ($check2=='avg_month') $KSavgmonth=$stack[0][children][$i][children][$j][children][$k][attrs][value]; elseif ($check2=='avg_day') $KSavgday=$stack[0][children][$i][children][$j][children][$k][attrs][value]; elseif ($check2=='temperature') $KSmeasured=$stack[0][children][$i][children][$j][children][$k][attrs][measured]; elseif ($check2=='willi') $willi=1; } if (($room != 'hidden') and ($showroom=='ALL' or $showroom==$room)) { $Xks=$imgmaxxks; $Yks=$imgmaxyks*4; ##gnuplot if ($showks == $KSdev) {echo "\r";} else {echo "\r"; }; echo "\r"; if (! isset ($willi)) $drawtype="KS300"; else $drawtype="WS300"; if (($showks == $KSdev) and $showgnuplot=='1') { if ($kstyp=="1") { drawgnuplot($KSdev,$drawtype."_t1",$gnuplot,$pictype,$logpath,0,0,$DBUse); } else { drawgnuplot($KSdev,$drawtype."_t2",$gnuplot,$pictype,$logpath,0,0,$DBUse); } $KSdev1=$KSdev.'1'; echo "\r"; } } } } ############################ elseif ($stack[0][children][$i][name]=='LOGS'or $stack[0][children][$i][name]=='FileLog_LIST') { echo "\r\r"; if (isset ($showlogs)) for($j=0; $j < count($stack[0][children][$i][children]); $j++) { for($k=0; $k < count($stack[0][children][$i][children][$j][children]); $k++) { $check=$stack[0][children][$i][children][$j][children][$k][attrs][key]; if ($check=='DEF') { $value=$stack[0][children][$i][children][$j][children][$k][attrs][value]; } } $name=$stack[0][children][$i][children][$j][attrs][name]; echo "\r"; } } ############################ elseif ($stack[0][children][$i][name]=='NOTIFICATIONS' or $stack[0][children][$i][name]=='notify_LIST') { echo "\r\r\r"; if (isset ($shownoti)) for($j=0; $j < count($stack[0][children][$i][children]); $j++) { for($k=0; $k < count($stack[0][children][$i][children][$j][children]); $k++) { $check=$stack[0][children][$i][children][$j][children][$k][attrs][key]; if ($check=='DEF') { $value=$stack[0][children][$i][children][$j][children][$k][attrs][value]; } } $name=$stack[0][children][$i][children][$j][attrs][name]; echo "\r"; } } ############################ elseif ($stack[0][children][$i][name]=='AT_JOBS' or $stack[0][children][$i][name]=='at_LIST') { echo "\r\r\r"; if (isset ($showat)) for($j=0; $j < count($stack[0][children][$i][children]); $j++) { $command=$stack[0][children][$i][children][$j][attrs][name]; $next=$stack[0][children][$i][children][$j][attrs][state]; $order=$command; for($k=0; $k < count($stack[0][children][$i][children][$j][children]); $k++) { $check=$stack[0][children][$i][children][$j][children][$k][attrs][key]; if ($check=='DEF') { $value=$stack[0][children][$i][children][$j][children][$k][attrs][value]; } } $order='delete '.$order; echo "\r"; } } }; ## that is all of fhem ##################### User defined graphics?? if ($UserDefs==1) { echo "\r\r\r"; $type='userdef'; for($i=0; $i < count($userdef); $i++) { $room=$userdef[$i]['room']; $UserDef=$userdef[$i]['name']; $imgmaxxuserdef=$userdef[$i]['imagemax']; $imgmaxyuserdef=$userdef[$i]['imagemay']; if (($room != 'hidden') and ($showroom=='ALL' or $showroom==$room)) { if ($showuserdefgnu== $UserDef) {$formvalue="hide";$gnuvalue="";} else {$formvalue="show";$gnuvalue=$UserDef;}; echo "\r"; if ($showuserdefgnu == $UserDef and $showgnuplot == 1) {drawgnuplot($UserDef,$type,$gnuplot,$pictype,$logpath,$userdef[$i],$i,$DBUse); $UserDef1=$UserDef.'1'; echo "\r"; } }# /not room hidden } } #/userdefs ##################### taillog if ($taillog==1) { echo "\r\r"; if (isset ($showhist)) {foreach($tailoutput as $data) echo "\r";}; }; echo "\r\r

$titel $now
v$pgm3version
\r \r
WEBCAM "; if (! isset($showpics)) { echo "show pics";} else { echo "hide pics";} echo" "; if (($webcamroom != 'hidden') and ($showroom=='ALL' or $showroom==$webcamroom or $webcamroom=='donthide')) if (isset($showpics)) { for($i=0; $i < count($webcam); $i++) { $webcam1=$webcam[$i]; $pos = strpos($webcam1,'://'); # e.g. http://.. if ($pos === false) # picture instead of an URL { $webcamname=$webcam[$i]; } else { $webcamname=str_replace("/","",$webcam1); $webcamname=str_replace(":","",$webcamname); $order="$wgetpath -O tmp/$webcamname $webcam1"; exec($order,$res); $errormessage = $res[0]; echo $errormessage; } echo""; } } echo"
\r\r
WEATHER"; if ($showweath != '1') { echo "show";} else { echo "hide";} echo "
"; echo "
\r\r
FHZ_DEVICE"; if ($showmenu != '1') { echo "show";} else { echo "hide";} echo "
"; echo "
General:
\r\r\r
ROOMS
"; $counter=0; for($i=0; $i < count($rooms); $i++) { $room=$rooms[$i]; if ($room != 'hidden') { echo""; $counter++; if (fmod($counter,$roommaxiconperline)== 0.0) echo "
"; } else $counter--; } echo "
\r\r\r
$type
"; for($j=0; $j < count($stack[0][children][$i][children]); $j++) { $fs20=$stack[0][children][$i][children][$j][attrs][name]; $state=$stack[0][children][$i][children][$j][attrs][state]; for($k=0; $k < count($stack[0][children][$i][children][$j][children]); $k++) { $check=$stack[0][children][$i][children][$j][children][$k][name]; switch ($check) { case 'STATE': $measured=$stack[0][children][$i][children][$j][children][$k][attrs][measured]; break; } $check=$stack[0][children][$i][children][$j][children][$k][attrs][key]; switch ($check) { case 'room': $room=$stack[0][children][$i][children][$j][children][$k][attrs][value];break; case 'webCmd': $wcmd=$stack[0][children][$i][children][$j][children][$k][attrs][value];break; case 'follow-on-for-timer': $foft=$stack[0][children][$i][children][$j][children][$k][attrs][value];break; case 'icon': $icon=$stack[0][children][$i][children][$j][children][$k][attrs][value];break; case 'eventMap': $eventMap=$stack[0][children][$i][children][$j][children][$k][attrs][value];break; case 'subType': $subType=$stack[0][children][$i][children][$j][children][$k][attrs][value];break; } } If (($eventMap!='')) { If ((substr($eventMap,0,1)==',') or (substr($eventMap,0,1)=='/')) { $eMap_sign=(substr($eventMap,0,1)); $eventMap=substr($eventMap,1); $eventMap=str_replace($eMap_sign, ":", $eventMap); } else { $eventMap=str_replace(" ", ":", $eventMap); } $eMapsep=explode(":",$eventMap); if ($state==$eMapsep[1]) { $state=$eMapsep[0]; $emap=$eMapsep[1]; } elseif ($state==$eMapsep[3]) { $state=$eMapsep[2]; $emap=$eMapsep[3]; } elseif ($state=='off') { $emap=$eMapsep[3]; } elseif ($state!='off') { $emap=$eMapsep[1]; } }; $tmp_file=$AbsolutPath."/tmp/FS20.".$fs20."_foft.txt"; if (($state=='off') and (file_exists($tmp_file))) { $delfile2=$AbsolutPath."/tmp/FS20.".$fs20.".log.".$measured.".png"; unlink ($tmp_file); unlink ($delfile2); } if (($state=='off') and (substr($wcmd,0,12)=='on-for-timer')) { $wcmd_count = strpos($wcmd, ':',0); $wcmd_order = substr($wcmd, 0, $wcmd_count); $order="set $fs20 $wcmd_order"; } elseif (($state!='off')) { $order="set $fs20 off"; if ((substr($state,0,12)=='on-for-timer')) { if (file_exists($tmp_file)) {} else{ $x1=fopen ($tmp_file, "w"); fwrite ($x1,$foft); fclose ($x1); } } } else { $order="set $fs20 on"; }; if (($room != 'hidden') and ($showroom=='ALL' or $showroom==$room)) { $counter++; echo""; if (fmod($counter,$fs20maxiconperline)== 0.0) echo "
"; array_push($actors,array($phpfileurl,$order,$showroom,$link,$fs20,$state,$measured,$icon,$emap,$subType,$room)); }; # $fs20=""; $state=""; $check=""; $measured=""; $room=""; $wcmd=""; $foft=""; $icon=""; $eventMap=""; $subType=""; $emap=""; } echo "






"; #echo "$type
\r\r\r
$type
adjust
adjust






\r"; for($k=0; $k < count($stack[0][children][$i][children][$j][children]); $k++) { $name=$stack[0][children][$i][children][$j][children][$k][attrs][key]; $value=$stack[0][children][$i][children][$j][children][$k][attrs][value]; $measured=$stack[0][children][$i][children][$j][children][$k][attrs][measured]; echo "\r"; } echo "\r
$FHTdev (FHT): $name$value $measured
"; # echo "$type
\r\r\r
$type
"; } else {echo "\
";} echo "






\r\r\r
$type
"; echo "
Temp./Hum.


"; if (! isset ($willi)) echo "Wind/Rain
"; else echo "Air Pressure/ Willi
"; echo "

"; echo "
"; echo ""; echo "






\r\r
LOGS"; if (! isset ($showlogs)) { echo "show";} else { echo "hide";} echo "
Log: $value / $name
\r\r
NOTIFICATIONS"; if (! isset ($shownoti)) { echo "show";} else { echo "hide";} echo "
Notification:$value / $name
\r\r
AT_JOBS"; if (! isset ($showat)) { echo "show";} else { echo "hide";} echo "
AT-Job: del $value / $next / $command
\r\r\r
USER DEFINED
\r
\r"; echo "\r






\r\r\r
$taillogorder"; if (! isset ($showhist)) { echo "show";} else { echo "hide";} echo "
History$data
\r
"; ?>