<?php
# --- if we load sensor data from luftdaten.info
$apiLuftID      = '13445';               # the ID we got from Rajko Zschiegner bijvoorbeeld 8993
$userSensor     = '697945';            # our sensor as we registered by luftdaten bijvoorbeeld 1329006
#
# -------- if we load our own sensor to our site
$useOwn['SDS_P1']       ='P1';
$useOwn['SDS_P2']       ='P2';
$useOwn['temperature']  ='temp';
$useOwn['humidity']     ='humi';
#
$useOwnFile     = false;
#$useOwnFile     = true;
#
$useOwnDir      = './data/ ';   
$useOwnData     = $useOwnDir.'last_luft_data.json';
#
$useOwn24hours  = true;
#
#------------------------  how to calculate AQHI
$aqhi_type      = 'BE';                 # base calculations on (US) = airnow.gov or on country standards (BE) (NL)
#-----------------------------------------------
# CREDIT - DO NOT REMOVE WITHOUT PERMISSION
# Author:       : Wim van der Kuil
# Documentation 
#   and support : https://leuven-template.eu/
#
# https://www.airnow.gov/index.cfm?action=airnow.calculator
# http://luftdaten.info/faq/#toggle-id-8
# http://api.luftdaten.info/v1/sensor/nnnn/
#-----------------------------------------------
#  display source of script if requested so
#-----------------------------------------------
if (isset($_REQUEST['sce']) && strtolower($_REQUEST['sce']) == 'view' ) 
     {  $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;}
#-----------------------------------------------
#              check if needed functions are set
#
load_missing();
#-----------------------------------------------
$pageName	= 'ws_luftdaten.php'; 
$pageVersion	= '0.04 2018-02-16'; 
$pageUpdated	= 'RC3 version + temp-hum display'; 
#--------------------------------------- History
# 0.03 2018-02-13 RC2 version + own data + 24h data + legends + up cache
# 0.04 2018-02-13 RC3 version + temp-hum display own data
# ---------------------------------- Houskeeping
$pageLoaded 	= basename(__FILE__); 
$string         = $pageVersion.' | '.$pageUpdated;
if ( $pageName <>  $pageLoaded)  {  $string .= ' => check script name: '.$pageName; } 
$SITE['wsModules'][$pageLoaded]	= $string;
ws_message ('<!-- loaded script: '.$pageLoaded.' '.$string.' -->');
# ------------------------------------- SETTINGS
$cacheDir       = './cache/';           # replaced with $SITE["cacheDir"]
$cacheTime      = 200;                  ##### seconds when using luftdaten.info
$cacheTimeExtra = 10;                   # when no data retrieved, use 10 times older cache (2000 seconds => 3 hours)
#
$language       = 'en';                 # replaced with $SITE["lang"]
$timezone       = 'Europe/Brussels';    # replaced with $SITE["tz"] 
#$timezone       = 'America/New_York';
$local_date_ft  = 'd-m-Y H:i';          # replaced with $SITE["timeFormat"]
$local_time_ft  = 'H:i';                # replaced with $SITE["timeOnlyFormat"]
#
$debugOn        = true;
#$debugOn        = false;
#
$yourCharset    = 'UTF-8';
$local_title    = 'aq_local_title';
$luftdt_html    = true;                 # enclosing html generated also
#
$fullAQpage = '?p=mnu_aqhi_luft'; # link to full page for the small output (component) # '?p=test';  
#$fullAQpage     = false;                # we do not need a link to the full page
#
$arr_all        = array('P1','P2');     # all sensors used
$arr_show_large = array('P1','P2');     # for the large html (full page)
$arr_show_small = array('P1','P2');     # for the small html
#
$is_current     = 'P2';                 # for the single number on a startpage / header a.s.o.
$current_style  = 'font-size: 16pt; -webkit-border-radius: 5px; border-radius: 5px;';
#
#-----------------------------------------------
#               END OF USER SETTINGS
# ----------------------------------   TESTFILES
#
$useTestFile    = $useOwnDir.'/last_luft_data.json';
$useTestFile    = false;
#-----------------------------------------------
$ws_curl_follow = 1;   
# ---------------------------- check environment 
if (isset ($SITE["region"]) )           { $luftdt_html = false;}
#
if (isset ($SITE['cacheDir']) )         { $cacheDir =  $SITE['cacheDir'];}
elseif (isset ($SITE['cacheFileDir']) ) { $cacheDir =  $SITE['cacheFileDir'];}
#
if (!isset ($lang) )                      
     {  if (isset ($SITE['lang']) )     { $lang =  $SITE['lang'];}
        else                            { $lang =  $language;}}
if (isset($_REQUEST['lang']) )          { $lang =  $_REQUEST['lang'];}
#
if (!isset ($SITE["tz"])) 
     {  if (!function_exists('date_default_timezone_set')) 
             {  putenv("TZ=" . $timezone);} 
        else {  date_default_timezone_set($timezone);} }
#
if (isset ($SITE["timeFormat"]) )       { $local_date_ft  =  $SITE["timeFormat"];}
#-----------------------------------------------
#   check legends / threshold values
#-----------------------------------------------

if (!isset ($aqhi_type)) {$aqhi_type = 'US';}
#
ws_load_aq_langs ();  #  echo langtransstr($local_title); exit;
aqhi_load_arrays_luftdt() ;
#
if (isset($_REQUEST['debug']) )         { $wsDebug  = true;}
else                                    { $wsDebug  = $debugOn;}
#
# ------------------------------- set file names
$cacheFile      = $cacheDir.basename(__FILE__,'.php').'_'.$apiLuftID;
$cacheFake      = $cacheDir.basename(__FILE__,'.php').'_xxxx';
$cacheTimeSaved = $cacheTime;
$ws_msg_string  = false;
#
$luftdtURL      = 'http://data.sensor.community/airrohr/v1/sensor/'.$apiLuftID.'/';
$fakeURL        = 'http://data.sensor.community/airrohr/v1/sensor/xxxx/';
ws_message (ws_debug_times('module '.basename(__FILE__).' ('.__LINE__.'):'),true); 
#
# ----------------------- do we skip cached data
if (isset($_REQUEST['force']) && $_REQUEST['force'] == 'luftdt') 
     {  ws_message('<!-- module '.basename(__FILE__).'('.__LINE__.'): '.$cacheFake.' not used, force was set -->',true );
        $cacheTime      = -1;
        unset ($_REQUEST['force']); } 
#
# ---------------  do we have to use cached data 
if (isset($_REQUEST['cache']) && $_REQUEST['cache'] == 'luftdt')  
     {  ws_message('<!-- module '.basename(__FILE__).'('.__LINE__.'): '.$cacheFake.' will be used whatever the age is -->',true );
        $cacheTime      = 9999999999;
        unset ($_REQUEST['cache']); } 
#
if ($useTestFile <> false || $useOwnFile <> false) 
     {  ws_message('<!-- module '.basename(__FILE__).'('.__LINE__.'): '.$cacheFake.' not used, data is loaded from our own disk -->',true );
        $cacheTime      = -1;}
# ------------------ check available cached data  
$aq_warn_color  = 'black'; 
$cache_used     = false; 
if ($cacheTime > 0) 
     {  $cache_used = ws_load_cache($cacheFile, $cacheTime,$cacheFake);
        if ($cache_used <> false) { $aq_warn_color  = $cache_used['wanrcolor'];}}
ws_message (ws_debug_times('module '.basename(__FILE__).' ('.__LINE__.'):'),true); 
#
# ------------------ do we need to load new data 
$new_data       = false;  
$correct_data   = true;

#
if ($cache_used == false)
     {  $dataLoaded     = 'luftdaten';
        if ($useTestFile === false && !$useOwnFile === false) 
             {  $dataLoaded     = 'own';
                $useTestFile    = $useOwnData;}
        $new_data = ws_makeRequest($luftdtURL, $useTestFile, $fakeURL);
        if ($new_data == false)
             {  ws_message('<!-- module '.basename(__FILE__).'('.__LINE__.'): No data retrieved '.$fakeURL.'. Will try cache with '.$cacheTimeExtra.' times allowed age -->',true );
                $cacheTime      = $cacheTimeSaved * $cacheTimeExtra;
                $cache_used     = ws_load_cache($cacheFile, $cacheTime,$cacheFake);
                if ($cache_used == false)
                     {  ws_message('<!-- module '.basename(__FILE__).'('.__LINE__.'): No data retrieved from cache, even with allowed age of '.$cacheTime.' seconds -->',true );
                        $aq_fullpage_html = $aq_condensed_html = '';
                        $current_AQ     = '?';
                        return false;}
                $aq_warn_color  = 'red';
                $cache_used['wanrcolor']= $aq_warn_color;}
        ws_message (ws_debug_times('module '.basename(__FILE__).' ('.__LINE__.'):'),true); }
if ($new_data <> false)
     { $json            = ws_json_check($new_data);                        
#echo '<pre>'.print_r($json,true); 
        $aq             = array();
        if ($dataLoaded == 'own')
# we use 1 sensor value as uploaded to our server
             {  $arr    = $json['sensordatavalues'];
                foreach ($arr as $mes)
                     {  $type   = $mes['value_type'];
                        if (isset ($useOwn[$type]) )
                             {  $sensor = $useOwn[$type];
                                $aq[$sensor]['mes'] = $mes['value'];}
                        else {  continue;}} #  echo '<pre>'.print_r($aq,true); exit;
                $userSensor     = $json['esp8266id'];       
                $aq['location'] = 'sensor '.$userSensor;
                $aq['timestamp']= filemtime($useOwnData);
                $difference     = time() - $aq['timestamp'];
                if     ($difference > 5 * 60) 
                     {  $aq_warn_color  = 'red';} 
                elseif ($difference > 3 * 60)
                     {  $aq_warn_color  = 'orange';}}  
# or we use either luftdaten data url or testfile
        else {  $use_mes        = count($json) - 1;
                if ($use_mes == 0) {$aq_warn_color  = 'orange';}
                $data           = $json[$use_mes]['sensordatavalues'];          #echo '<pre>'.print_r($data,true); exit;
                foreach ($data as $arr)
                     {  $mes            = $arr['value'];
                        $key            = $arr['value_type'];
                        $aq[$key]['mes']= $mes;}                #echo '<pre>'.print_r($aq,true); exit;
                $loc            = $json[$use_mes]['location'];
                $aq['location'] = $loc['country'].'-'.$loc['id'].'-'.$loc['latitude'].'-'.$loc['longitude'];
                $aq['timestamp']= strtotime($json[$use_mes]['timestamp'].' UTC'); }  
        $aq['wanrcolor']= $aq_warn_color;    #echo '<pre>halt'.print_r($aq,true); exit;          
# calculate AQHI for the measurments                                        
        foreach ($aq as $key => $arr)
             {  if (!in_array ($key,$arr_all) ) {continue;}
                $arr2   = calc_aq($arr['mes'],$key);   # echo '<pre>'.__LINE__.print_r($arr2,true).'</pre>'; # exit;
                $arr['aqnr']    = $arr2[0];    
                $arr['nr']      = $arr2[1];
                $aq[$key] = $arr;  }            # echo '<pre>'.print_r($aq,true); exit;
        #
        if ($useOwn24hours == true && $useOwnFile <> false) 
             {  $today  = date('Ymd');
                $unix   = time() - 24*3600;  
                $Yday   = date('Ymd',$unix); #echo $Yday; exit;
                $oldest = date('c',$unix);
                $dataYd = $useOwnDir.'/data-esp8266-'.$userSensor.'-'.$Yday.'.csv';
                $fakeURL= $useOwnDir.'/data-mysensor-'.$Yday.'.csv';
                $fileYd = ws_makeRequest($dataYd, true, $fakeURL);
                if ($fileYd == false) {$fileYd   = '';}
                $dataTd = $useOwnDir.'/data-esp8266-'.$userSensor.'-'.$today.'.csv';
                $fakeURL= $useOwnDir.'/data-mysensor-'.$today.'.csv';
                $fileTd = ws_makeRequest($dataTd, true, $fakeURL);
                if ($fileTd == false) {$fileTd   = '';}
                $lines  = (explode ("\n",$fileYd.$fileTd) );
                if (!is_array($lines) ) {$lines = array();}
                $count  = count($lines);
                $locations      = array();
                $values         = array();
                $nr_mes         = 0;
                if ($count > 0) 
                     {  $arr    = explode (';',$lines[0]); } #echo '<pre>'.print_r($arr,true); exit;
                else {  $arr    = array('n/a'); }
                if ($arr[0] == 'time') 
                     {  for ($n = 0; $n < count($arr); $n++)    # check every name if we need it
                             {  $string = $arr[$n];
                                foreach ($useOwn as $key => $sensor)     
                                     {  if ($key == $string)            # is a needed sensor
                                             {  $locations[$sensor]     = $n;
                                                $values[$sensor]        = 0.0;
                                                }
                                        } // eo search sensor
                                } // eo for every name
                        for ($n = 1; $n < $count; $n++)
                             {  $arr    = explode (';',$lines[$n]);  
                                if ($arr[0] == 'time') {continue;}
                                if ($arr[0] < $oldest) {continue;} #echo   $lines[$n]; exit; 
                                foreach ($locations as $sensor => $location )
                                     {  $value  = (float) $arr[$location];
                                        $values[$sensor] += $value;}  # echo '<pre>'.print_r($values,true); exit;
                                $nr_mes++;} // eo for loop lines
# -------------------------- calculate averages
                        $string = ' nr of mes: '.$nr_mes;
                        foreach ($values as $sensor => $value)
                             {  $avg    =  round(($value / $nr_mes),2);
                                $string .= ' - '.$sensor.' total = '.$value.' - avg = '.$avg;
                                $aq[$sensor]['24avg']   =$avg; }
                        ws_message('<!-- module '.basename(__FILE__).'('.__LINE__.'): '.$string.' -->');
                        } // eo found names
                        foreach ($aq as $key => $arr)
                             {  if (!in_array ($key,$arr_all) ) {continue;}
                                if (!isset ($arr['24avg']) )    {continue;}
                                $arr2   = calc_aq($arr['24avg'],$key);
                                $arr['aqnr24']    = $arr2[0];     #echo '<pre>'.print_r($arr2,true); exit;
                                $arr['nr24']      = $arr2[1];
                                $aq[$key] = $arr;  }              #echo '<pre>'.print_r($aq,true).'</pre>'; #exit;
                } // eo 24 hours
        ws_save_cache($cacheFile, $aq);
        ws_message (ws_debug_times('module '.basename(__FILE__).' ('.__LINE__.'):'),true); }
elseif ($cache_used == true) 
     {  $aq = $cache_used;
        ws_message('<!-- module '.basename(__FILE__).'('.__LINE__.'): '.$cacheFake.' is used -->');
        ws_message (ws_debug_times('module '.basename(__FILE__).' ('.__LINE__.'):'),true); }    
#
#echo '<pre>'.print_r($aq,true); exit;
#
$arrow_black  = '<td> <div style="border-left:10px solid transparent;
border-right:10px solid transparent;
border-top:10px solid #000;
height:0;
width:0;
margin:0 auto;"></div></td>'.PHP_EOL;
#
$aq_hide_show = '<script>
  function aqhi_luftdt_click() {
        hideshow(document.getElementById(\'aqhi_luftdt_small\'))
        hideshow(document.getElementById(\'aqhi_luftdt_large\'))
  }
  function hideshow(which){
    if (!document.getElementById)
    return
    if (which.style.display=="block")
    which.style.display="none"
    else
    which.style.display="block"
  }
</script>'.PHP_EOL;

#-------------------------------  component html
$aq_link_page   = ''; # $fullAQpage = '?p=mnu_aqhi_luft';
if (strpos( '  '.$fullAQpage, '?') >  1) 
     {  $fullAQpage .= '&lang='.$lang;}
else {  $fullAQpage .= '?lang='.$lang;}
if ($fullAQpage <> false )
     {  $aq_link_page   =  ' (<a href="'.$fullAQpage.'">'.langtransstr('aq_full_page').'</a>)';}
$strH3 = '<h3 class="blockHead" style= "margin: 0px; text-align: center;">'.langtransstr($local_title);
$strH3 .= '&nbsp;&nbsp;(<a href="javascript:aqhi_luftdt_click()">'.langtransstr('aq_more').'</a>)'.$aq_link_page.'</h3>'.PHP_EOL.$aq_hide_show;

$display_max    ='block';
$display_small  ='none';

$nr_data_coloms = 5;    // nr of values in the table

$str_max        = '<div id="aqhi_luftdt_large" style="display: '.$display_max.';  width: 96%; margin: 10px auto;">
<table class="" style = "width: 100%; border-collapse: collapse;">'.PHP_EOL;
$str_small      = '<div id="aqhi_luftdt_small" style="display: '.$display_small.';  width: 96%; margin: 10px auto;">
<table class="" style = "width: 100%; border-collapse: collapse;">'.PHP_EOL;
$str_hr         = '<tr style="height: 4px;"><td style="height: 4px;" colspan ="'.($nr_data_coloms+$nr_blocks-1 ).'"><hr /></td></tr>'.PHP_EOL;
$string = '<tr>
<th style="text-align: center;"><small>'.                langtransstr('aq_classification') .'</small></th>
<th style="text-align: center; "><small>'.               langtransstr('aq_period')         .'</small></th>
<th style="text-align: right;  width: 100px;"><small>'.  langtransstr('aq_concentration')  .'</small></th>
<th style="text-align: center; width: 40px;"><small><b>'.langtransstr('aq_aq')             .'</b></small></th>
<th style="text-align: center; width: 60px;"><small>'.   langtransstr('aq_particle')       .'</small></th>'.PHP_EOL;
$string         .= str_repeat ('<th>&nbsp;</th>',$nr_blocks-1); # echo __LINE__.' $nr_blocks = '.$nr_blocks; exit;
$string         .= '</tr>'.PHP_EOL;
$str_max        .= $string;
$str_small      .= $string;
$current_AQ     = '';
$string_24h     = '';
foreach ($arr_all as $value)
     {  $done   = false;
        $particle= langtransstr('aq_'.$value);
        $mesured= $aq[$value]['mes'].' ug/m3';
        $ahqi   = $aq[$value]['aqnr'];
        $risk   = langtransstr($short_txt.$aq[$value]['nr']);
        $period = langtransstr('aq_last');
        $string = '<tr>
<td style="text-align: center;"><small>'.                $risk          .'</small></td>
<td style="text-align: center;"><small>'.                $period        .'</small></td>
<td style="text-align: right; width: 100px;"><small>'.   $mesured       .'</small></td>
<td style="text-align: center; width: 40px;"><small><b>'.$ahqi          .'</b></small></td>
<td style="text-align: center; width: 60px;"><small>'.   $particle      .'</small></td>'.PHP_EOL;
        $nr     = $aq[$value]['nr'];
        for ($p = 1; $p <= $nr_blocks - 1; $p++) 
             {  if ($nr == $p) 
                     {  $string .= $arrow_black;} 
                else {  $string .= '<td>&nbsp;</td>'; } }
        $string .= '</tr>'.PHP_EOL;
        if ( in_array ($value, $arr_show_large) ) {  $str_max   .= $string;}
        if ( in_array ($value, $arr_show_small) ) {  $str_small .= $string;}
        if ($useOwn24hours == true && isset ($aq[$value]['24avg']) )
             {  $risk   = langtransstr($short_txt.$aq[$value]['nr24']);
                $mesured= $aq[$value]['24avg'].' ug/m3';
                $ahqi   = $ahqi   = $aq[$value]['aqnr24'];
                $period = langtransstr('aq_24hrs');
                $string_24h    .= '<tr>
<td style="text-align: center;"><small>'.                $risk          .'</small></td>
<td style="text-align: center;"><small>'.                $period        .'</small></td>
<td style="text-align: right; width: 100px;"><small>'.   $mesured       .'</small></td>
<td style="text-align: center; width: 40px;"><small><b>'.$ahqi          .'</b></small></td>
<td style="text-align: center; width: 60px;"><small>'.   $particle      .'</small></td>'.PHP_EOL;
        $nr24     = $aq[$value]['nr24'];
        for ($p = 1; $p <= $nr_blocks - 1; $p++) 
             {  if ($nr24 == $p) 
                     {  $string_24h .= $arrow_black;} 
                else {  $string_24h .= '<td>&nbsp;</td>'; } }
        $string_24h .= '</tr>'.PHP_EOL; }
        if ($value == $is_current) 
             {  $current_AQ  = '<span style="'.
                        $current_style.
                        ' color: '.$aqhi_color_luftdt[$nr]['color'].'; '.
                        'background-color: '.$aqhi_color_luftdt[$nr]['bgc'].'; ">'.$ahqi.'</span>';}
      } // eoforeach value
if ($useOwn24hours == true)
     {  $str_max   .= $str_hr.$string_24h;}
#
$str_colors = '<tr>'.str_repeat('<td>&nbsp;</td>',$nr_data_coloms);
$width_color = 1+floor(50/$nr_blocks);
for ($n = 1; $n <= $nr_blocks-1; $n++) 
     {  $str_colors .= '<td style = "width: '.$width_color.'%; text-align: center; border: 1px solid grey; color: '
        .$aqhi_color_luftdt[$n]['color'].';  font-weight:bold; background-color: '
        .$aqhi_color_luftdt[$n]['bgc'].'; ">'.$n.'</td>';}
$issued = date($local_date_ft,$aq['timestamp']);

#<td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td>
#
if (isset ($aq['temp']['mes'])) { $extra = ' &nbsp;&nbsp;&nbsp;('.round($aq['temp']['mes'],1).'&deg;/'.round($aq['humi']['mes'],0).'%)';} else {$extra = '';}
$str_colors .= '</tr>
<tr>'.str_repeat('<td>&nbsp;</td>',$nr_data_coloms).'
<td colspan="'.($nr_blocks-1).'" style="text-align: center;"><small>'.langtransstr('aq_from').': <span style="color: '.$aq_warn_color.';">'.$issued.'</span>'.$extra.'</small></td></tr>'.PHP_EOL;

$str_small      .= $str_colors.'</table>'.PHP_EOL;  
$str_max        .= $str_colors.'</table>'.PHP_EOL; 
#----------------------------------------------- 
#---------------------------   EXPLANATION BLOCK
#-----------------------------------------------
$coloms         = array ('band','index','P10','P25','risk','general');
$coloms         = array ('band','index','P10','P25','risk');
$nr_cols        = count($coloms);
$explain = '<table style="text-align: center; width: 100%; margin: 0 auto; border-collapse: collapse; border: 1px solid grey;">
<thead style="background-color: #ccc;">
<tr style="border-bottom: 1px solid grey;">'.PHP_EOL;
if (isset ($range_aq) && $range_aq <> false) 
     {  $extra  = 'style="width: 80px;"';}
else {  $extra  = '';}
if (in_array ('band',$coloms) ) 
     {  $explain .= '<th><small>'.langtransstr('aq_classification').'</small></th>'.PHP_EOL;}
if (in_array ('index',$coloms) )
     {  $explain .= '<th '.$extra.'><small>'.langtransstr('aq_aq').'</small></th>'.PHP_EOL;}
if (in_array ('P10',$coloms) )
     {  $explain .= '<th><small>'.langtransstr('aq_p1').'</small></th>'.PHP_EOL;}
if (in_array ('P25',$coloms) )
     {  $explain .= '<th><small>'.langtransstr('aq_p2').'</small></th>'.PHP_EOL;}

if (in_array ('risk',$coloms) ) 
     {  $explain .= '<th><small>'.langtransstr('aq_disclaimer1');
        $string = langtransstr('aq_disclaimer2');
        if ($string <> '')
             {  $explain .= '<br />'.$string;}
       $explain .= '</small></th>'.PHP_EOL;}
$explain .= '</tr></thead>
<tbody>'.PHP_EOL;
#
for ($p = 1; $p <= $nr_blocks - 1; $p++) 
    {   $explain .= ' 
<tr style="border-bottom: 1px solid grey;">'.PHP_EOL;
        if ($xband_aq <> false )
                if (isset ($xband_aq[$p]))
                     {  $rowspan= $xband_aq[$p]['cnt'];
                        $colornr= $xband_aq[$p]['colors'];
                        $bgcnr  = $xband_aq[$p]['colors'];
                        $textnr = $xband_aq[$p]['text'];
                        $bandprint=true;}
                else {  $bandprint=false;}
        else {  $rowspan= 1;
                $colornr= $p;
                $bgcnr  = $p;
                $textnr = $p;
                $bandprint=true;}
        if (in_array ('band',$coloms) && $bandprint == true ) 
             {  $explain .=  '<td style="font-weight:bold; '.
                'color: '.              $aqhi_color_luftdt[$colornr]['color'].'; '.
                'background-color:'.    $aqhi_color_luftdt[$bgcnr]['bgc'].'; '.'" '.
                'rowspan="'.$rowspan.'">&nbsp;'.
                langtransstr($short_txt.$textnr).'&nbsp;</td>'.PHP_EOL;}

        if (in_array ('index',$coloms) )
             {  if ($xband_aq <> false ) 
                     {  $extra  = 
                        'color:  '.             $aqhi_color_luftdt[$p]['color'].'; '.
                        'background-color:'.    $aqhi_color_luftdt[$p]['bgc'].'; ';}
                else {  $extra = '';}
                $explain .= '<td style="font-weight:bold; border: 1px solid grey; '.
                $extra.'">'.
                $aqhi_range_luftdt[$p].'</td>'.PHP_EOL;}
        $extra = '';
        if (in_array ('P10',$coloms) )
             {  if ($p < $nr_blocks - 1) 
                     {  $tekst  = '<small>&lt;&nbsp;'.$thrshld_pm10[$p].'&nbsp;&mu;g/m<sup>3</sup></small>';}
                else {  $tekst  = '<small>&gt;&nbsp;'.$thrshld_pm10[$p-1].'&nbsp;&mu;g/m<sup>3</sup></small>';}
                $explain .= '<td style="border: 1px solid grey;">'.$tekst.'</td>'.PHP_EOL;}
        if (in_array ('P25',$coloms) )
             {  if ($p < $nr_blocks - 1) 
                     {  $tekst  = '<small>&lt;&nbsp;'.$thrshld_pm25[$p].'&nbsp;&mu;g/m<sup>3</sup></small>';}
                else {  $tekst  = '<small>&gt;&nbsp;'.$thrshld_pm25[$p-1].'&nbsp;&mu;g/m<sup>3</sup></small>';}
                $explain .= '<td style="border: 1px solid grey;">'.$tekst.'</td>'.PHP_EOL;}
        if (in_array ('risk',$coloms) && $bandprint == true )
             {  $explain .= '<td rowspan="'.$rowspan.'"><small>'.langtransstr($long_txt.$textnr).'</small></td></tr>'.PHP_EOL;}}
#'
$explain .= '<tr style="background-color: #ccc;"><td colspan="'.$nr_cols.'" style="border-top: 1px solid grey;">'.
        langtransstr('aq_visit').
        ' <a href="'.$local_link.'" target="_blank">'.langtransstr('aq_link_regional').'</a> &amp; '.
        ' <a href="http://luftdaten.info/" target="_blank">Luftdaten.info</a> '.
        langtransstr('aq_information').'</td></tr>
</tbody>
</table>'.PHP_EOL;
#----------------------------------------------- 
#------------------------------   ENCLOSING HTML
#-----------------------------------------------  
if (isset ($luftdt_html) && $luftdt_html == true) 
    {   $pageHTML_0 = '<!DOCTYPE html>
<html lang="'.$lang.'">
<head>
<meta charset = "'.strtoupper($yourCharset).'"/>
<meta name = " Keywords" content="weather, air quality '.$aq['location'].'" />
<title>Air-quality</title>
</head>
<body>'.PHP_EOL;
        $pageHTML_9 = '</body>
</html>'.PHP_EOL;}
else {  $pageHTML_0 = $pageHTML_9 = 'xx';}
#
$aq_fullpage_html = 
        $str_max.
        '</div>'.
        $explain;
        
$aq_condensed_html =
        $strH3.
        $str_small.
        '</div>'. PHP_EOL.
        $str_max.
        '<br />'.
        $explain.
        '</div>'. PHP_EOL.
        '<script> aqhi_luftdt_click() </script>';

if (isset ($luftdt_html) && $luftdt_html == true)
     {  echo $pageHTML_0.$aq_fullpage_html.$pageHTML_9; }
#-----------------------------------------------
#                                      FUNCTIONS
# ----------------------------------------------
#                                        calc_aq
# calculate AQ inde based on concentration
# ----------------------------------------------
function calc_aq($conc,$pm = 'P1')
     {  global $nr_blocks, $thrshld_aq, $thrshld_pm10, $thrshld_pm25;
        $ws_script_environment  = '<!-- module '.basename(__FILE__).' => '.__FUNCTION__;
        if ($pm == 'P1')
             {  $thrshlds       = $thrshld_pm10;}
        else {  $thrshlds       = $thrshld_pm25;} # echo '<pre>'.__LINE__.print_r($thrshlds,true); exit;
        if ($conc < $thrshlds[0])
             {  $result         = array(-1,0); }        // to low value
        else {  $result         = array(-1,7);          // to high value
                for ($key = 1; $key < $nr_blocks; $key++)
                     {  $value  = $thrshlds[$key];  #echo '<pre>'.__LINE__.' nr = '.$key.' conc = '.$conc.' $value = '.$value;
                        if ($conc < $value) 
                             {  $prev   = (int) $key - 1;
                                $aq_cal = InvLinear( 
                                        $thrshld_aq[$key], $thrshld_aq[$prev],  
                                        $value           , $thrshlds[$prev], 
                                        $conc);
                                $result = array($aq_cal,$key);
                                break;}
                        }}
        ws_message($ws_script_environment.' ('.__LINE__.'): $conc '.$conc.' $pm '.$pm.' $aq_cal '.$aq_cal.' $value ' .$value.' -->',true );
        return $result; } // eof calc_aq
# ----------------------------------------------
#                                      InvLinear                                    
# calculation subfunction for calc_aq 
# ----------------------------------------------
function InvLinear($AQIhigh, $AQIlow, $Conchigh, $Conclow, $mes)
     {  $ws_script_environment  = '<!-- module '.basename(__FILE__).' => '.__FUNCTION__;
        $return = ceil((($AQIhigh-$AQIlow) / ($Conchigh-$Conclow) )*($mes-$Conclow) + $AQIlow);
        ws_message($ws_script_environment.' ('.__LINE__.'): $return '.$return.' $AQIhigh '.$AQIhigh.' $AQIlow '.$AQIlow.' $Conchigh '.$Conchigh.' $Conclow '.$Conclow.' $mes '.$mes.' -->',true);
        return $return;}
# ----------------------------------------------
# arrays 
# ----------------------------------------------        
function aqhi_load_arrays_luftdt() 
     {  global  $aqhi_type, $aqhi_range_luftdt, $aqhi_color_luftdt, $local_link, $range_aq,
                $nr_blocks, $thrshld_aq, $thrshld_pm10, $thrshld_pm25, $long_txt , $short_txt, $xband_aq;   
        if ($aqhi_type == 'BE')
             {  $local_link     = 'http://www.irceline.be/nl/luchtkwaliteit/metingen/belaqi-luchtkwaliteitsindex/informatie';
                $thrshld_aq     = array (0,  1,  2,  3,  4,  5,  6,  7,  8,  9,   10, 99999);
                $thrshld_pm10   = array (0, 10, 20, 30, 40, 50, 60, 70, 80, 100, 500, 99999);
                $thrshld_pm25   = array (0,  5, 10, 15, 25, 35, 40, 50, 60,  70, 500, 99999);
                $nr_blocks      = count($thrshld_aq) - 1;
                $long_txt       = 'aq_txt_lng_be';
                $short_txt      = 'aq_txt_sh_be';
                $xband_aq        = array ();
                $xband_aq[1]     = array ('text' => 1, 'cnt' => 2,  'colors' => 1 );
                $xband_aq[3]     = array ('text' => 3, 'cnt' => 2,  'colors' => 3 );
                $xband_aq[5]     = array ('text' => 6, 'cnt' => 3,  'colors' => 6 );
                $xband_aq[8]     = array ('text' => 9, 'cnt' => 3,  'colors' => 9);
                $aqhi_color_luftdt[0]   = array ('bgc' => 'rgb(0,0,0)'      , 'color' => '#000');
                $aqhi_color_luftdt[1]   = array ('bgc' => 'rgb(3,46,235)'   , 'color' => '#FFF');
                $aqhi_color_luftdt[2]   = array ('bgc' => 'rgb(90,153,2407)', 'color' => '#FFF');
                $aqhi_color_luftdt[3]   = array ('bgc' => 'rgb(90,146,59)'  , 'color' => '#000'); #160,205,98
                $aqhi_color_luftdt[4]   = array ('bgc' => 'rgb(155,246,104)', 'color' => '#000');
                $aqhi_color_luftdt[5]   = array ('bgc' => 'rgb(255,252,114)', 'color' => '#000');
                $aqhi_color_luftdt[6]   = array ('bgc' => 'rgb(236,189,89)' , 'color' => '#000');
                $aqhi_color_luftdt[7]   = array ('bgc' => 'rgb(220,118,64)' , 'color' => '#000');
                $aqhi_color_luftdt[8]   = array ('bgc' => 'rgb(215,69,51)'  , 'color' => '#FFF');
                $aqhi_color_luftdt[9]   = array ('bgc' => 'rgb(128,37,25)'  , 'color' => '#FFF'); 
                $aqhi_color_luftdt[10]  = array ('bgc' => 'rgb(84,22,13)'   , 'color' => '#FFF');
                $aqhi_color_luftdt[11]  = array ('bgc' => 'rgb(0,0,0)'      , 'color' => '#FFF'); } 
        elseif ($aqhi_type == 'IE')
             {  $local_link     = 'http://www.epa.ie/air/quality/';
                $thrshld_aq     = array (0,  1,  2,  3,  4,  5,  6,  7,  8,  9,   10, 99999);
                $thrshld_pm10   = array (0, 16, 33, 50, 58, 66, 75, 83, 91, 100, 500, 99999);
                $thrshld_pm25   = array (0, 11, 23, 35, 41, 47, 53, 58, 64,  70, 500, 99999);
                $nr_blocks      = count($thrshld_aq) - 1;
                $long_txt       = 'aq_txt_lng_ie';
                $short_txt      = 'aq_txt_sh_ie';
                $xband_aq        = array ();
                $xband_aq[1]     = array ('text' => 2, 'cnt' => 3,  'colors' => 2 );
                $xband_aq[4]     = array ('text' => 5, 'cnt' => 3,  'colors' => 5 );
                $xband_aq[7]     = array ('text' => 8, 'cnt' => 3,  'colors' => 8 );
                $xband_aq[10]    = array ('text' => 10,'cnt' => 1,  'colors' => 10);
                $aqhi_color_luftdt[0]   = array ('bgc' => 'rgb(0,0,0)'      , 'color' => '#000');
                $aqhi_color_luftdt[1]   = array ('bgc' => 'rgb(196,213,82)' , 'color' => '#000');
                $aqhi_color_luftdt[2]   = array ('bgc' => 'rgb(121,176,84)' , 'color' => '#000');
                $aqhi_color_luftdt[3]   = array ('bgc' => 'rgb(75,129,61)'  , 'color' => '#000');;
                $aqhi_color_luftdt[4]   = array ('bgc' => 'rgb(233,191,70)' , 'color' => '#000');
                $aqhi_color_luftdt[5]   = array ('bgc' => 'rgb(232,151,63)' , 'color' => '#000');
                $aqhi_color_luftdt[6]   = array ('bgc' => 'rgb(224,109,56)' , 'color' => '#000');
                $aqhi_color_luftdt[7]   = array ('bgc' => 'rgb(224,109,56)' , 'color' => '#000');
                $aqhi_color_luftdt[8]   = array ('bgc' => 'rgb(216,56,50)'  , 'color' => '#000');
                $aqhi_color_luftdt[9]   = array ('bgc' => 'rgb(161,39,34)'  , 'color' => '#000');
                $aqhi_color_luftdt[10]  = array ('bgc' => 'rgb(108,57,31)'  , 'color' => '#000');
                $aqhi_color_luftdt[11]  = array ('bgc' => 'rgb(165,73,147)' , 'color' => '#000'); } 
        elseif ($aqhi_type == 'NL')
             {  $local_link     = 'https://www.luchtmeetnet.nl/stations/alle-provincies/alle-gemeentes/PM25';
                $thrshld_aq     = array (0,  1,  2,  3,  4,  5,  6,   7,   8,   9,  10, 11, 99999);
                $thrshld_pm10   = array (0, 10, 20, 30, 45, 60, 75, 100, 125, 150, 200, 99999);
                $thrshld_pm25   = array (0, 10, 15, 20, 30, 40, 50,  70,  90, 100, 140, 99999);
                $nr_blocks      = count($thrshld_aq) - 1;
                $long_txt       = 'aq_txt_lng_nl';
                $short_txt      = 'aq_txt_sh_nl';
                $xband_aq        = array ();
                $xband_aq[1]     = array ('text' => 2, 'cnt' => 3,  'colors' => 2 );
                $xband_aq[4]     = array ('text' => 5, 'cnt' => 3,  'colors' => 5 );
                $xband_aq[7]     = array ('text' => 7, 'cnt' => 2,  'colors' => 7 );
                $xband_aq[9]     = array ('text' => 9, 'cnt' => 2,  'colors' => 9 );
                $xband_aq[11]    = array ('text' => 11,'cnt' => 1,  'colors' => 11 );
                $aqhi_color_luftdt[0]   = array ('bgc' => 'rgb(0,0,0)'      , 'color' => '#000');
                $aqhi_color_luftdt[1]   = array ('bgc' => 'rgb(0,29,245)'   , 'color' => '#FFF');
                $aqhi_color_luftdt[2]   = array ('bgc' => 'rgb(68,152,247)' , 'color' => '#FFF');
                $aqhi_color_luftdt[3]   = array ('bgc' => 'rgb(154,186,240)', 'color' => '#000');;
                $aqhi_color_luftdt[4]   = array ('bgc' => 'rgb(244,212,119)' , 'color' => '#000');
                $aqhi_color_luftdt[5]   = array ('bgc' => 'rgb(255,254,84)'  , 'color' => '#000');
                $aqhi_color_luftdt[6]   = array ('bgc' => 'rgb(255,252,172)' , 'color' => '#000');
                $aqhi_color_luftdt[7]   = array ('bgc' => 'rgb(238,136,80)'  , 'color' => '#000');
                $aqhi_color_luftdt[8]   = array ('bgc' => 'rgb(244,189,65)'  , 'color' => '#FFF');
                $aqhi_color_luftdt[9]   = array ('bgc' => 'rgb(236,11,46)'   , 'color' => '#FFF');
                $aqhi_color_luftdt[10]  = array ('bgc' => 'rgb(233,51,36)'   , 'color' => '#FFF');
                $aqhi_color_luftdt[11]  = array ('bgc' => 'rgb(102,55,153)'  , 'color' => '#FFF');                
                $aqhi_color_luftdt[12]  = array ('bgc' => 'rgb(0,0,0)'       , 'color' => '#FFF'); } 
        else {  $local_link     = 'https://www.airnow.gov/index.cfm?action=aqibasics.aqi';
                $thrshld_aq     = array (0,   50,  100,  150,   200,   300,   500,   99999);
                $thrshld_pm10   = array (0,   54,  154,  254,   354,   424,   604,   99999);
                $thrshld_pm25   = array (0.0, 12.0, 35.4 ,55.4, 150.4, 250.4, 500.4, 99999);
                $nr_blocks      = count($thrshld_aq) - 1;
                $long_txt       = 'aq_txt_lng_us';
                $short_txt      = 'aq_txt_sh_us';
                $xband_aq       = false;
                $range_aq       = true;
                $aqhi_color_luftdt[]    = array ('bgc' => 'rgb(0,0,0)'     , 'color' => '#000');
                $aqhi_color_luftdt[]    = array ('bgc' => 'rgb(0,228,0)'   , 'color' => '#000');
                $aqhi_color_luftdt[]    = array ('bgc' => 'rgb(255,255,0)' , 'color' => '#000');
                $aqhi_color_luftdt[]    = array ('bgc' => 'rgb(255,126,0)' , 'color' => '#000');;
                $aqhi_color_luftdt[]    = array ('bgc' => 'rgb(255,0,0)'   , 'color' => '#FFF');
                $aqhi_color_luftdt[]    = array ('bgc' => 'rgb(153,0,76)'  , 'color' => '#FFF');
                $aqhi_color_luftdt[]    = array ('bgc' => 'rgb(76,0,38)'   , 'color' => '#FFF');
                $aqhi_color_luftdt[]    = array ('bgc' => 'rgb(0,0,0)'     , 'color' => '#FFF'); }
        $previous       = '';
        $aqhi_range_luftdt      = array(0);
        for ($n = 0; $n <= $nr_blocks; $n++) 
             {  if ($n == $nr_blocks)   // mostly invalid to large value
                     {  $aqhi_range_luftdt[$n]  = '>'.$thrshld_aq[$n];}
                elseif ($n == 0)        // mostly invalid < 0
                     {  $aqhi_range_luftdt[$n]  = '<'.       $thrshld_aq[$n];}
                else {  if (($thrshld_aq[$n - 1] + 1) == $thrshld_aq[$n]) {$previous = '';}
                        $aqhi_range_luftdt[$n]  = $previous. $thrshld_aq[$n];}
                $previous                       = ($thrshld_aq[$n]+1).'-';}
}//  eof aqhi_load_arrays_luftdt
#-----------------------------------------------
# load all "missing" template functions
# ----------------------------------------------    
function load_missing() {
    if (!function_exists ('ws_message') ){
        function ws_message ($message,$always=false,&$string=false) 
             {  global $wsDebug, $SITE;
                $echo	= $always;
                if ( $echo == false && isset ($wsDebug) && $wsDebug == true ) 			{$echo = true;}
                if ( $echo == false && isset ($SIE['wsDebug']) && $SIE['wsDebug'] == true ) 	{$echo = true;}
                if ( $echo == true  && $string === false) {echo $message.PHP_EOL;}
                if ( $echo == true  && $string <> false) {$string .= $message.PHP_EOL;}}
    } // check ws_message
    if (!function_exists ('ws_load_cache') ){
        function ws_load_cache($cacheFile, $cacheTime,$cacheFake='n/a'){
                global $ws_msg_string, $ws_cron_all;
                $ws_script_environment = '<!-- module '.basename(__FILE__).' => '.__FUNCTION__;
                if (!file_exists($cacheFile))
                    {   ws_message( $ws_script_environment.' ('.__LINE__.'): '.$cacheFile.' not found in cache -->',true  );
                        return false; }
                if ($cacheFake == 'n/a') {$cacheFake = $cacheFile;}
                $file_time      = filemtime($cacheFile);
                $now            = time();
                $diff           = ($now     -   $file_time);
                ws_message('<!-- module '.basename(__FILE__).' => '.__FUNCTION__.' ('.__LINE__.'): '.$cacheFake.'
                cache time   = '.date('c',$file_time)." from unix time $file_time
                current time = ".date('c',$now)." from unix time $now 
                difference   = $diff (seconds)
                diff allowed = $cacheTime (seconds) -->" );
                if (isset ($ws_cron_all) ) 		// runnig a cron job
                     {  $cacheTime = $cacheTime - 600;
                        ws_message($ws_script_environment .' ('.__LINE__.'): max cache lowered with 600 seconds as cron job is running -->'); }
                if ($diff <= abs($cacheTime) )
                    {   ws_message($ws_script_environment.' ('.__LINE__.'): '.$cacheFake.' loaded from cache  -->');
                        $return =  unserialize(file_get_contents($cacheFile));
                        return $return;}
                ws_message($ws_script_environment.' ('.__LINE__.'): data to old to use -->',true );
                return false;} // eof ws_load_cache
    } // check ws_load_cache
    if (!function_exists ('ws_makeRequest') ){
        function ws_makeRequest($file, $get_contents = false, $fake= '') 
              { $ws_script_environment = '<!-- module '.basename(__FILE__).' => '.__FUNCTION__;
                if ($fake == '') {$fake = $file;}
                if ($get_contents === false || $get_contents == '')   // use CURL to load http(s) data
                     {  ws_message($ws_script_environment.' ('.__LINE__.'): data will be loaded from '.$fake.' -->',true ); 
                        return ws_curl($file,  $fake);}
                if ($get_contents === true)    // use file_get_contents to load http(s) data
                     {  $file_to_load   = $file; } 
                else {  $file_to_load   = $get_contents;} // use file_get_contents to load local (or test) file
                ws_message($ws_script_environment.' ('.__LINE__.'): data will be loaded from file '.$file_to_load.' using file get contents -->',true );
                return file_get_contents($file_to_load);} // eof ws_makeRequest
    } // eo check ws_makeRequest
    if (!function_exists ('ws_curl') ){
        function ws_curl ($url = '',$fake = '') {
                global $ws_msg_string, $ws_curl_follow, $ws_timeout, $ws_user_agent ;
                $ws_script_environment = '<!-- module '.basename(__FILE__).' => '.__FUNCTION__;
                if ($fake == '') {$fake = $url;}
                if (!isset ($ws_timeout) || $ws_timeout < 10)   { $ws_timeout   = 10;}
                if (!isset ($ws_user_agent) )                   { $ws_user_agent= $_SERVER['HTTP_USER_AGENT'];}
                ws_message(ws_debug_times('module '.basename(__FILE__).' => '.__FUNCTION__.' ('.__LINE__.'):'),true);
                ws_message($ws_script_environment.' ('.__LINE__.'): data loaded from '.$url.' -->',false , $ws_msg_string );		
                $ch     = curl_init();                                  // initialize a cURL session
                curl_setopt ($ch, CURLOPT_URL, $url);                   // connect to provided URL
                curl_setopt ($ch, CURLOPT_SSL_VERIFYPEER, 0);           // verify peer off,removes a lot of errors with older hosts
                curl_setopt ($ch, CURLOPT_USERAGENT, $ws_user_agent);   // most host checks this nowadays
                curl_setopt ($ch, CURLOPT_CONNECTTIMEOUT, $ws_timeout); // connection timeout
                curl_setopt ($ch, CURLOPT_TIMEOUT, $ws_timeout);        // data timeout
                curl_setopt ($ch, CURLOPT_RETURNTRANSFER, true);        // return the data transfer
                curl_setopt ($ch, CURLOPT_NOBODY, false);               // do the download request without getting the body
                curl_setopt ($ch, CURLOPT_HEADER, false);               // include header information
                if (! isset ($ws_curl_follow) ) {$ws_curl_follow = 1;}
                curl_setopt($ch, CURLOPT_FOLLOWLOCATION, $ws_curl_follow); // follow Location: redirect allowed
                curl_setopt($ch, CURLOPT_MAXREDIRS, 1);                 //   but only one time
                $rawData= curl_exec ($ch);
                ws_message(ws_debug_times('module '.basename(__FILE__).' => '.__FUNCTION__.' ('.__LINE__.'):'),true);
                $info	= curl_getinfo($ch);
                $errors = curl_error($ch);
                curl_close ($ch);
                unset ($ch);
                ws_message($ws_script_environment.' ('.__LINE__.'): Return codes:'.print_r ($info,true).' -->');
                ws_message($ws_script_environment.' ('.__LINE__.'): Error  codes:'.print_r ($errors,true).' -->');
                if (strlen($rawData) > 2) { return $rawData;}
        #        echo '<p><b>No data</b> was retrieved for '.$url.'</p>'.PHP_EOL;
                return false;}  // eo curl function 
    } // eo check ws_curl
    if (!function_exists ('ws_debug_times') ){
        function ws_debug_times($start = '') {
                global $ws_start_time, $ws_passed_time;
                if (!isset ($ws_passed_time)) 
                     {  $ws_start_time = $ws_passed_time = microtime(true);
                        return  '<!-- '.$start.' Debug timers initialized  -->';}
        #
                $now            = microtime(true);
                $since_last     = $now - $ws_passed_time;
                $ws_passed_time = $now;
        
                if ($since_last < 0.0001) {$string1 = '< 0.0001';} else {$string1 = round($since_last,4);}
                $until_last     = $now - $ws_start_time;
                if ($until_last < 0.0001) {$string2 = '< 0.0001';} else {$string2 = round($until_last,4);}
       
                return '<!-- '.$start.' Time spent until here: '.$string2.' seconds. Since last timestamp: '.$string1.' seconds.  -->';
        } // eof ws_debug_times
    }  // eo exists ws_debug_times?
    if (!function_exists ('ws_debug_info') ){
        function ws_debug_info($start = '') {
                global $wsLANGMISSING, $ws_start_time, $ws_passed_time, $ws_lang_dir, $lang;
                if (isset ($wsLANGMISSING) && count($wsLANGMISSING) > 0) {
                        $string = '# missing entries added at '.date('c').PHP_EOL;
                        foreach ($wsLANGMISSING as  $value => $script)
                        # 2017-12-03 add script name for missing translation
                             {  $string .= 'langlookup|'.$value.'|'.$value.'|'.$script.PHP_EOL;}
                        $langfile 	= $ws_lang_dir. 'fctlanguage-'.$lang.'.txt';
                        $return = file_put_contents($langfile,$string,FILE_APPEND);
                        $return = PHP_EOL.'<!-- '. $string.PHP_EOL.' -->'.PHP_EOL;
                } // eo lang missing
                else  { $return = '';}
        #
                $return .= PHP_EOL.ws_debug_times($start);
        #
                $size   = memory_get_peak_usage(true);
                $unit   = array('b','kb','mb','gb','tb','pb');
                $used   = round($size/pow(1024,($i=floor(log($size,1024)))),2).' '.$unit[$i];
                $seconds= microtime(true) - $ws_start_time;
                return  $return.PHP_EOL.'<!-- Max memory used: '.$used.'('.$size.' bytes). Duration: '.round($seconds,5).' seconds -->'.PHP_EOL;
        }
    } // eo exists ws_debug_info
    if (!function_exists ('ws_json_check') ){
#--------------------------------------------------------------------------------------------------
# ws_noaa_json_check check if there are errors in the json,  thanks to Ken True for this code snippet	
#--------------------------------------------------------------------------------------------------
        function ws_json_check ($rawData = '',$check_contents = false) 

              { if (strlen($rawData) < 10 )             {return false;}
                $array  = json_decode($rawData,true);           // parse the JSON into an associative array
                if (!function_exists('json_last_error')){return $array;}
                $error  = true;
                switch (json_last_error()) 
                     {  case JSON_ERROR_NONE:           $JSONerror = '- No errors';  $error = false;            break;
                        case JSON_ERROR_DEPTH:          $JSONerror = '- Maximum stack depth exceeded';          break;
                        case JSON_ERROR_STATE_MISMATCH: $JSONerror = '- Underflow or the modes mismatch';       break;
                        case JSON_ERROR_CTRL_CHAR:      $JSONerror = '- Unexpected control character found';    break;
                        case JSON_ERROR_SYNTAX:         $JSONerror = '- Syntax error, malformed JSON';          break;
                        case JSON_ERROR_UTF8:           $JSONerror = '- Malformed UTF-8 characters, possibly incorrectly encoded'; break;
                        default:                        $JSONerror = '- Unknown error';                         break;  }
                if ($error) 
                     {  ws_message ('<!-- module '.basename(__FILE__).' => '.__FUNCTION__.' => '.'('.__LINE__.'): error = '.$JSONerror.' -->',true);
                        ws_message ('<!-- content='.print_r($rawData,true).' -->',true);
                        return false;}
                return $array;} // eof ws_noaa_json_check
    } // eo exists ws_debug_info
    if (!function_exists ('ws_save_cache') ){
        function ws_save_cache($cacheFile, $data, $proceed = 'n/a',$cacheFake = 'n/a'){
                global $ws_msg_string  ;
                if ($proceed == 'n/a' || $proceed == false || $proceed == '') 
                     {  $proceed = false;} else {$proceed = true;}
                if ($cacheFake == 'n/a' || $cacheFake == '') {$cacheFake = $cacheFile;}
                $ws_script_environment = '<!-- module '.basename(__FILE__).' => '.__FUNCTION__;
                if (file_put_contents($cacheFile, serialize($data)))
                     {  ws_message($ws_script_environment.' ('.__LINE__.'): '.$cacheFake.' saved OK  -->',true , $ws_msg_string );
                        return true;}
                if ($proceed == true)
                     {  ws_message($ws_script_environment.' ('.__LINE__.'): ERROR Could not save data to cache '.$cacheFake.' -->',true , $ws_msg_string );
                        return true;}
                exit ('<h3>'.__FUNCTION__. ": ERROR  Could not save data to cache ($cacheFile). <br />
Please make sure your cache directory exists and is writable.<br />Program ends</h3>"); } // eof ws_save_cache
    } // eo exists ws_save_cache
} // eof load_missing
#-----------------------------------------------
# load language translations and optional function
# ----------------------------------------------    
function ws_load_aq_langs ()
 {      global $lang, $LANGLOOKUP, $aqhi_type;
        $ws_script_environment  = '<!-- module '.basename(__FILE__).' => '.__FUNCTION__;
        if (!isset ($lang)) {$lang = 'en';}
        if (!function_exists('langtransstr'))
             {  function langtransstr ($string) 
                     {  global $LANGLOOKUP;
                        if (isset ($LANGLOOKUP[$string])) 
                             {  return $LANGLOOKUP[$string]; }
                        else {return $string;} }  }      
#
$lang_file      = __DIR__.'/ws_luft_lang'.strtoupper($lang).'.php';
if (is_file ($lang_file)) 
     {  ws_message($ws_script_environment.' ('.__LINE__.'): loading '.$lang_file.' -->',true);
        include $lang_file;}
else {  ws_message($ws_script_environment.' ('.__LINE__.'): '.$lang_file.' not found -->',true);
        $lang_file      = __DIR__.'/ws_luft_langEN.php';
        if (is_file ($lang_file)) 
             {  ws_message($ws_script_environment.' ('.__LINE__.'): loading '.$lang_file.' -->',true);
                include $lang_file;}
        ws_message($ws_script_environment.' ('.__LINE__.'): '.$lang_file.' not found -->',true);}
} // eof ws_load_aq_langs