<?
/*	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
 */


exec("ssh achenseenord webcam_wetter",$fetcharray);
$txtfile= fopen("/tmp/wetter-achensee-log.txt", "a");
$windfile="/tmp/wind-achensee.txt";
$windfilezwei="/tmp/wind-achenseenord.txt";
$stormfile="/tmp/storm-achensee.txt";
$stormfilezwei="/tmp/storm-achenseenord.txt";
$bannerchange="/tmp/bannerchange-achensee.txt";
$wetterfile="/var/www/addicted/fileadmin/webcam/achensee/wetter/cam.txt";
$wetterPath="/var/www/addicted/fileadmin/webcam/achensee/wetter/";
$wetterPathNord="/var/www/addicted/fileadmin/webcam/achenseenord/wetter/";
$id="358";


if (@filemtime($windfile) < (time()-600) ){
	if (file_exists($windfile)){
		exec("rm $windfile");
	}
}
if (@filemtime($windfilezwei) < (time()-600) ){
	if (file_exists($windfilezwei)){
		exec("rm $windfilezwei");
	}
}

if (@filemtime($stormfile) < (time()-600) ){
        if (file_exists($stormfile)){
                exec("rm $stormfile");
        }
}
if (@filemtime($stormfilezwei) < (time()-600) ){
        if (file_exists($stormfilezwei)){
                exec("rm $stormfilezwei");
        }
}

if (file_exists($bannerchange)){
	exec("rm $bannerchange");
}
foreach ($fetcharray as $value)
{
	list($parameter,$parvalue)=explode(" ", $value);
	$values["$parameter"]=$parvalue;
}
	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 ($values['WSmin']>150) $error= "WSmin too high";

 	if (!$error == null) {
        // $txtfile= fopen($txtfile, "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);
	
	$time=time();
	if (($values["WSmin"]*0.539956803>12 or $values["WSmax"]*0.539956803>18) and $ret==false){
		exec("touch $windfile");
		exec("touch $windfilezwei");
	}
	if (($values["WSmin"]*0.539956803>25 or $values["WSmax"]*0.539956803>35) and $ret==false){
                exec("touch $stormfile");
                exec("touch $stormfilezwei");
        }

	if ($values["WSmin"]*0.539956803<3){
		exec("touch $bannerchange");
	}
	
	$values['DIR0']=$values['DIR0']-40;
    if ($values['DIR0']<0)$values['DIR0']=$values['DIR0']+360;

    //Luftdruck auf Standort anpassen
	$values['RP']=$values['RP']+118;
	
	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 ($id,'$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";
		
		$wettertxtfile= fopen($wetterfile, "w");
		$txtfileTest= fopen("/var/www/addicted/fileadmin/webcam/test/wetter/cam.txt", "w");
		
		$tempFile=fopen($wetterPath."temp.txt", "w");
		$windMessungFile=fopen($wetterPath."wind.txt", "w");
		$tempFileNord=fopen($wetterPathNord."temp.txt", "w");
		$windMessungFileNord=fopen($wetterPathNord."wind.txt", "w");
		

	if ($wettertxtfile) {
  		$txt= "";
  		fwrite($tempFile,$values["To"]);
  		fwrite($windMessungFile,round($values["WSmin"]*0.539956803,2)."-".round($values["WSmax"]*0.539956803,2));
  		fwrite($tempFileNord,$values["To"]);
  		fwrite($windMessungFileNord,round($values["WSmin"]*0.539956803,2)."-".round($values["WSmax"]*0.539956803,2));
  		fclose($tempFileNord);
		fclose($windMessungFileNord);
  		fclose($tempFile);
		fclose($windMessungFile);
  		//$rp = substr($values["RP"],0,-4);
  		fwrite($wettertxtfile,$w_text." Wind:".round($values["WSmin"]*0.539956803,2)."kts Böe:".round($values["WSmax"]*0.539956803,2)."kts ".$values["To"]."Â°C");
		fclose($wettertxtfile);
		
  		$wettertxtfile= fopen("/var/www/addicted/fileadmin/webcam/achenseenord/wetter/cam.txt", "w");
  		fwrite($wettertxtfile, $w_text." Wind:".round($values["WSmin"]*0.539956803,2)."kts Böe:".round($values["WSmax"]*0.539956803,2)."kts ".$values["To"]."Â°C");
  		fwrite($txtfileTest, $w_text." Wind:".round($values["WSmin"]*0.539956803,2)."kts Böe:".round($values["WSmax"]*0.539956803,2)."kts ".$values["To"]."Â°C");
		fclose($wettertxtfile);
		fclose($txtfileTest);
	}
	    //$txtfile= fopen($txtfile, "a");
		fwrite($txtfile, date("d.m.y H:i:s")." OK!.\n");
	    fclose($txtfile);
	
	
?>