<?
/*	weatherstation.php  - part of the open2300 package
 *
 *	Version 1.3
 *
 *	Control WS2300 weather station
 *
 *	Copyright 2003,2004, Kenneth Lavrsen
 *	This program is published under the GNU Public license
 */


$wx=  file("http://www.foto-webcam.com/webcam/hoefen/wetter/hoefenwx.txt");

$values= array();
$i=0;
while ($i < count($wx)) {
    $rr= array();
    if (preg_match("/([a-z0-9]+) (.*)/i", $wx[$i], $rr)) {
      $values[$rr[1]]= $rr[2];
		
    }
    $i++;
  }

$txtfile= fopen("/tmp/wetter-walchi-log.txt", "a");
$windfile="/tmp/wind-walchi.txt";


	if (!$values){
		fwrite($txtfile, date("d.m.y H:i:s")." No valid wx data.\n");
	    fclose($txtfile);
        exit;
	}
	//ist es nacht oder tag
	$zenith= 98;
  	$lat= 47.5;
  	$long= 11.5;
  	$ret=  false;
	$ss= date_sunset(time(),  SUNFUNCS_RET_TIMESTAMP, $lat, $long, $zenith);
  	if (time() > $ss) $ret= true;
  	$sr= date_sunrise(time(), SUNFUNCS_RET_TIMESTAMP, $lat, $long, $zenith);
  	if (time() < $sr) $ret= true;
  	
 	$error= null;
 	if ($values['To']>50) $error= "To too high";
  	if ($values['To']>$values['Tomax']) $error= "To > Tomax";
  	if ($values['To']<$values['Tomin']) $error= "To < Tomin";;
  	if ($values['RP']>1200) $error= "Rp too high";
  	if ($values['RP']<800)  $error= "Rp too low";
  	if ($values['RHo']>105) $error= "RHo too high";

 	if (!$error == null) {
        $txtfile= fopen("/tmp/wetter-walchi-log.txt", "a");
		fwrite($txtfile, date("m.d.y H:i:s")." No valid wx data.\n $error");
	    fclose($txtfile);
        exit;
  	}
	$dbhost = 'localhost';
	$dbuser = 'addictedmysql';
	$dppass = 'WAvQ4hpAS5m73vQ6';
	$conn = mysql_connect($dbhost, $dbuser,$dppass) or die ('Error connecting to mysql');
	$dbname = 'addicted';
	mysql_select_db($dbname);
	
	$stunde = explode(":",$values['Time']);
	$datum1 = explode("-",$values['Date']);
	$d1 = array("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec");
    $d2 = array("01", "02", "03", "04", "05", "06", "07", "08", "09", "10", "11", "12");
    
    $datum1[1]=str_replace($d1,$d2,$datum1[1]);
    
	$time = mktime($stunde[0],$stunde[1],$stunde[2],$datum1[1],$datum1[2],$datum1[0]);
	
	$schonda=mysql_query("SELECT * FROM `tx_webcam_wetter` where crdate=".$time." and pid=219");
	if (!$schonda) {
    	echo(date("d.m.y H:i:s").' Ungќltige Select Abfrage: '.mysql_error()."\n");
    	mysql_close($conn);
    	exit;
	}
	$row = mysql_fetch_assoc($schonda);
	if ($row['uid'] > 0){
		echo(date("d.m.y H:i:s").' Eintrag schon vorhanden '.$row['uid']."\n");
		mysql_close($conn);
		exit;
	}
	
	/*if (($values["WSmin"]*0.539956803>12 or $values["WSmax"]*0.539956803>18) and $ret==false){
		exec("touch $windfile");
	}*/
	
	$values['DIR0']=$values['DIR0']-86;
    if ($values['DIR0']<0)$values['DIR0']=$values['DIR0']+360;

    //Luftdruck auf Standort anpassen
	//$values['RP']=$values['RP']+67;
	
	mysql_query("INSERT INTO tx_webcam_wetter(pid,tstamp,crdate,cruser_id,tempin,tempout,dp,rhi,rho,ws,wc,r1h,r24h,rtot,rp,dir0,minws,maxws,forecast) VALUES ('219','".time()."','$time','2','$values[Ti]','$values[To]','$values[DP]','$values[RHi]','$values[RHo]','$values[WS]','$values[WC]','$values[R1h]','$values[R24h]','$values[Rtot]','$values[RP]','$values[DIR0]','$values[WSmin]','$values[WSmax]','$values[Forecast]')");
	mysql_close($conn);
		
		$richtung=$values['DIR0'];
		
		if (($richtung <  22.5) or($richtung >= 337.5)) $w_text = "N";
		if (($richtung <  67.5) and($richtung >= 22.5)) $w_text = "NO";
		if (($richtung < 125.5) and($richtung >= 67.5)) $w_text = "O";
		if (($richtung < 157.5) and($richtung >= 125.5)) $w_text = "SO";
		if (($richtung < 202.5) and($richtung >= 157.5)) $w_text = "S";
		if (($richtung < 247.5) and($richtung >= 202.5)) $w_text = "SW";
		if (($richtung < 292.5) and($richtung >= 247.5)) $w_text = "W";
		if (($richtung < 337.5) and($richtung >= 292.5)) $w_text = "NW";
		
		$txtfileWalchensee= fopen("/var/www/addicted/fileadmin/webcam/Walchensee/wetter/cam.txt", "w");
		$txtfileSachenbach= fopen("/var/www/addicted/fileadmin/webcam/Sachenbach/wetter/cam.txt", "w");
	if ($txtfileSachenbach) {
  		$txt= "";
  		//$rp = substr($values["RP"],0,-4);
  		fwrite($txtfileSachenbach,"Wind:".round($values["WSmin"]*0.539956803,2)."kts Bіe:".round($values["WSmax"]*0.539956803,2)."kts ".$values["To"]."ТА");
		fclose($txtfileSachenbach);
	}
	if ($txtfileWalchensee) {
  		$txt= "";
  		//$rp = substr($values["RP"],0,-4);
  		fwrite($txtfileWalchensee,$values["To"]."ТА");
		fclose($txtfileWalchensee);
	}
	    $txtfile= fopen("/tmp/wetter-walchi-log.txt", "a");
		fwrite($txtfile, date("d.m.y H:i:s")." OK!.\n");
	    fclose($txtfile);
	
	
?>