Net-IO dyndns per PHP daten hohlen

<?php

/*

    Programm "avr_poll.php" wird jede Minute über "Geplante Tasks" aufgerufen:

    "c:\php\php-win.exe avr_poll.php"

    Parameter:

    Rv=2210 Ohm

    UFühler=4,98V

    Uref=3,42V

    -> Temp=(Digit-401)/2,5

*/

$path=".\\";

//$path="c:\xampp\php";

$avr_adresse="192.168.0.91";

$avr_port="23";

function make_filename() {

   global $path;

//   $fname=$path.'Heizung_'.date('m_Y').'.csv';

   $fname=$path.'TEST_NETIO'.date('m_Y').'.txt';

   if (!file_exists($fname)) {

      $hd=fopen($fname,"w");                     // Überschrift, wenn Datei neu

      fwrite($hd,"Datum / Zeit;Taußen;Tvor;Trück;Brenner\r\n");

      fclose($hd);

   }

   return($fname);                               // ".\Heizung_09_2010.csv"

}

// ---------------------- Main() ------------------------

$sock = @fsockopen($avr_adresse, $avr_port, $errno, $errstr, 15);

if ($sock===FALSE)

   exit;                                  // raus, wenn offline (nach 15 Sek.)

fwrite($sock,"initlcd\r\n");              // zu Beginn das LCD initialisieren

fread($sock,128);                         // void: response !immer! abholen!

fclose($sock);

// ------------------------------------------------------

$sock = @fsockopen($avr_adresse, $avr_port, $errno, $errstr, 15);

fwrite($sock,"IP \r\n");

//$ret1=trim(fread($sock,128));             // Aussentemperatur

$ret1=fread($sock,128);             // Aussentemperatur

usleep(1000);

/*

fwrite($sock,"getadc 2\r\n");

$ret2=trim(fread($sock,128));             // Vorlauftemperatur

usleep(1000);

fwrite($sock,"getadc 3\r\n");

$ret3=trim(fread($sock,128));             // Rücklauftemperatur

usleep(1000);

*/

fwrite($sock,"getadc 4\r\n");

$ret4=trim(fread($sock,128));             // indiktiver Magnetventil-Sensor

// ------------------------------------------------------

$datetime=date("d.m.Y H:i");

$lcd1="writelcd 1.$datetime\r\n";

//$taussen=($ret1-401)/2.50;                // lt. Excel s.o.

$taussen=($ret1);                // lt. Excel s.o.

$tvor=($ret2);

$trueck=($ret3);

if ($ret4>50) {                           // muss Schwelle überschreiten

   $brenner="1";

   $brenner_sternchen="*";

} else {

   $brenner="0";

   $brenner_sternchen=" ";

}

$lcd2="writelcd 2.".sprintf("Ta%3d Tv%2d Tr%2d%1s\r\n",round($taussen),round($tvor),round($trueck),$brenner_sternchen);

fwrite($sock,$lcd1);                      // "13.09.2010 17:46"

fread($sock,128);

fwrite($sock,$lcd2);                      // "Ta-10 Tv55 Tr35*"

fread($sock,128);

fclose($sock);                            // fertig beim AVR-Board

// ------------------------------------------------------

$temps=sprintf("%.1f;%.1f;%.1f",$taussen,$tvor,$trueck);

$temps=str_replace(".",",",$temps);       // deutsches Format: Fließzahl mit ","

$zeile=sprintf("%s;%s;%s\r\n",$datetime,$temps,$brenner);

                                          // "13.09.2010 21:13;5,7;45,3;35,0;1"

$fname=make_filename();                   // Datei ggf. neu anlegen

$hd=fopen($fname,"a");

fwrite($hd,$zeile);                       // Zeile wegschreiben

fclose($hd);

?>