<?php
/*
 *      PHP Frontend for pocsag monitor
 *
 *      Copyright (C) 2004-2005
 *          Manuel Weiser (manuelw@fire-devils.org)
 *
 *      This program is free software; you can redistribute it and/or modify
 *      it under the terms of the GNU General Public License as published by
 *      the Free Software Foundation; either version 2 of the License, or
 *      (at your option) any later version.
 *
 *      This program is distributed in the hope that it will be useful,
 *      but WITHOUT ANY WARRANTY; without even the implied warranty of
 *      MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 *      GNU General Public License for more details.
 *
 *      You should have received a copy of the GNU General Public License
 *      along with this program; if not, write to the Free Software
 *      Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 */

require('config.inc.php');

	$show_filter = ' Where a.done = "0" ';

	$result	= mysql_query("SELECT a.num, a.adresse AS adresse_neu, a.bezeichnung AS bezeichnung_neu, a.text, DATE_FORMAT(a.zeit, '%Y%m%d%H%i%s') AS zeit, a.funktion, a.REC_TYP, a.done,
					b.adresse, b.formatierung_id, b.bezeichnung,
					d.id AS org_id, d.org_name, d.org, d.alarm_count, d.last_alarm
				FROM dme a
				LEFT JOIN ric_zvei b ON b.adresse = a.adresse
				LEFT JOIN organisation d ON d.id = b.org_id
				$show_filter
				ORDER BY a.zeit DESC") or die (mysql_error());
	while($row = mysql_fetch_array($result))
	{

		if( $row["done"] == '0' )
		{
			require_once('alarmmail.inc.php');
		}

		$bezeichnung	= $row["bezeichnung"];
	
		// Eintragen der Bezeichnung wenn Bezeichnung in monrc vorhanden und update 1
		if( $update_adresse_monrc && !$bezeichnung )
		{
			// prfen ob die ric schon vorhanden ist, wenn nicht eintragen
			$result_check = mysql_query("SELECT id FROM ric_zvei WHERE adresse=".$row["adresse_neu"]);
			$row_check = mysql_fetch_array($result_check);
			
			if( !$row_check["id"] )
			{
				$result_check 	= mysql_query("INSERT INTO ric_zvei (adresse, bezeichnung, rec_typ, formatierung_id) VALUES ('$row[adresse_neu]', '$row[bezeichnung_neu]', '$row[REC_TYP]', '0')") or die(mysql_error());
				$bezeichnung	= $row["bezeichnung_neu"];
			}
		}
		
		// Wenn unbekannte Ric Wert setzen
		if( !$bezeichnung && !$row["org_name"] ) $bezeichnung = 'Unbekannt';
		if( !$row["org_name"] ) $row["org_name"] = $row["adresse_neu"];
	
	}
	
// Unwetter Check
$result	= mysql_query("SELECT u_meldung, u_text, u_farbe, DATE_FORMAT(u_lastcheck, '%Y%m%d%H%i%s') AS u_lastcheck, DATE_FORMAT(u_lastchange, '%Y%m%d%H%i%s') AS u_lastchange FROM unwetter WHERE id = '1'") or die (mysql_error());
$row = mysql_fetch_array($result);

if( ($timestampnow - $row["u_lastcheck"]) > ($uw_checktime * 100) )
{
//	if( $lines = file('http://www.dwd.de/de/WundK/Warnungen/zeige.php?ID='.$uw_landkreis.'#O') )
	if( $lines = file('http://www.dwd.de/dyn/app/ws/html/reports/'.$uw_landkreis.'_warning_de.html') )
	{
		// Durchgehen des Arrays und Anzeigen des HTML Source inkl. Zeilennummern
		if( is_array($lines) )
		{
			foreach( $lines as $line_num => $line ) 
			{
				if( $line_num == 34 && htmlspecialchars(substr($line, 75, 6)) )
				{
					$unwetter_aktiv = 1;

					if(  htmlspecialchars(substr($line, 75, 6)) == "D90202" ) { $unwetter_status = "Warnung vor extremem Unwetter";	$unwetter_farbe = "#D90202"; }
					if(  htmlspecialchars(substr($line, 75, 6)) == "FF0000" ) { $unwetter_status = "Unwetterwarnung";				$unwetter_farbe = "#FF6B39"; }
					if(  htmlspecialchars(substr($line, 75, 6)) == "FFB599" ) { $unwetter_status = "Vorwarnung zur Unwetterwarnung";$unwetter_farbe = "#FFB599"; }
					if(  htmlspecialchars(substr($line, 75, 6)) == "FA9600" ) { $unwetter_status = "Warnung vor markantem Wetter";	$unwetter_farbe = "#FFD553"; }
					if(  htmlspecialchars(substr($line, 75, 6)) == "FFFF00" ) { $unwetter_status = "Wetterwarnung";					$unwetter_farbe = "#F0F805"; }
					if(  htmlspecialchars(substr($line, 75, 6)) == "6F6FFF" ) { $unwetter_status = "Seewetterwarnung";				$unwetter_farbe = "#6F6FFF"; }
				}
				
				if( $unwetter_aktiv == 1 && $line_num > 36 && $line_num < 56 )
				{
					$unwetter_meldung .= $line;
				}
				
				// Zum Prüfen der Ausgabe deaktivieren
				//echo "Line #<b>{$line_num}</b> : " . htmlspecialchars($line) . "<br>\n";
			}
			
			// Text von HTML Tags reinigen
			$unwetter_meldung = htmlCode_message($unwetter_meldung);
			//$unwetter_meldung = clean_htmlCode($unwetter_meldung);
				//$unwetter_meldung = stripslashes($unwetter_meldung);
				//$unwetter_meldung = strip_tags($unwetter_meldung, '<br>');
				//echo '<br>--------------<br>msg: '.$unwetter_meldung;
		}
	}
	
	else
	{
		$unwetter_status 	 = 'keine Verbindung !!!';
		$unwetter_farbe		 = '#FFFFFF';
		$unwetter_meldung = 'Verbindung zu dwd.de nicht möglich !';
	}
	
	// Wenn noch kein Eintrag in DB existiert
	if( empty($row["u_lastcheck"]) )
	{
		mysql_query("INSERT INTO unwetter (id, u_meldung, u_text, u_farbe, u_lastchange) VALUES ('1', '$unwetter_status', '$unwetter_meldung', '$unwetter_farbe', '$timestampnow')") or die(mysql_error());
	}
	
	// Wenn bereits Eintrag vorhanden und Checktime erreicht
	if( $unwetter_meldung == $row["u_text"] ) 
	{ 
		mysql_query("UPDATE unwetter SET u_lastcheck='$timestampnow' WHERE id = '1'") or die(mysql_error()); 
	}
	else 
	{ 
		mysql_query("UPDATE unwetter SET u_meldung='$unwetter_status', u_text='$unwetter_meldung', u_farbe='$unwetter_farbe', u_lastcheck='$timestampnow', u_lastchange='$timestampnow' WHERE id = '1'") or die(mysql_error()); 
	}
}

mysql_close($dbconn);
?>