xXx

Hexid M1n1 5h3ll MobiLe

C:/Abyss Web Server/htdocs/Cumulus/_[ Writable ]

File:C:/Abyss Web Server/htdocs/Cumulus/get-meteoalarm-warning-inc.php

<?php
//Get regional alarm/warning from http://www.meteoalarm.eu/
// Script by Ken True - saratoga-weather.org
// Version 1.00 - 13-Sep-2008 - Initial Release
// Version 1.01 - 20-Sep-2008 - removed TZ setting (not used), added $EUAtarget option for links
// Version 1.02 - 06-Oct-2008 - some XHTML 1.0-Strict changes for <br />
// Version 2.00 - 22-Apr-2010 - major changes to support major meteoalarm.eu website changes
// Version 2.01 - 23-Apr-2010 - changes for revised TOS of meteoalarm.eu website
// Version 2.02 - 26-Jan-2011 - added support for global $cacheFileDir for new templates
//
// error_reporting(E_ALL); // uncomment for error checking
//
// this script is designed to be used by
//   include("get-meteoalarm-warning-inc.php");
//
// Find the warning area for your location by going to www.meteoalarm.eu
// Navigate to the warning area that represents your region and view the detail page for that area.
// For standalone script use,
// Copy the URL in the browser address bar into the $EUA_URL area as shown below.
//
// For Carterlake/WD/PHP template use, add to your Settings.php:
//
// $SITE['EUwarningURL'] = '<URL-to-use-on-meteoalarm.eu>';
//
// where the <URL-to-use-on-meteoalarm.eu> is replaced by the URL in the browser address bar found
// by the method above.  No other customization is needed in the script for use in the Carterlake/WD/PHP template.
// 
// -------------Settings ---------------------------------
  $Lang = 'en';  // default language to be used (lowercase, must correspond to available 
//               template languages of
//              'en','ct','de','dk','el','es','fi','fr','it','nl','no','pl','pt','se'
//
$EUA_URL = 'http://www.meteoalarm.eu/index3.php?area=DK004&day=0&lang=en_UK';
//$EUA_URL = 'http://www.meteoalarm.eu/index3.php?lang=en_UK&area=DE001&day=0';
//$EUA_URL = 'http://www.meteoalarm.eu/index3.php?area=DE012&day=0&lang=fr_FR';
//$EUA_URL = 'http://www.meteoalarm.eu/index3.php?area=IT001&day=0&lang=en_UK';
//$EUA_URL = 'http://www.meteoalarm.eu/index3.php?area=UK013&day=0&lang=fr_FR';
//$EUA_URL = 'http://www.meteoalarm.eu/index3.php?area=IE004&day=0&lang=fr_FR';
//
$cacheFileDir = './';   // default cache file directory
// create a 'meteoalarm-en.txt' file in the same directory as the script.
// you may have to set the permissions on the file to '666' so it is writable
// by the webserver.  Repeat for each language supported by your site.
//
$EUAcacheName = "meteoalarm.txt";  // prototype for path/filename for cache file
// note: $EUAcacheName will be changed to -$Lang.txt (like -en.txt) to allow languages to have unique cache files.
//
$EUArefetchSeconds = 300;  // refresh every 5 minutes
//
$EUAtarget  = '';  // set to 'target="_blank"' for links.. note: makes output not XHTML 1.0-Strict 
//$EUAtarget = 'target="_blank"';  // to launch links in new page .. not XHTML 1.0-Strict though 
// -------------End Settings -----------------------------
//
$EUAversion = 'get-meteoalarm-warning-inc.php V2.02 - 26-Jan-2011';
// the following note is required by agreement with the authors of the website www.meteoalarm.eu
/* -----------------------------------------------------------------------------------------
Date: Thu, 11 Sep 2008 11:39:52 +0200
From: karin buchauer <karin.buchauer@zamg.ac.at>
Organization: zamg

Dear Mr True,

you are quite right:
you can use the material featured on the website, without modifying it, providing the source (link) as well as time and date of issue of the data, as stipulated in the Terms & Conditions.

With best regards,
Karin Buchauer



Ken True schrieb:
> Dear Sirs,
>
> I am an amateur weather enthusiast who also writes scripting for other weather enthusiasts to incorporate weather data into their personal, non-commercial weather websites.  Many of my scripts (which I write as a hobby, and are distributed gratis) are in use on personal weather websites worldwide.
>
> I've had requests to package the excellent data from www.meteoalarm.eu for weather advisories in EU countries, and before I generate a script for that purpose, I'd like to have your permission to proceed.
>
> Your Terms and Conditions page (http://www.meteoalarm.eu/terms.asp?lang=EN ) says:
>
> "The material featured on this site is the common property of the Meteoalarm partners, and is subject to copyright protection.
> The ownership and intellectual rights on all operational and updated awareness and warning information delivered to the Meteoalarm system remain with the Meteoalarm partners who originally delivered this information. The information on this web site may be used freely by the public.
> Before using information obtained from this server special attention should be given to the date & time of the data and products being displayed.
> In case this information is re-used: This information shall not be modified in content and the source of the information has always to be displayed as EUMETNET - MeteoAlarm, or if a single country, the providing national Institute (for internet application in all cases in the form of a link to: www.meteoalarm.eu). The time of issue at www.meteoalarm.eu must be count.
>
> Third parties producing copyrighted works consisting predominantly of the material of this website must provide notice with such work(s) identifying the source of material incorporated and stating that such material is not subject to copyright protection. Further information can be obtained from this following address: meteoalarm@zamg.ac.at"
>
> My reading of this implies that you do permit re-use/publishing of the information with attribution and an active link to the source page for the data on your site, and a note that the data is copyrighted by the data providing organization (and not subject to copyright by the 3rd-party website including/displaying the data).  Is that correct?
>
> Is it ok with you for me to generate a script for displaying national/regional weather alerts using your data from www.meteoalarm.eu with the appropriate attribution.
>
> Please feel free to examine other scripts I've written which use NOAA, Environment Canada, US Geological Services, and temis.nl as data sources (http://saratoga-weather.org/scripts.php ).
>
> Thank you in advance for your response,
>
> Best regards,
> Ken True
> webmaster@saratoga-weather.org
> Saratoga, California, USA

-- 

Karin Buchauer
Assistant to the Project Manager EMMA

Zentralanstalt für Meteorologie und Geodynamik
Regionalstelle für Salzburg und Oberösterreich
Freisaalweg 16
A - 5020 SALZBURG
Fon ++43 (0)662 626301-22
Fax ++43 (0)662 625838
karin.buchauer@zamg.ac.at       www.zamg.ac.at

 ----------------------------------------------------------------------------------------- */
//
// overrides from Settings.php if available
global $SITE;
if (isset($SITE['tz'])) {$ourTZ = $SITE['tz']; }
if (isset($SITE['lang'])) {$Lang = $SITE['lang']; }
if (isset($SITE['EUwarningURL'])) {$EUA_URL = $SITE['EUwarningURL']; }
if(isset($SITE['cacheFileDir']))     {$cacheFileDir = $SITE['cacheFileDir']; }
// end of overrides from Settings.php

if (isset($_REQUEST['sce']) && strtolower($_REQUEST['sce']) == 'view' ) {
   //--self downloader --
   $filenameReal = __FILE__;
   $download_size = filesize($filenameReal);
   header('Pragma: public');
   header('Cache-Control: private');
   header('Cache-Control: no-cache, must-revalidate');
   header("Content-type: text/plain");
   header("Accept-Ranges: bytes");
   header("Content-Length: $download_size");
   header('Connection: close');
   
   readfile($filenameReal);
   exit;
}


$EUA_languages = array( // our names for lang= to meteoalarm.eu names for lang=
// the uncommented ones are supported by the WD/AJAX/PHP World-ML template set
  'en' => 'en_UK',  // english
  'ct' => 'ca_ES',  // català
//  'xx' => 'ce_CZ',  // ceština
  'dk' => 'da_DK',  // dansk
  'de' => 'de_GE',  // deutsch
  'es' => 'es_ES',  // español
//  'xx' => 'ee_EE',  // eesti
//  'xx' => 'eu_VA',  // euskera
  'fr' => 'fr_FR',  // français
//  'xx' => 'ga_UK',  // galego
//  'xx' => 'hr_HR',  // hrvatski
//  'xx' => 'is_IS',  // íslenska
  'it' => 'it_IT',  // italiano
//  'xx' => 'li_LT',  // lietuviu
//  'xx' => 'la_LV',  // latviešu
  'hu' => 'ma_HU',  // magyar
//  'xx' => 'ma_MT',  // malti
  'nl' => 'ne_NL',  // nederlands
  'no' => 'no_NO',  // norsk
  'pl' => 'po_PL',  // polski
  'pt' => 'po_PT',  // português
  'ro' => 'ro_RO',  // româna
//  'xx' => 'cp_RS',  // russian
//  'xx' => 'sl_SI',  // slovenšcina
//  'xx' => 'sl_SK',  // slovencina
  'fi' => 'su_FI',  // suomi
  'se' => 'sv_SE',  // svenska
  'el' => 'gr_GR',  // greek
);

$EUA_lang = $EUA_languages[$Lang];

if (isset($_REQUEST['lang'])) {  // 
  $tlang = strtolower($_REQUEST['lang']);
  if (isset($EUA_languages[$tlang])) {
    $EUA_lang = $EUA_languages[$tlang];
	$Lang = $tlang;
  }
}

if (isset($_REQUEST['debug'])) {$doDebug = true; } else {$doDebug = false; }

print "<!-- lang=$Lang ($EUA_lang) used -->\n";
$EUA_URL = preg_replace('|lang=[^&]+|',"lang=$EUA_lang",$EUA_URL);
$EUAcacheName = $cacheFileDir.$EUAcacheName;
$EUAcacheName = preg_replace('|\.txt$|',"-$Lang.txt",$EUAcacheName);


$EUA_URLLink = htmlspecialchars($EUA_URL);
$requiredNoteEUA = "<a href=\"$EUA_URLLink\" $EUAtarget>Warning data</a> courtesy of and Copyright &copy; EUMETNET-METEOalarm (http://www.meteoalarm.eu/).<br />Used with permission.
<br/>Time delays between this website and the www.meteoalarm.eu website are possible, for the most up to date information about alert levels as published by the participating National Meteorological Services please use www.meteoalarm.eu";


print "<!-- $EUAversion -->\n<!-- ".strip_tags($requiredNoteEUA)." -->\n";

// You can now force the cache to update by adding ?force=1 to the end of the URL

if ( empty($_REQUEST['force']) ) 
        $_REQUEST['force']="0";

$Force = $_REQUEST['force'];

if ($Force==1) {
      $html = fetchEUAUrlWithoutHanging($EUA_URL,$EUAcacheName); 
      print "<!-- force reload from URL $EUA_URL -->\n";
      $fp = fopen($EUAcacheName, "w"); 
	  if($fp) {
        $write = fputs($fp, $html); 
        fclose($fp);
	  } else {
	    print "<!--Unable to write cache $EUAcacheName -->\n";
	  }
} 


// refresh cached copy of page if needed
// fetch/cache code by Tom at carterlake.org

if (file_exists($EUAcacheName) and filemtime($EUAcacheName) + $EUArefetchSeconds > time()) {
      $WhereLoaded = "from cache $EUAcacheName";
      $html = implode('', file($EUAcacheName));
    } else {
      $WhereLoaded = "from URL $EUA_URL";
      $html = fetchEUAUrlWithoutHanging($EUA_URL);
      $fp = fopen($EUAcacheName, "w"); 
	  if($fp) {
        $write = fputs($fp, $html); 
        fclose($fp);
	  } else {
	    print "<!--Unable to write cache $EUAcacheName -->\n";
	  }
	}
print "<!-- Meteoalarm data load from $WhereLoaded -->\n";


if(strlen($html) < 50 ) {
  print "<!-- data not available -->\n";
  return;
}

// now slice it up
// Get the table to use:
    preg_match_all('!<td[^>]*(class|width)="([^"]+)"[^>]*>(.*)</td>!Uis',$html,$betweenspan);

  if($doDebug) {
//    print "<!-- betweenspan \n" . print_r($betweenspan,true) . " -->\n";
  }
  
//  $cTypes = $betweenspan[1];  // contains 'class' or 'width'
//  $cNames = $betweenspan[2];  // contains the class="(.*)" or width="(.*)" values
  $cData  = $betweenspan[3];  // contains the <td class="..">(.*)</td> data area
  
  $EUAregionName = '';
  $EUAwarning = '';
  $EUAMetOffice = '';
  
  $moreInfo = 'More...';

  if($doDebug) {
//    print "<!-- cTypes \n" . print_r($cTypes,true) . " -->\n";
//    print "<!-- cNames \n" . print_r($cNames,true) . " -->\n";
    print "<!-- cData \n" . print_r($cData,true) . " -->\n";
  }
/* $cData now contains:
<!-- cData 
Array
(
    [0] => <h1>Weather warnings: Bremen und Niedersachsen&nbsp;<a style="right:13px; position:absolute;" href="/documents/rss/de/DE001.rss"><img src="/theme/style1/img/object_rss.png" border="0" alt="Show RSS version" title="Show RSS version"> </a></h1>
    [1] => <div class="warnbox wb2">
								<img src="http://meteoalarm.eu/intranet/images/aw12.jpg">
								<div class="info"><b>valid from</b> 21.04.2010 21:03 CET <b>Until</b> 22.04.2010 03:03 CET </div>
								<div class="info"><b>Wind&nbsp;</b><span style="position:absolute; right:0px;"> Awareness Level: <b>Yellow&nbsp;</b> </span></div>
								<div class="text">Gefahr einzelner Böen um 55 km/h (Stärke Bft 7) aus West bis Nordwest, anfangs vereinzelt auch Böen bis 70 hm/h (Stärke Bft 8) möglich.&nbsp;</div>
							</div><div class="warnbox wb2">
						<img src="http://meteoalarm.eu/intranet/images/aw62.jpg">
								<div class="info"><b>valid from</b> 21.04.2010 20:03 CET <b>Until</b> 22.04.2010 09:03 CET </div>
								<div class="info"><b>Extreme low temperature&nbsp;</b><span style="position:absolute; right:0px;"> Awareness Level: <b>Yellow&nbsp;</b> </span></div>
								<div class="text">Frost mit Tiefstwerten zwischen 0 und minus 4 Grad, in Bodennähe minus 3 bis minus 8 Grad.&nbsp;</div>
							</div>					<div class="warn-nav" 					<form method="GET" name="warn-nav" action="">
								<script>
									function WM(day){
									if(day == "") day = 0;
									document.location.href = "index3.php?area=DE001&lang=EN&day="+day;
									}
								</script>
								
								<input type="hidden" name="lang" value="EN">
								<span class="right-colum">
								<input id="day" name="day" type="hidden" value="0">
								Display:&nbsp;&nbsp;<input name="day" class="day active" type="button" value="today" onclick="WM(0)"> <input name="day" class="day " type="button" value="tomorrow" onclick="WM(1)">
								</span>
								</form>
							</div>
						
    [2] => &nbsp;&nbsp;
						
    [3] => 
										<a href="index.php?lang=EN&day=0">
											<p>Back to Europe:</p>
											<img src="map.php?iso=euro&data=0&type=0&tiny=1" border="0"> 
										</a>
									<br>
										<a href="index2.php?lang=EN&country=DE&day=0">
											<p>Back to Germany:</p>
											<img src="map.php?iso=DE&data=0&tiny=1" border="0">
										</a>
								<br>
						
					<a href="http://www.wettergefahren.de/index.htm?Land=HN00&Art=O" target="_blank">
					<p>more information:</p>
					<img src="/documents/societe/logos/DWD-Logo_7.JPG" border="0" alt="Regionalzentrale Hamburg" name="Regionalzentrale Hamburg">
					</a>
								
    [4] => 

					
)


*/

//	if (preg_match_all('|<a href="(.*)".*>\s*<p>(.*)</p>|Uis',$cData[$idx],$matches) ) {
	$temp = explode('<br>',$cData[3]);  // split out the links
	if ($doDebug) { print "<!-- moreInfo temp \n".print_r($temp,true)." -->\n"; }
	$tstr = $temp[count($temp)-1];
	if ($doDebug) { print "<!-- moreInfo tstr ='$tstr' -->\n"; }
	preg_match('|<a href="(.*)".*>\s*<p>(.*)</p>\s*<img.*alt="(.*)"|Uis',$tstr,$matches);
	if ($doDebug) { print "<!-- moreInfo matches \n".print_r($matches,true)." -->\n"; }
/*Array
(
    [0] => <a href="http://www.meteoam.it" target="_blank">
					<p>ulteriorii informazioni:</p>
					<img src="/documents/societe/logos/Servizio Meteorologicostemma_16.jpg" border="0" alt="CNMCA"
    [1] => http://www.meteoam.it
    [2] => ulteriorii informazioni:
    [3] => CNMCA
)
*/	if(isset($matches[0]) and count($matches[0]) > 0) {
		$moreInfo = '<a href="' . trim($matches[1]) . '">' . trim($matches[2]).'</a>';
		$EUAMetOffice = '<a href="' . trim($matches[1]) . '">' . trim($matches[3]).'</a>';
		$EUAMetOffice = preg_replace('|Go to |i','',$EUAMetOffice);
		if ($doDebug) { print "<!-- moreInfo ='$moreInfo' -->\n"; }
	}
 	
  
  $EUAregionName = 'METEOalarm.eu '. preg_replace('|&nbsp;|',"",strip_tags($cData[0]));
  $EUAregionName = preg_replace('|&amp;amp;|is','&amp;',$EUAregionName);
  $EUAwarning = '<table width="99%">'."\n";
  preg_match_all('|<div class="warnbox wb.">(.*)\t</div>|Uis',$cData[1],$warnboxes);
  if ($doDebug) { print "<!-- warnboxes\n".print_r($warnboxes,true)." -->\n"; }
  for ($idx = 0;$idx < count($warnboxes[1]);$idx++) {  // loop over the warning box notices
     $rawWarning = trim($warnboxes[1][$idx]);
	 if ($doDebug) { print "<!-- rawWarning ='$rawWarning' -->\n"; }
	 $EUAwarning .= "<tr>\n";
	 preg_match('|<img src="(.*)"|',$rawWarning,$matches);
	 $warnImg = $matches[1];
	 if ($doDebug) { print "<!-- warnImg ='$warnImg' -->\n"; }
	 preg_match_all('|<div class="([^"]+)".*>(.*)</div>|Uis',$rawWarning,$matches);
     if($doDebug) { print "<!-- detail matches \n".print_r($matches,true)." -->\n"; }
	 $warnTxt = '';
	 foreach ($matches[2] as $i => $txt) {
		 $t = strip_tags($txt,'<b>');
		 if (strlen($t)>0) {$warnTxt .= $t . "<br/>\n";}
	 }
	 if ($doDebug) { print "<!-- warnTxt ='$warnTxt' -->\n"; }
	 $EUAwarning .= "    <td width=\"250\"><img src=\"$warnImg\" alt=\" \" width=\"250\" height=\"167\"/></td>\n";
	 $EUAwarning .= "    <td align=\"left\">$warnTxt</td>\n";
	 $EUAwarning .= "  </tr>\n";
	 
  }
  $EUAwarning .= "</table>\n";

print "<h1>$EUAregionName</h1>\n";
print "$EUAwarning";
if ($EUAMetOffice <> "") {
  print "<p>$moreInfo Data provided by $EUAMetOffice.</p>\n";
}
print "<p>$requiredNoteEUA</p>\n";

return; 

// ----------------------------functions ----------------------------------- 
 
 function fetchEUAUrlWithoutHanging($url) // thanks to Tom at Carterlake.org for this script fragment
   {
   // Set maximum number of seconds (can have floating-point) to wait for feed before displaying page without feed
   $numberOfSeconds=4;   

   // Suppress error reporting so Web site visitors are unaware if the feed fails
   error_reporting(0);

   // Extract resource path and domain from URL ready for fsockopen

   $url = str_replace("http://","",$url);
   $urlComponents = explode("/",$url);
   $domain = $urlComponents[0];
   $resourcePath = str_replace($domain,"",$url);

   // Establish a connection
   $socketConnection = fsockopen($domain, 80, $errno, $errstr, $numberOfSeconds);

   if (!$socketConnection)
       {
       // You may wish to remove the following debugging line on a live Web site
        print("<!-- Network error: $errstr ($errno) -->\n");
       }    // end if
   else    {
       $xml = '';
       fputs($socketConnection, "GET $resourcePath HTTP/1.1\r\nHost: $domain\r\nConnection: Close\r\n\r\n");
   
       // Loop until end of file
       while (!feof($socketConnection))
           {
           $xml .= fgets($socketConnection, 4096);
           }    // end while

       fclose ($socketConnection);

       }    // end else
	  

   return($xml);

   }    // end function
   
// ----------------------------------------------------------
      
?>

Your Access Expired	Date. in : 02-11-2025
Regist : 09-12-2024	Expired : 01-12-2027