<?
/*
*******************************
 IP-SYMCON Event Scripting
*******************************
File     : owbtest.ips.php
Trigger  :
Interval :
*/
 $HA7NetAdr="192.168.1.100";
   //Pay attention: address is subject to change with DHCP activated
   // use fixed IP number

 $socktimeout = 4;          // Time limit for Socket
  // Get Ser.Nrs with Browser at http://"HA7NetAdr"/1Wire/Search.html
 $owb[1][1]="9D000000C4E46628";     // unique Ser.Nr.
 $owb[1][2]="DS18B20";              // Dallas Device Code
 $owb[1][3]="Thermometer";          // private description

 $owb[2][1]="7500000000C0C529";     // as above
 $owb[2][2]="DS2408";
 $owb[2][3]="8bit Parallel Port";

 $owb[3][1]="D70000000C2F7927";
 $owb[3][2]="DS2417";               // HA7Net built in device
 $owb[3][3]="HA7Net intern";


/*******************************************************
* Check Communication with Ha7Net
********************************************************/
 $connection = fsockopen($HA7NetAdr ,80, $errnr, $errstr, $socktimeout);
 //Script terminates with error message if
   if(!$connection){
   echo "Communication problems with HA7Net!";
   exit;
   }   else fclose($connection);

/*****************************************************
* Search 1-Wire devices
*****************************************************/
 SetValueInteger("owb_stat",0);  //reset OWB-communication status
 $owb_nr=0;
 foreach ($owb as $owb_dev)
 { //foreach1
 $owb_nr++;

 $connection = fsockopen($HA7NetAdr ,80, $errnr, $errstr, $socktimeout);
 //Script terminates with error message if
  if($connection){  // if1
    fputs($connection,
    "GET /1Wire/AddressDevice.html?Address=".
   $owb_dev[1]." HTTP/1.0\r\n\r\n");
      $i=0;
    while(!feof($connection)){ //while1
        $phrase = fgets($connection,128);
        $phrpos = strpos($phrase,"Address_",0);
        if ($phrpos>0){ //if2
        $i++;
        $RetData[$i]=substr($phrase,$phrpos+43,16);
        //echo $i." ".$RetData[$i]."\r\n";
        }      // end if2
     }        // end while1
     if ($RetData[1]== $owb_dev[1]) {
      echo "1-Wire Device ". $owb_dev[3]. "(". $owb_dev[2]. ") present\r\n";
      $OwbStat=GetValueInteger("owb_stat");
      $OwbStat |= 0x1<<($owb_nr-1);
      SetValueInteger("owb_stat",$OwbStat);
      }   else {
      $OwbStat=GetValueInteger("owb_stat");
      $OwbStat &= 0xFFFFFFFE<<($owb_nr-1);
      SetValueInteger("owb_stat",$OwbStat);
      }
   fclose($connection);
  }          // end if1
 }        // end foreach1

/*****************************************************
* Example: Communicate with 18B20
*          Temperature Sensor
*****************************************************/
 $owb_nr=1;                //select DS18B20
//------------- configure device ---------------------
 $owb_data="4E00003F";    //switch to 10bit resolution
 $connection = fsockopen($HA7NetAdr ,80, $errnr, $errstr, $socktimeout);
 //Script terminates with error message if
  if($connection){  // if1
    fputs($connection,
    "GET /1Wire/WriteBlock.html?Address=".
   $owb[$owb_nr][1]."&Data=".$owb_data." HTTP/1.0\r\n\r\n");
      $i=0;
    while(!feof($connection)){ //while1
        $phrase = fgets($connection,128);
        $phrpos = strpos($phrase,"ResultData_",0);
        if ($phrpos>0){ //if2
        $i++;
        $RetData[$i]=substr($phrase,$phrpos+46,8);
        echo $i." ".$RetData[$i]."\r\n";
        }      // end if2
     }        // end while1
     fclose($connection);
    }         // end if1
//------------- configure device ---------------------
 $owb_data="44";    //start conversion
 $connection = fsockopen($HA7NetAdr ,80, $errnr, $errstr, $socktimeout);
 //Script terminates with error message if
  if($connection){  // if1
    fputs($connection,
    "GET /1Wire/WriteBlock.html?Address=".
   $owb[$owb_nr][1]."&Data=".$owb_data." HTTP/1.0\r\n\r\n");
      $i=0;
    while(!feof($connection)){ //while1
        $phrase = fgets($connection,128);
        $phrpos = strpos($phrase,"ResultData_",0);
        if ($phrpos>0){ //if2
        $i++;
        $RetData[$i]=substr($phrase,$phrpos+46,2);
        echo $i." ".$RetData[$i]."\r\n";
        }      // end if2
     }        // end while1
     fclose($connection);
    }         // end if1
 //-------------- Get Temperature --------------------------
// $starttime=time();
// while (time()<$starttime+1) ; not necessary with 10bit resolution
 $owb_data="BEFFFF";    //start conversion
 $connection = fsockopen($HA7NetAdr ,80, $errnr, $errstr, $socktimeout);
 //Script terminates with error message if
  if($connection){  // if1
    fputs($connection,
    "GET /1Wire/WriteBlock.html?Address=".
   $owb[$owb_nr][1]."&Data=".$owb_data." HTTP/1.0\r\n\r\n");
      $i=0;
    while(!feof($connection)){ //while1
        $phrase = fgets($connection,128);
        $phrpos = strpos($phrase,"ResultData_",0);
        if ($phrpos>0){ //if2
        $i++;
        $RetData[$i]=substr($phrase,$phrpos+48,4);
        echo $i." ".$RetData[$i]."\r\n";
        }      // end if2
     }        // end while1
     fclose($connection);
    }         // end if1
    // calculate temperature in degree Celsius
      $temp=hexdec(substr($RetData[1],0,1))+hexdec(substr($RetData[1],2,2))*16;
      if ($temp>128) $temp=4096-$temp;
      $temperature = $temp + hexdec(substr($RetData[1],0,1))/16;
      echo $temperature."\r\n";
      SetValueFloat("OWB_Temp_01",round($temperature,1));

?>