<?php
/*
 File: MH-defs.php

 Purpose: provide a bridge to naming of weather variables from the native Meteohub software package to
          Weather-Display names used in common scripts like ajax-dashboard.php and ajax-gizmo.php

 
 Author: Ken True - webmaster@saratoga-weather.org


//Version MH-defs.php - V1.04 - 18-Feb-2012 - fix baro for sealevel pressure, rain trends
//Version MH-defs.php - V1.05 - 31-Mar-2012 - added local station rain conditions override displays
//Version MH-defs.php - V1.06 - 28-Apr-2012 - fixed $yesterdayrain value

// Thanks to John Ranier at Mickfield Weather http://rainer.me.uk/weather/index.php for his work to get the rain trends corrected

// Customized by gen-MHfiles.php - V1.00 - 08-Aug-2011 on 2012-04-28 06:13 UTC

*/
// --------------------------------------------------------------------------

// allow viewing of generated source

if (isset($_REQUEST["sce"]) and 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;
}
$WXsoftware = 'MH'; 
global $SITE; // for Settings.php entries
if(isset($SITE['yesterdayData']) and file_exists($SITE['yesterdayData'])) {
	// pseudo yday_ tags from day1_ tags captured by cron at "59 23 * * *" of yesterday.html template
	include_once($SITE['yesterdayData']);
 }
if(!isset($WX['actual_system_temp_unit'])) { return; } 
// this has WD $varnames = $WX['MH-varnames']; equivalents
 
if(isset($WX['actual_system_temp_unit'])) { $uomtemp = $WX['actual_system_temp_unit']; }
if(isset($WX['actual_system_press_unit'])) { $uombaro = $WX['actual_system_press_unit']; }
if(isset($WX['actual_system_wind_unit'])) { $uomwind = $WX['actual_system_wind_unit']; }
if(isset($WX['actual_system_rain_unit'])) { $uomrain = $WX['actual_system_rain_unit']; }
$time  = MHtimeOnly($WX['actual_localdate']);
$date  = MHdateOnly($WX['actual_localdate'],$SITE['WDdateMDY']);
$sunrise = $WX['actual_sunrise_standard_local'];
$time_minute = $WX['actual_date0_min_local'];
$time_hour = $WX['actual_date0_hour_local'];
$date_day = $WX['actual_date0_day_local'];
$date_month = $WX['actual_date0_month_local'];
$date_year = $WX['actual_date0_year_local'];
$sunset = $WX['actual_sunset_standard_local'];
$moonphasename = $WX['actual_lunar_phase_en'];
$hoursofpossibledaylight = $WX['actual_daylength_standard_hhmm'];
$stationlatitude = $WX['actual_station_latitude_decimal'];
$stationlongitude = $WX['actual_station_longitude_decimal'];
$wdversion = $WX['actual_system_version_text'];
$wdbuild = $WX['actual_system_build_num'];
$temperature = $WX['actual_th0_temp_f'];
$tempnodp  = round($temperature,0);
$humidity = $WX['actual_th0_hum_rel'];
$dewpt = $WX['actual_th0_dew_f'];
$maxtemp = $WX['day1_th0_tempmax_f'];
$maxtempt  = MHtimeOnly($WX['day1_th0_tempmax_time']);
$mintemp = $WX['day1_th0_tempmin_f'];
$mintempt  = MHtimeOnly($WX['day1_th0_tempmin_time']);
$heati = $WX['actual_th0_heatindex_f'];
$heatinodp  = round($heati);
$windch = $WX['actual_wind0_chill_f'];
$windchnodp  = round($windch);
$humidexfaren = $WX['actual_th0_humidex_f'];
$humidexcelsius = $WX['actual_th0_humidex_c'];
$tempchangehour  = $WX['actual_th0_temp_f']-$WX['last60m_th0_temp_f'];
// not really: $temp24hoursago = $WX['last24h_th0_temp_f'];
$humchangelasthour  = $WX['actual_th0_hum_rel']-$WX['last60m_th0_hum_rel'];
$dewchangelasthour  = $WX['actual_th0_dew_f']-$WX['last60m_th0_dew_f'];
$barochangelasthour  = $WX['actual_thb1_sealevel_inhg']-$WX['last60m_thb1_sealevel_inhg'];
$avgspd = $WX['actual_wind0_speed_mph'];
$gstspd = $WX['actual_wind0_gustspeed_mph'];
$maxgst = $WX['day1_wind0_gustspeedmax_mph'];
$maxgstt  = MHtimeOnly($WX['day1_wind0_gustspeedmax_time']);
$maxgsthr = $WX['last60m_wind0_gustspeedmax_mph'];
$dirdeg = $WX['actual_wind0_dir_deg'];
$dirlabel = $WX['actual_wind0_dir_en'];
$avwindlastimediate10 = $WX['last15m_wind0_speed_mph'];
$baro = $WX['actual_thb1_sealevel_inhg'];
$baroinusa2dp = $WX['actual_thb1_sealevel_inhg'];
$trend  = $WX['actual_thb1_sealevel_inhg']-$WX['last60m_thb1_sealevel_inhg'];
$dayrn = $WX['day1_rain0_total_in'];
$monthrn = $WX['month1_rain0_total_in'];
$yearrn = $WX['year1_rain0_total_in'];
$currentrainratehr = $WX['actual_rain0_rate_in'];
if(isset($WX['actual_sol0_radiation_wqm'])) { $VPsolar = $WX['actual_sol0_radiation_wqm']; } 
if(isset($WX['actual_uv0_index'])) { $VPuv = $WX['actual_uv0_index']; }
if(isset($WX['day1_sol0_radiationmax_wqm'])) { $highsolar = $WX['day1_sol0_radiationmax_wqm']; }
if(isset($WX['day1_uv0_indexmax'])) { $highuv = $WX['day1_uv0_indexmax']; }
if(isset($WX['actual_sol0_radiation_rel'])) { $currentsolarpercent = $WX['actual_sol0_radiation_rel']; }
if(isset($WX['day1_sol0_radiationmax_time'])) {$highsolartime  = MHtimeOnly($WX['day1_sol0_radiationmax_time']);} 
if(isset($WX['day1_uv0_indexmax_time'])) {$highuvtime  = MHtimeOnly($WX['day1_uv0_indexmax_time']);}

$mrecordwindgust = $WX['month1_wind0_gustspeedmax_mph'];
$mrecordhighgustday  = substr($WX['month1_wind0_gustspeedmax_time'],6,2);
$temp0minuteago = $WX['actual_th0_temp_f'];
$wind0minuteago = $WX['actual_wind0_speed_mph'];
$gust0minuteago = $WX['actual_wind0_gustspeed_mph'];
$dir0minuteago = $WX['actual_wind0_dir_en'];
$hum0minuteago = $WX['actual_th0_hum_rel'];
$dew0minuteago = $WX['actual_th0_dew_f'];
$baro0minuteago = $WX['actual_thb1_sealevel_inhg'];
$rain0minuteago = $WX['day1_rain0_total_in'];
if(isset($WX['actual_sol0_radiation_wqm'])) { $VPsolar0minuteago = $WX['actual_sol0_radiation_wqm']; }
if(isset($WX['actual_uv0_index'])) { $VPuv0minuteago = $WX['actual_uv0_index']; }
$highbaro = $WX['day1_thb1_sealevelmax_inhg'];
$highbarot  = MHtimeOnly($WX['day1_thb1_sealevelmax_time']);
$hourrn  = $WX['day1_rain0_total_in']-$WX['last60m_rain0_total_in'];
$minwindch = $WX['day1_wind0_chillmin_f'];
$minwindcht  = MHtimeOnly($WX['day1_wind0_chillmin_time']);
$cloudheightfeet = $WX['actual_th0_cloudheight_ft'];
$cloudheightmeters = $WX['actual_th0_cloudheight_m'];
$maxdew = $WX['day1_th0_dewmax_f'];
$maxdewt  = MHtimeOnly($WX['day1_th0_dewmax_time']);
$mindew = $WX['day1_th0_dewmin_f'];
$mindewt  = MHtimeOnly($WX['day1_th0_dewmin_time']);
$maxheat = $WX['day1_th0_heatindexmax_f'];
$maxheatt  = MHtimeOnly($WX['day1_th0_heatindexmax_time']);
$lowbaro = $WX['day1_thb1_sealevelmin_inhg'];
$lowbarot  = MHtimeOnly($WX['day1_thb1_sealevelmin_time']);
$highhum = $WX['day1_th0_hummax_rel'];
$highhumt  = MHtimeOnly($WX['day1_th0_hummax_time']);
$lowhum = $WX['day1_th0_hummin_rel'];
$lowhumt  = MHtimeOnly($WX['day1_th0_hummin_time']);

//------- below added manually to defs file

if(isset($WX['yday_sol0_radiationmax_wqm'])) { $highsolaryest = $WX['yday_sol0_radiationmax_wqm']; } 
if(isset($WX['yday_sol0_radiationmax_time'])) {$highsolaryesttime  = MHtimeOnly($WX['yday_sol0_radiationmax_time']);}
if(isset($WX['yday_uv0_indexmax'])) { $highuvyest = $WX['yday_uv0_indexmax']; } 
if(isset($WX['yday_uv0_indexmax_time'])) {$highuvyesttime  = MHtimeOnly($WX['yday_uv0_indexmax_time']);}

// Note: the last24 and seqday1 don't have full yesterday values
//$mintempyest =  MH_seqval('seqday1_th0_tempmin_c',1,$SITE['uomTemp']);
//$mintempyestt = MHtimeOnly($WX['last24h_th0_tempmin_time']);
//$maxtempyest =  MH_seqval('seqday1_th0_tempmax_c',1,$SITE['uomTemp']);
//$maxtempyestt = MHtimeOnly($WX['last24h_th0_tempmax_time']);
// $temp24hoursago =  MH_seqval('seqday1_th0_temp_c',1,$SITE['uomTemp']);
// But... the pseudo yday_ tags do contain the correct values 
//*/

if(isset($WX['yday_th0_tempmin_f'])) {
	$mintempyest =  $WX['yday_th0_tempmin_f'];
    $mintempyestt = MHtimeOnly($WX['yday_th0_tempmin_time']);
}
if(isset($WX['yday_th0_tempmax_f'])) {
	$maxtempyest =  $WX['yday_th0_tempmax_f'];
    $maxtempyestt = MHtimeOnly($WX['yday_th0_tempmax_time']);
}

$dayswithrain =  $WX['month1_rain0_days'];	// Days with rain for the month
$dayswithrainyear =  $WX['year1_rain0_days'];	// Days with rain for the year
$dayswithnorain = ''; // not defined by Meteohub
$maxrainrate =  $WX['day1_rain0_ratemax_in'];	// Max rain rate,for the day, mm/min (or in./min)
$maxrainratetime = MHtimeOnly($WX['day1_rain0_ratemax_time']); // max rain rate today
$tempchangehour  = round($WX['actual_th0_temp_f']-$WX['last60m_th0_temp_f'],1);
$yesterdayrain = MH_seqval('seqday1_rain0_total_mm',1,$uomrain);
if(isset($WX['yday_rain0_ratemax_in'])) {$yesterdayrain = $WX['yday_rain0_ratemax_in']; }
if(isset($WX['actual_thb1_fc_text'])) {$vpforecasttext = $WX['actual_thb1_fc_text'];}
$maxgustlastimediatehourtime =  MHtimeOnly($WX['last60m_wind0_gustspeedmax_time']);
//trends values
$temp5minuteago = MH_seqval('seqmin1_th0_temp_c',5,$uomtemp);
$wind5minuteago = MH_seqval('seqmin1_wind0_speed_kn',5,$uomwind);
$gust5minuteago = MH_seqval('seqmin1_wind0_gustspeed_kn',5,$uomwind);
$dir5minuteago =  MH_getWindDir(MH_seqval('seqmin1_wind0_maindir_deg',5,'dir'));
$hum5minuteago =  MH_seqval('seqmin1_th0_hum_rel',5,'pct');
$dew5minuteago =  MH_seqval('seqmin1_th0_dew_c',5,$uomtemp);
$baro5minuteago = MH_seqval('seqmin1_thb1_sealevel_hpa',5,$uombaro);
$rain5minuteago = MHsetRainDP($dayrn-MH_seqvals('seqmin1_rain0_total_mm',0,4,$uomrain,'plus'),$uomrain);
if(isset($WX['seqmin1_sol0_radiation_wqm'])) {$VPsolar5minuteago = MH_seqval('seqmin1_sol0_radiation_wqm',5,'wqm');}

$temp10minuteago = MH_seqval('seqmin1_th0_temp_c',10,$uomtemp);
$wind10minuteago = MH_seqval('seqmin1_wind0_speed_kn',10,$uomwind);
$gust10minuteago = MH_seqval('seqmin1_wind0_gustspeed_kn',10,$uomwind);
$dir10minuteago =  MH_getWindDir(MH_seqval('seqmin1_wind0_maindir_deg',10,'dir'));
$hum10minuteago =  MH_seqval('seqmin1_th0_hum_rel',10,'pct');
$dew10minuteago =  MH_seqval('seqmin1_th0_dew_c',10,$uomtemp);
$baro10minuteago = MH_seqval('seqmin1_thb1_sealevel_hpa',10,$uombaro);
$rain10minuteago = MHsetRainDP($dayrn-MH_seqvals('seqmin1_rain0_total_mm',0,9,$uomrain,'plus'),$uomrain);
if(isset($WX['seqmin1_sol0_radiation_wqm'])) {$VPsolar10minuteago = MH_seqval('seqmin1_sol0_radiation_wqm',10,'wqm');}

$temp15minuteago = MH_seqval('seqmin1_th0_temp_c',15,$uomtemp);
$wind15minuteago = MH_seqval('seqmin1_wind0_speed_kn',15,$uomwind);
$gust15minuteago = MH_seqval('seqmin1_wind0_gustspeed_kn',15,$uomwind);
$dir15minuteago =  MH_getWindDir(MH_seqval('seqmin1_wind0_maindir_deg',15,'dir'));
$hum15minuteago =  MH_seqval('seqmin1_th0_hum_rel',15,'pct');
$dew15minuteago =  MH_seqval('seqmin1_th0_dew_c',15,$uomtemp);
$baro15minuteago = MH_seqval('seqmin1_thb1_sealevel_hpa',15,$uombaro);
$rain15minuteago = MHsetRainDP($dayrn-MH_seqvals('seqmin1_rain0_total_mm',0,14,$uomrain,'plus'),$uomrain);
if(isset($WX['seqmin1_sol0_radiation_wqm'])) {$VPsolar15minuteago = MH_seqval('seqmin1_sol0_radiation_wqm',15,'wqm');}

$temp20minuteago = MH_seqval('seqmin1_th0_temp_c',20,$uomtemp);
$wind20minuteago = MH_seqval('seqmin1_wind0_speed_kn',20,$uomwind);
$gust20minuteago = MH_seqval('seqmin1_wind0_gustspeed_kn',20,$uomwind);
$dir20minuteago =  MH_getWindDir(MH_seqval('seqmin1_wind0_maindir_deg',20,'dir'));
$hum20minuteago =  MH_seqval('seqmin1_th0_hum_rel',20,'pct');
$dew20minuteago =  MH_seqval('seqmin1_th0_dew_c',20,$uomtemp);
$baro20minuteago = MH_seqval('seqmin1_thb1_sealevel_hpa',20,$uombaro);
$rain20minuteago = MHsetRainDP($dayrn-MH_seqvals('seqmin1_rain0_total_mm',0,19,$uomrain,'plus'),$uomrain);
if(isset($WX['seqmin1_sol0_radiation_wqm'])) {$VPsolar20minuteago = MH_seqval('seqmin1_sol0_radiation_wqm',20,'wqm');}

$temp30minuteago = MH_seqval('seqmin1_th0_temp_c',30,$uomtemp);
$wind30minuteago = MH_seqval('seqmin1_wind0_speed_kn',30,$uomwind);
$gust30minuteago = MH_seqval('seqmin1_wind0_gustspeed_kn',30,$uomwind);
$dir30minuteago =  MH_getWindDir(MH_seqval('seqmin1_wind0_maindir_deg',30,'dir'));
$hum30minuteago =  MH_seqval('seqmin1_th0_hum_rel',30,'pct');
$dew30minuteago =  MH_seqval('seqmin1_th0_dew_c',30,$uomtemp);
$baro30minuteago = MH_seqval('seqmin1_thb1_sealevel_hpa',30,$uombaro);
$rain30minuteago = MHsetRainDP($dayrn-MH_seqvals('seqmin1_rain0_total_mm',0,29,$uomrain,'plus'),$uomrain);
if(isset($WX['seqmin1_sol0_radiation_wqm'])) {$VPsolar30minuteago = MH_seqval('seqmin1_sol0_radiation_wqm',30,'wqm');}

$temp45minuteago = MH_seqval('seqmin1_th0_temp_c',45,$uomtemp);
$wind45minuteago = MH_seqval('seqmin1_wind0_speed_kn',45,$uomwind);
$gust45minuteago = MH_seqval('seqmin1_wind0_gustspeed_kn',45,$uomwind);
$dir45minuteago =  MH_getWindDir(MH_seqval('seqmin1_wind0_maindir_deg',45,'dir'));
$hum45minuteago =  MH_seqval('seqmin1_th0_hum_rel',45,'pct');
$dew45minuteago =  MH_seqval('seqmin1_th0_dew_c',45,$uomtemp);
$baro45minuteago = MH_seqval('seqmin1_thb1_sealevel_hpa',45,$uombaro);
$rain45minuteago = MHsetRainDP($dayrn-MH_seqvals('seqmin1_rain0_total_mm',0,44,$uomrain,'plus'),$uomrain);
if(isset($WX['seqmin1_sol0_radiation_wqm'])) {$VPsolar45minuteago = MH_seqval('seqmin1_sol0_radiation_wqm',45,'wqm');}

$temp60minuteago = MH_seqval('seqmin15_th0_temp_c',4,$uomtemp);
$wind60minuteago = MH_seqval('seqmin15_wind0_speed_kn',4,$uomwind);
$gust60minuteago = MH_seqval('seqmin15_wind0_gustspeed_kn',4,$uomwind);
$dir60minuteago =  MH_getWindDir(MH_seqval('seqmin15_wind0_maindir_deg',4,'dir'));
$hum60minuteago =  MH_seqval('seqmin15_th0_hum_rel',4,'pct');
$dew60minuteago =  MH_seqval('seqmin15_th0_dew_c',4,$uomtemp);
$baro60minuteago = MH_seqval('seqmin15_thb1_sealevel_hpa',4,$uombaro);
$lastHrCumul = MH_seqvals('seqmin1_rain0_total_mm',0,59,$uomrain,'plus');
$rain60minuteago = MHsetRainDP($dayrn-$lastHrCumul,$uomrain);
if(isset($WX['seqmin15_sol0_radiation_wqm'])) {$VPsolar60minuteago = MH_seqval('seqmin15_sol0_radiation_wqm',4,'wqm');}

$temp75minuteago = MH_seqval('seqmin15_th0_temp_c',5,$uomtemp);
$wind75minuteago = MH_seqval('seqmin15_wind0_speed_kn',5,$uomwind);
$gust75minuteago = MH_seqval('seqmin15_wind0_gustspeed_kn',5,$uomwind);
$dir75minuteago =  MH_getWindDir(MH_seqval('seqmin15_wind0_maindir_deg',5,'dir'));
$hum75minuteago =  MH_seqval('seqmin15_th0_hum_rel',5,'pct');
$dew75minuteago =  MH_seqval('seqmin15_th0_dew_c',5,$uomtemp);
$baro75minuteago = MH_seqval('seqmin15_thb1_sealevel_hpa',5,$uombaro);
$rain75minuteago = MHsetRainDP($dayrn-$lastHrCumul-MH_seqval('seqmin15_rain0_total_mm',4,$uomrain),$uomrain);
if(isset($WX['seqmin15_sol0_radiation_wqm'])) {$VPsolar75minuteago = MH_seqval('seqmin15_sol0_radiation_wqm',5,'wqm');}

$temp90minuteago = MH_seqval('seqmin15_th0_temp_c',6,$uomtemp);
$wind90minuteago = MH_seqval('seqmin15_wind0_speed_kn',6,$uomwind);
$gust90minuteago = MH_seqval('seqmin15_wind0_gustspeed_kn',6,$uomwind);
$dir90minuteago =  MH_getWindDir(MH_seqval('seqmin15_wind0_maindir_deg',6,'dir'));
$hum90minuteago =  MH_seqval('seqmin15_th0_hum_rel',6,'pct');
$dew90minuteago =  MH_seqval('seqmin15_th0_dew_c',6,$uomtemp);
$baro90minuteago = MH_seqval('seqmin15_thb1_sealevel_hpa',6,$uombaro);
$rain90minuteago = MHsetRainDP($dayrn-$lastHrCumul-MH_seqvals('seqmin15_rain0_total_mm',4,5,$uomrain,'plus'),$uomrain);
if(isset($WX['seqmin15_sol0_radiation_wqm'])) {$VPsolar90minuteago = MH_seqval('seqmin15_sol0_radiation_wqm',6,'wqm');}

$temp105minuteago = MH_seqval('seqmin15_th0_temp_c',7,$uomtemp);
$wind105minuteago = MH_seqval('seqmin15_wind0_speed_kn',7,$uomwind);
$gust105minuteago = MH_seqval('seqmin15_wind0_gustspeed_kn',7,$uomwind);
$dir105minuteago =  MH_getWindDir(MH_seqval('seqmin15_wind0_maindir_deg',7,'dir'));
$hum105minuteago =  MH_seqval('seqmin15_th0_hum_rel',7,'pct');
$dew105minuteago =  MH_seqval('seqmin15_th0_dew_c',7,$uomtemp);
$baro105minuteago = MH_seqval('seqmin15_thb1_sealevel_hpa',7,$uombaro);
$rain105minuteago = MHsetRainDP($dayrn-$lastHrCumul-MH_seqvals('seqmin15_rain0_total_mm',4,6,$uomrain,'plus'),$uomrain);
if(isset($WX['seqmin15_sol0_radiation_wqm'])) {$VPsolar105minuteago = MH_seqval('seqmin15_sol0_radiation_wqm',7,'wqm');}

$temp120minuteago = MH_seqval('seqmin15_th0_temp_c',8,$uomtemp);
$wind120minuteago = MH_seqval('seqmin15_wind0_speed_kn',8,$uomwind);
$gust120minuteago = MH_seqval('seqmin15_wind0_gustspeed_kn',8,$uomwind);
$dir120minuteago =  MH_getWindDir(MH_seqval('seqmin15_wind0_maindir_deg',8,'dir'));
$hum120minuteago =  MH_seqval('seqmin15_th0_hum_rel',8,'pct');
$dew120minuteago =  MH_seqval('seqmin15_th0_dew_c',8,$uomtemp);
$baro120minuteago = MH_seqval('seqmin15_thb1_sealevel_hpa',8,$uombaro);
$rain120minuteago = MHsetRainDP($dayrn-$lastHrCumul-MH_seqvals('seqmin15_rain0_total_mm',4,7,$uomrain,'plus'),$uomrain);
if(isset($WX['seqmin15_sol0_radiation_wqm'])) {$VPsolar120minuteago = MH_seqval('seqmin15_sol0_radiation_wqm',8,'wqm');}

// -- fixup --
$maxaverageyest = MH_seqval('seqday1_wind0_speed_kn',0,$uomwind);
$maxaverageyestt = MHtimeOnly($WX['last24h_wind0_speedmax_time']);
$maxavgdirectionletter = $WX['day1_wind0_maxspeeddir_en'];

$maxavgspd = $WX['day1_wind0_gustspeed_mph'];
$maxavgspdt = MHtimeOnly($WX['day1_wind0_gustspeedmax_time']);

if(isset($WX['yday_thb1_sealevelmax_inhg'])) {
	$maxbaroyest = $WX['yday_thb1_sealevelmax_inhg'];
    $maxbaroyestt = MHtimeOnly($WX['yday_thb1_sealevelmax_time']);
}
if(isset($WX['yday_thb1_sealevelmin_inhg'])) {
    $minbaroyest = $WX['yday_thb1_sealevelmin_inhg'];
    $minbaroyestt = MHtimeOnly($WX['yday_thb1_sealevelmin_time']);
}

$maxgstdirectionletter = $WX['day1_wind0_maxspeeddir_en'];

if(isset($WX['yday_wind0_gustspeed_mph'])) {
  $maxgustyest = $WX['yday_wind0_gustspeed_mph'];
  $maxgustyestt = MHtimeOnly($WX['yday_wind0_gustspeedmax_time']);
}

if(isset($WX['yday_wind0_chillmin_f'])) {
  $minchillyest = $WX['yday_wind0_chillmin_f'];
  $minchillyestt = MHtimeOnly($WX['yday_wind0_chillmin_time']);
}

$mrecordhighavwindday = substr($WX['month1_wind0_speedmax_time'],6,2);
$mrecordhighavwindmonth = substr($WX['month1_wind0_speedmax_time'],4,2);
$mrecordhighavwindyear = substr($WX['month1_wind0_speedmax_time'],0,4);

$mrecordhighbaro = $WX['month1_thb1_sealevelmax_inhg'];
$mrecordhighbaroday = substr($WX['month1_thb1_sealevelmax_time'],6,2);
$mrecordhighbaromonth = substr($WX['month1_thb1_sealevelmax_time'],4,2);
$mrecordhighbaroyear = substr($WX['month1_thb1_sealevelmax_time'],0,4);

$mrecordlowbaro = $WX['month1_thb1_sealevelmin_inhg'];
$mrecordlowbaroday = substr($WX['month1_thb1_sealevelmin_time'],6,2);
$mrecordlowbaromonth = substr($WX['month1_thb1_sealevelmin_time'],4,2);
$mrecordlowbaroyear = substr($WX['month1_thb1_sealevelmin_time'],0,4);

$mrecordhighgustmonth = substr($WX['month1_wind0_gustspeedmax_time'],4,2);
$mrecordhighgustyear = substr($WX['month1_wind0_gustspeedmax_time'],0,4);

$mrecordhightemp = $WX['month1_th0_tempmax_f'];
$mrecordhightempday = substr($WX['month1_th0_tempmax_time'],6,2);
$mrecordhightempmonth = substr($WX['month1_th0_tempmax_time'],4,2);
$mrecordhightempyear = substr($WX['month1_th0_tempmax_time'],0,4);

$mrecordlowchill = $WX['month1_wind0_chillmin_f'];
$mrecordlowchillday = substr($WX['month1_wind0_chillmin_time'],6,2);
$mrecordlowchillmonth = substr($WX['month1_wind0_chillmin_time'],4,2);
$mrecordlowchillyear = substr($WX['month1_wind0_chillmin_time'],0,4);

$mrecordlowtemp = $WX['month1_th0_tempmin_f'];
$mrecordlowtempday = substr($WX['month1_th0_tempmin_time'],6,2);
$mrecordlowtempmonth = substr($WX['month1_th0_tempmin_time'],4,2);
$mrecordlowtempyear = substr($WX['month1_th0_tempmin_time'],0,4);
$mrecordwindspeed = $WX['month1_wind0_speed_mph'];

$rmonth_array=array("shift","Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec");
$mwmonthindex= (int)$mrecordhightempmonth;
$mwmonthname = $rmonth_array[$mwmonthindex];
$mwarmestdayonrecord = "$mrecordhightemp ".$SITE['uomTemp']." on: $mwmonthname $mrecordhightempday $mrecordhightempyear";
$mwarmestnightonrecord = "$mrecordhightemp ".$SITE['uomTemp']." on: $mwmonthname $mrecordhightempday $mrecordhightempyear";
$mcmonthindex= (int)$mrecordlowtempmonth;
$mcmonthname = $rmonth_array[$mcmonthindex];
$mcoldestdayonrecord = "$mrecordlowtemp ".$SITE['uomTemp']." on: $mcmonthname $mrecordlowtempday $mrecordlowtempyear";
$mcoldestnightonrecord = "$mrecordlowtemp ".$SITE['uomTemp']." on: $mcmonthname $mrecordlowtempday $mrecordlowtempyear";


$raintodatemonthago = MH_seqval('seqmonth1_rain0_total_mm',0,$uomrain);

$yrecordhighavwindday = substr($WX['year1_wind0_speedmax_time'],6,2);
$yrecordhighavwindmonth = substr($WX['year1_wind0_speedmax_time'],4,2);
$yrecordhighavwindyear = substr($WX['year1_wind0_speedmax_time'],0,4);

$yrecordhighbaro = $WX['year1_thb1_sealevelmax_inhg'];
$yrecordhighbaroday = substr($WX['year1_thb1_sealevelmax_time'],6,2);
$yrecordhighbaromonth = substr($WX['year1_thb1_sealevelmax_time'],4,2);
$yrecordhighbaroyear = substr($WX['year1_thb1_sealevelmax_time'],0,4);

$yrecordlowbaro = $WX['year1_thb1_sealevelmin_inhg'];
$yrecordlowbaroday = substr($WX['year1_thb1_sealevelmin_time'],6,2);
$yrecordlowbaromonth = substr($WX['year1_thb1_sealevelmin_time'],4,2);
$yrecordlowbaroyear = substr($WX['year1_thb1_sealevelmin_time'],0,4);

$yrecordhighgustday = substr($WX['year1_wind0_gustspeedmax_time'],6,2);
$yrecordhighgustmonth = substr($WX['year1_wind0_gustspeedmax_time'],4,2);
$yrecordhighgustyear = substr($WX['year1_wind0_gustspeedmax_time'],0,4);

$yrecordhightemp = $WX['year1_th0_tempmax_f'];
$yrecordhightempday = substr($WX['year1_th0_tempmax_time'],6,2);
$yrecordhightempmonth = substr($WX['year1_th0_tempmax_time'],4,2);
$yrecordhightempyear = substr($WX['year1_th0_tempmax_time'],0,4);

$yrecordlowchill = $WX['year1_wind0_chillmin_f'];
$yrecordlowchillday = substr($WX['year1_wind0_chillmin_time'],6,2);
$yrecordlowchillmonth = substr($WX['year1_wind0_chillmin_time'],4,2);
$yrecordlowchillyear = substr($WX['year1_wind0_chillmin_time'],0,4);

$yrecordlowtemp = $WX['year1_th0_tempmin_f'];
$yrecordlowtempday = substr($WX['year1_th0_tempmin_time'],6,2);
$yrecordlowtempmonth = substr($WX['year1_th0_tempmin_time'],4,2);
$yrecordlowtempyear = substr($WX['year1_th0_tempmin_time'],0,4);

$yrecordwindgust = $WX['year1_wind0_gustspeedmax_mph'];
$yrecordwindspeed = $WX['year1_wind0_speed_mph'];

$Startimedate = date($SITE['timeFormat'],strtotime($WX['actual_localdate2'])-$WX['actual_data1_value_int']);

// -- end fixup --

// end of generation script
# MH unique functions included from MH-functions-inc.txt 
#-------------------------------------------------------------------------------------
# function processed WD variables
#-------------------------------------------------------------------------------------
global $SITE;

$SITE['commaDecimal'] = strpos($temperature,',') !==false?true:false; // using comma for decimal point?

if(isset($SITE['conditionsMETAR'])) { // override with METAR conditions for text and icon if requested.
	global $SITE;
	include_once("get-metar-conditions-inc.php");
	list($Currentsolardescription,$iconnumber) = mtr_conditions($SITE['conditionsMETAR'], $time, $sunrise, $sunset);
    if(isset($currentrainratehr) and 
      (!isset($SITE['overrideRain']) or (isset($SITE['overrideRain']) and $SITE['overrideRain'])) ) {
	  list($Currentsolardescription,$iconnumber) = 
	  MH_RainRateIcon($Currentsolardescription,$iconnumber,$currentrainratehr,$uomrain,$time,$sunrise,$sunset);
    }
}

# generate the separate date/time variables by dissection of input date/time and format
list($date_year,$date_month,$date_day,$time_hour,$time_minute,$monthname,$dayname)
  = MH_setDateTimes($date,$time,$SITE['WDdateMDY']);

$beaufortnum =  MH_beaufortNumber($avgspd,$uomwind);
$bftspeedtext = MH_beaufortText($beaufortnum);

list($chandler,$chandlertxt,$chandlerimg) = MH_CBI($temperature,$uomtemp,$humidity);

/* if(!isset($wdversion) and isset($SITE['WXsoftwareVersion'])) {
	$wdversion = $SITE['WXsoftwareVersion']; }
*/
$wdversion = $WX['actual_system_version_text'] . ' b' . $WX['actual_system_build_num'] . ' - ' .
    $WX['actual_system_platform_text'];

list($feelslike,$heatcolourword) = MH_setFeelslike ($temperature,$windch,$heati,$uomtemp);

$pressuretrendname = MH_get_barotrend_text($trend,$uombaro);

// if(substr($WX['year1_rain0_ratemax_time'],0,4) > '2010') { // got a last rain valid date
// $dateoflastrainalways = MHdateOnly($WX['year1_rain0_ratemax_time'],$SITE['WDdateMDY']);
// $timeoflastrainalways = MHtimeOnly($WX['year1_rain0_ratemax_time']);
//						 
// $dayswithnorain = intval((strtotime(date('Y-m-d'))-strtotime(MHISOdateOnly($WX['year1_rain0_ratemax_time']))-1)/86400);
//} // Note: above removed because it is not a good way to determine the values from existing Meteohub variables. V1.03
$raincurrentweek = 0;
for ($i=0;$i<7;$i++) {
	
	$raccumweek = MH_seqval('seqday1_rain0_total_mm',8,$uomrain);
	if(is_numeric($raccumweek)) {$raincurrentweek+= $raccumweek;}
}
$raincurrentweek = MHsetRainDP($raincurrentweek,$uomrain);

#-------------------------------------------------------------------------------------
# MH support function - MH_RainRateIcon
#-------------------------------------------------------------------------------------

function MH_RainRateIcon($inText,$inIcon,$inRate,$inUOM,$time,$sunrise,$sunset,$lastRain='0000-00-00T00:00:00') {
   global $Debug;
   
/*
Rainfall intensity is classified according to the rate of precipitation:

    Light rain � rate is < 2.5 mm (0.098 in) per hour
    Moderate rain � rate is between 2.5 mm (0.098 in) - 7.6 mm (0.30 in) or 10 mm (0.39 in) per hour
    Heavy rain � rate is > 7.6 mm (0.30 in) per hour, or between 10 mm (0.39 in) and 50 mm (2.0 in) per hour
    Violent rain � rate is > 50 mm (2.0 in) per hour
*/	
   $Debug .= "<!-- MH_RainRateIcon in='$inText' icon='$inIcon' rate='$inRate' uom='$inUOM' -->\n";
   $newText = '';  // assume no changes
   $newIcon = $inIcon;
   
   $rate = $inRate;
   if(preg_match('|in|i',$inUOM)) { // convert to mm/hr rate
     $rate = $inRate * 25.4;
   }
   
   if(substr($lastRain,0,4) <> '0000') {
	  if($rate < 0.001 and time()-strtotime($lastRain) < 30*60) {
		 $newText = 'Moderate Drizzle';
	  }
   }

   if ($rate > 0.0 and $rate < 2.5) { $newText = 'Light Rain'; }
   if ($rate >=2.5 and $rate < 7.6) { $newText = 'Moderate Rain'; }
   if ($rate >=7.6 and $rate < 50.0) { $newText = 'Heavy Rain'; }
   if ($rate >= 50.0)         { $newText = 'Violent Rain'; }
   
   if($newText <> '' or $rate == 0.0) {
	   if ($newText <> '' and $inText <> '') {$newText .= ', ';}
	   $newText .= 
	      preg_replace('/(Light|Moderate|Heavy|Violent|Extreme){0,1}\s*(Rain|Mist|Drizzle), /i','',$inText);
	   $newIcon = mtr_get_iconnumber ($time,$newText,$sunrise,$sunset); 
   } else {
	   $newText = $inText;
   }
   $Debug .= "<!-- MH_RainRateIcon out='$newText' icon='$newIcon' rate='$rate' mm/hr -->\n";
   return(array($newText,$newIcon));
}

#-------------------------------------------------------------------------------------
# MH support function - MHtimeOnly
#-------------------------------------------------------------------------------------

function MHsetRainDP ($val,$units) {
	if(preg_match('|in|',$units)) {
		return(sprintf("%01.2f",$val));
	} else {
		return(sprintf("%01.1f",$val));
	}
	
}
#-------------------------------------------------------------------------------------
# MH support function - MHtimeOnly
#-------------------------------------------------------------------------------------

function MHtimeOnly ($indatetime) {
// Return HH:MM (24hr time format)
// expecting
// 0....+....1....+
// 20110622061003
// yyyymmddhhMMss
  return(substr($indatetime,8,2).':'.substr($indatetime,10,2));
}

#-------------------------------------------------------------------------------------
# MH support function - MHdateOnly
#-------------------------------------------------------------------------------------

function MHdateOnly ($indatetime,$MDY=true) {
// Return dd/mm/yyyy or mm/dd/yyyy
// expecting
// 0....+....1....+
// 20110622061003
// yyyymmddhhMMss
  if($MDY) {
    return(substr($indatetime,4,2).'/'.substr($indatetime,6,2).'/'.substr($indatetime,0,4));
  } else {
    return(substr($indatetime,6,2).'/'.substr($indatetime,4,2).'/'.substr($indatetime,0,4));
  }
}

#-------------------------------------------------------------------------------------
# MH support function - MHdateOnly
#-------------------------------------------------------------------------------------

function MHISOdateOnly ($indatetime) {
// Return dd/mm/yyyy or mm/dd/yyyy
// expecting
// 0....+....1....+
// 20110622061003
// yyyymmddhhMMss
    return(substr($indatetime,0,4).'-'. substr($indatetime,4,2).'-'.substr($indatetime,6,2));
}

#-------------------------------------------------------------------------------------
# MH support function - MHWDrecordDate
#-------------------------------------------------------------------------------------

function MHWDrecordDate ($indatetime) {
// extract Y, M, D and return as array
// expecting
// 0....+....1....+
// 20110622061003
// yyyymmddhhMMss
  return(array(substr($indatetime,0,4),substr($indatetime,4,2),substr($indatetime,6,2)));
}

#-------------------------------------------------------------------------------------
# MH support function - MHfixupTime
#-------------------------------------------------------------------------------------

function MHfixupTime ($intime) {
  global $Debug;
  $tfixed = preg_replace('/^(\S+)\s+(\S+)$/is',"$2",$intime);
  $t = explode(':',$tfixed);
  if (preg_match('/p/i',$tfixed)) { $t[0] = $t[0] + 12; }
  if ($t[0] > 23) {$t[0] = 12; }
  if (preg_match('/^12.*a/i',$tfixed)) { $t[0] = 0; }
  if ($t[0] < '10') {$t[0] = sprintf("%02d",$t[0]); } // leading zero on hour.
  $t2 = join(':',$t); // put time back to gether;
  $t2 = preg_replace('/[^\d\:]/is','',$t2); // strip out the am/pm if any
  $Debug .= "<!-- MHfixupTime in='$intime' tfixed='$tfixed' out='$t2' -->\n";
  return($t2);
  	
} // end MHfixupTime

#-------------------------------------------------------------------------------------
# MH support function - MH_setDateTimes
#-------------------------------------------------------------------------------------

function MH_setDateTimes ($indate,$intime,$MDYformat=true) {
// returns: $date_year,$date_month,$date_day,$time_hour,$time_minute,$date_month,$monthname,$dayname
  global $Debug;
  $Debug .= "<!-- MH_setDateTimes date='$indate' time=$intime' MDY=$MDYformat -->\n";
  $d = explode('/',$indate);
  if(!isset($d[2])) {$d = explode("-",$indate);}
  if($d[2]<2000) {$d[2]+=2000;}
  if($MDYformat) { // mm/dd/yyyy
    $YMD = "$d[2]-$d[0]-$d[1]";
  } else {         // dd/mm/yyyy
    $YMD = "$d[2]-$d[1]-$d[0]";
  }
  $t = MHfixupTime($intime);
  
  $MHtime = strtotime("$YMD $t:00");
  $Debug .= "<!-- MH_setDateTimes MHtime='$YMD $t:00' assembled -->\n";
   
  $MHtime = date('Y m d H i F l',$MHtime);
  $Debug .= "<!-- MH_setDateTimes MHtime='$MHtime' values set -->\n";
  if(isset($_REQUEST['debug'])) {echo $Debug; } 
  return(explode(' ',$MHtime)); // results returned in array for list() assignment
  	
} // end MH_setDateTimes

#-------------------------------------------------------------------------------------
# MH support function - MH_beaufortNumber
#-------------------------------------------------------------------------------------

function MH_beaufortNumber ($inWind,$usedunit) {
   global $Debug;
   
   $rawwind = $inWind;
// first convert all winds to knots
   if(strpos($inWind,',') !== false) {
	   $rawwind = preg_replace('|,|','.',$inWind);
   }
   $wind0kts = 0.0;
   if       (preg_match('/kts|knot/i',$usedunit)) {
	   $wind0kts = $rawwind * 1.0;
   } elseif (preg_match('/mph/i',$usedunit)) {
	   $wind0kts = $rawwind * 0.8689762;
   } elseif (preg_match('/mps|m\/s/i',$usedunit)) {
	   $wind0kts = $rawwind * 1.94384449;
   } elseif  (preg_match('/kmh|km\/h/i',$usedunit)) {
	   $wind0kts = $rawwind * 0.539956803;
   } else {
	   $Debug .= "<!-- MH_beaufortNumber .. unknown input unit '$usedunit' for wind=$rawwind -->\n";
	   $wind0kts = $rawwind * 1.0;
   }

// return a number for the beaufort scale based on wind in knots
  if ($wind0kts < 1 ) {return(0); }
  if ($wind0kts < 4 ) {return(1); }
  if ($wind0kts < 7 ) {return(2); }
  if ($wind0kts < 11 ) {return(3); }
  if ($wind0kts < 17 ) {return(4); }
  if ($wind0kts < 22 ) {return(5); }
  if ($wind0kts < 28 ) {return(6); }
  if ($wind0kts < 34 ) {return(7); }
  if ($wind0kts < 41 ) {return(8); }
  if ($wind0kts < 48 ) {return(9); }
  if ($wind0kts < 56 ) {return(10); }
  if ($wind0kts < 64 ) {return(11); }
  if ($wind0kts >= 64 ) {return(12); }
  return("0");
} // end MH_beaufortNumber

#-------------------------------------------------------------------------------------
# MH support function - MH_beaufortText
#-------------------------------------------------------------------------------------

function MH_beaufortText ($beaufortnumber) {

  $B = array( /* Beaufort 0 to 12 in English */
   "Calm", "Light air", "Light breeze", "Gentle breeze", "Moderate breeze", "Fresh breeze",
   "Strong breeze", "Near gale", "Gale", "Strong gale", "Storm",
   "Violent storm", "Hurricane"
  );

  if(isset($B[$beaufortnumber])) {
	return $B[$beaufortnumber];
  } else {
    return "Unknown $beaufortnumber Bft";
  }
	
	
} // end MH_beaufortText

#-------------------------------------------------------------------------------------
# MH support function - MH_setFeelslike
#-------------------------------------------------------------------------------------


function MH_setFeelslike ($temp,$windchill,$heatindex,$tempUOM) {
global $Debug;
// establish the feelslike temperature and return a word describing how it feels

$HeatWords = array(
 'Unknown', 'Extreme Heat Danger', 'Heat Danger', 'Extreme Heat Caution', 'Extremely Hot', 'Uncomfortably Hot',
 'Hot', 'Warm', 'Comfortable', 'Cool', 'Cold', 'Uncomfortably Cold', 'Very Cold', 'Extreme Cold' );

// first convert all temperatures to Centigrade if need be
  $TC = $temp;
  $WC = $windchill;
  $HC = $heatindex;
  
  if(strpos($TC,',') !== false) {
	$TC = preg_replace('|,|','.',$temp);
	$WC = preg_replace('|,|','.',$windchill);
	$HC = preg_replace('|,|','.',$heatindex);
  }
  
  if (preg_match('|F|i',$tempUOM))  { // convert F to C if need be
	 $TC = sprintf("%01.1f",round(($TC-32.0) / 1.8,1));
	 $WC = sprintf("%01.1f",round(($WC-32.0) / 1.8,1));
	 $HC = sprintf("%01.1f",round(($HC-32.0) / 1.8,1));
  }
 
 // Feelslike
 
  if ($TC <= 16.0 ) {
	$feelslike = $WC; //use WindChill
  } elseif ($TC >=27.0) {
	$feelslike = $HC; //use HeatIndex
  } else {
	$feelslike = $TC;   // use temperature
  }

  if (preg_match('|F|i',$tempUOM))  { // convert C back to F if need be
	$feelslike = (1.8 * $feelslike) + 32.0;
  }
  $feelslike = round($feelslike,0);

// determine the 'heat color word' to use  
 $hcWord = $HeatWords[0];
 $hcFound = false;
 if ($TC > 32 and $HC > 29) {
	if ($HC > 54 and ! $hcFound) { $hcWord = $HeatWords[1]; $hcFound = true;}
	if ($HC > 45 and ! $hcFound) { $hcWord = $HeatWords[2]; $hcFound = true; }
	if ($HC > 39 and ! $hcFound) { $hcWord = $HeatWords[4]; $hcFound = true; }
	if ($HC > 29 and ! $hcFound) { $hcWord = $HeatWords[6]; $hcFound = true; }
 } elseif ($WC < 16 ) {
	if ($WC < -18 and ! $hcFound) { $hcWord = $HeatWords[13]; $hcFound = true; }
	if ($WC < -9 and ! $hcFound)  { $hcWord = $HeatWords[12]; $hcFound = true; }

	if ($WC < -1 and ! $hcFound)  { $hcWord = $HeatWords[11]; $hcFound = true; }
	if ($WC < 8 and ! $hcFound)   { $hcWord = $HeatWords[10]; $hcFound = true; }
	if ($WC < 16 and ! $hcFound)  { $hcWord = $HeatWords[9]; $hcFound = true; }
 } elseif ($WC >= 16 and $TC <= 32) {
	if ($TC <= 26 and ! $hcFound) { $hcWord = $HeatWords[8]; $hcFound = true; }
	if ($TC <= 32 and ! $hcFound) { $hcWord = $HeatWords[7]; $hcFound = true; }
 }

 if(isset($_REQUEST['debug'])) {
  echo "<!-- MH_setFeelslike input T,WC,HI,U='$temp,$windchill,$heatindex,$tempUOM' cnvt T,WC,HI='$TC,$WC,$HC' feelslike=$feelslike hcWord=$hcWord -->\n";
 }

 return(array($feelslike,$hcWord));
	
} // end of MH_setFeelslike

#-------------------------------------------------------------------------------------
# MH support function - MH_CBI - Chandler Burning Index
#-------------------------------------------------------------------------------------

function MH_CBI($inTemp,$inTempUOM,$inHumidity) {
	// thanks to Chris from sloweather.com for the CBI calculation script
	// modified by Ken True for template usage
	
	preg_match('/([\d\.\,\+\-]+)/',$inTemp,$t); // strip non-numeric from inTemp if any
	$ctemp = $t[1];
	if(strpos($ctemp,',') !== false) {
		$ctemp = preg_replace('|,|','.',$ctemp);
	}
	if(!preg_match('|C|i',$inTempUOM)) {
	  $ctemp = ($ctemp-32.0) / 1.8; // convert from Fahrenheit	
	}
	preg_match('/([\d\.\,\+\-]+)/',$inHumidity,$t); // strip non-numeric from inHumidity if any
	$rh = $t[1];
	if(strpos($rh,',') !== false) {
		$rh = preg_replace('|,|','.',$rh);
	}

	// Start Index Calcs
	
	// Chandler Index
	$cbi = (((110 - 1.373 * $rh) - 0.54 * (10.20 - $ctemp)) * (124 * pow(10,-0.0142 * $rh) ))/60;
	// CBI = (((110 - 1.373*RH) - 0.54 * (10.20 - T)) * (124 * 10**(-0.0142*RH)))/60
	
	//Sort out the Chandler Index
	$cbi = round($cbi,1);
	if ($cbi > "97.5") {
		$cbitxt = "EXTREME";
		$cbiimg= "fdl_extreme.gif";
	
	} elseif ($cbi >="90") {
		$cbitxt = "VERY HIGH";
		$cbiimg= "fdl_vhigh.gif";
	
	} elseif ($cbi >= "75") {
		$cbitxt = "HIGH";
		$cbiimg= "fdl_high.gif";
	
	} elseif ($cbi >= "50") {
		$cbitxt = "MODERATE";
		$cbiimg= "fdl_moderate.gif";
	
	} else {
		$cbitxt="LOW";
		$cbiimg= "fdl_low.gif";
	}
	 $data = array($cbi,$cbitxt,$cbiimg);
	 return $data;
	 
} // end MH_CBI

#-------------------------------------------------------------------------------------
# MH support function - MH_getRecordDate - Convert 'dd Month '.'YYYY' to list(d,m,y)
#-------------------------------------------------------------------------------------

function MH_getRecordDate($inDayMonth,$inYear) {
  global $SITE,$Debug;
  
  $EnglishMonths = array(
   'January','February','March','April','May','June',
   'July','August','September','October','November','December');
   
  
  $tstr = $inDayMonth . ' ' . $inYear;
  $Debug .= "<!-- MH_getRecordDate input tstr='$tstr' -->\n";

 // input dates are assumed to be in English only
 if (isset($SITE['monthNames'])) {
    // convert TO English for strtotime()
	foreach ($EnglishMonths as $i => $monthEN) {
	   $tstr = preg_replace('|'.$SITE['monthNames'][$i].'|i',$monthEN,$tstr);
	}  
    $Debug .= "<!-- MH_getRecordDate after tstr='$tstr' -->\n";
  }

  $ttime = strtotime($tstr);
  $ltime = date('j n Y',$ttime);
  $Debug .= "<!-- MH_getRecordDate result ltime='$ltime' -->\n";
  return(explode(' ',$ltime));

}

#-------------------------------------------------------------------------------------
# MH support function - MH_getAlltimeDate - Convert 'at 2:45 PM on 16 October 2009' to list(d,m,y)
#-------------------------------------------------------------------------------------

function MH_getAlltimeDate($inDate) {
  global $SITE,$Debug;
  
  $EnglishMonths = array(
   'January','February','March','April','May','June',
   'July','August','September','October','November','December');

  $Debug .= "<!-- MH_getAlltimeDate input inDate='$inDate' -->\n";
   
  if(preg_match('|^at (.*) on (.*)$|i',$inDate)) { // at 2:45 PM on 16 October 2009
    $tstr = "$2 $1";
  } elseif (preg_match('|^on (.*)$|i',$inDate)) { // on 16 October 2009
    $tstr = "$1";
  }

 // input dates are assumed to be in English only
 if (isset($SITE['monthNames'])) {
    // convert TO English for strtotime()
	foreach ($EnglishMonths as $i => $monthEN) {
	   $tstr = preg_replace('|'.$SITE['monthNames'][$i].'|i',$monthEN,$tstr);
	}  
    $Debug .= "<!-- MH_getAlltimeDate after tstr='$tstr' -->\n";
  }

  $ttime = strtotime($tstr);
  $ltime = date('j n Y H:i',$ttime);
  $Debug .= "<!-- MH_getAlltimeDate result ltime='$ltime' -->\n";
  return(explode(' ',$ltime));

}

#-------------------------------------------------------------------------------------
# MH support function - MH_get_barotrend_text
#-------------------------------------------------------------------------------------

function MH_get_barotrend_text($rawpress,$usedunit='hPa') {
  global $myUOM,$dpBaro,$Debug;
// routine from Anole's wxsticker PHP (adapted)  
//   Barometric Trend(3 hour)

// Change Rates
// Rapidly: =.06" inHg; 1.5 mm Hg; 2 hPa; 2 mb
// Slowly: =.02" inHg; 0.5 mm Hg; 0.7 hPa; 0.7 mb

// 5 Arrow Positions:
// Rising Rapidly
// Rising Slowly
// Steady
// Falling Slowly
// Falling Rapidly

// Page 52 of the PDF Manual
// http://www.davisnet.com/product_documents/weather/manuals/07395.234-VP2_Manual.pdf

// first convert to hPa for comparisons
	 if (preg_match('/hPa|mb/i',$usedunit)) {
		$btrend = sprintf("%02.1f",round($rawpress * 1.0,1)); // leave in hPa
	 } elseif (preg_match('/mm/i',$usedunit)) {
	   $btrend = sprintf("%02.1f",round($rawpress * 1.333224,1)); 
	 } else {
		$btrend = sprintf("%02.1f",round($rawpress  / 33.86388158,1));
	 }

   // figure out a text value for barometric pressure trend
   (float)$baromtrend = $btrend;
//   settype($baromtrend, "float");
   switch (TRUE) {
      case (($baromtrend >= -0.6) and ($baromtrend <= 0.6)):
        $baromtrendwords = "Steady";
      break;
      case (($baromtrend > 0.6) and ($baromtrend < 2.0)):
        $baromtrendwords = "Rising Slowly";
      break;
      case ($baromtrend >= 2.0):
        $baromtrendwords = "Rising Rapidly";
      break;
      case (($baromtrend < -0.6) and ($baromtrend > -2.0)):
        $baromtrendwords = "Falling Slowly";
      break;
      case ($baromtrend <= -2.0):
        $baromtrendwords = "Falling Rapidly";
      break;
   } // end switch
   $Debug .= "<!-- MH_get_barotrend_text in=$rawpress $usedunit out=$btrend hPa [$baromtrend] ($baromtrendwords) -->\n";
  return($baromtrendwords);
}

#-------------------------------------------------------------------------------------
# MH support function - MH_seqval
#-------------------------------------------------------------------------------------

function MH_seqval ($tag,$index,$outUOM) {
	// purpose: explode seq... array from tag, extract one value by index and convert
	// from default UOM to needed UOM in site
	global $WX,$Debug;
	if(!isset($WX[$tag])) {
		$Debug .= "<!-- MH_seqval error: tag '$tag' not in \$WX array -->\n";
		return ("");
	}
	$vals = explode(" ",$WX[$tag]);
	if(!isset($vals[$index])) {
		$Debug .= "<!-- MH_seqval error: index $index not in \$WX['$tag'] array -->\n";
		return ("");
	}
	$val = $vals[$index];  // got the thing
	$uoms = explode("_",$tag);
	$inUOM = array_pop($uoms); // get UOM from tag name
	
	$outVal = $val; // default to return with NO CONVERSION
	
	// perform required conversions based on UOMs
	switch ($inUOM) {
	  case 'c': // temperature conversion
		 if(preg_match('|F|i',$outUOM) ) {
			  $outVal = round(($val * 1.8) + 32.0,1);
		 }
		 $outVal = sprintf("%01.1f",$outVal); // ensure 1 decimal point
		 break;
	  case 'kn':  // wind conversion
		if(preg_match('|mph|i',$outUOM) ) { // kts->mph
		   $outVal = sprintf("%01.1f",round($val*1.15077945,1));
		}
		if(preg_match('/(ms|mps|m\/s)/i',$outUOM) ) { // kts->meters per second
		   $outVal = sprintf("%01.1f",round($val*0.514444444,1));
		}
		if(preg_match('/(kmh|kph|km\/h)/i',$outUOM) ) { // kts->kilometers per hour
		   $outVal = sprintf("%01.1f",round($val*1.85200,1));
		}
		break;
	  case 'hpa': // barometer conversion
		if(preg_match('|inHg|i',$outUOM) ) {
		  $outVal = (float)($val * 0.0295333727 );  // hPa(or mb) to inHg
		  $outVal = sprintf("%01.2f",round($outVal,2));
		} else {
		 $outVal = sprintf("%01.1f",round($val,1));
		}
		break;
	  case 'mm': // rain conversion
		 if(preg_match('|in|i',$outUOM) ) { // convert mm to inches
			  $outVal = (float)($val * 0.0393700787);
			  $outVal = sprintf("%01.2f",round($outVal,2));
		 }
	     break;
	  case 'rel': // humidity
		 
		$outVal = round($val,0);
		 
		 break;
	} // end switch($inUOM)
	
	$Debug .= "<!-- MH_seqval \$WX['$tag'][$index]='$val' - convert '$inUOM' to '$outUOM' = '$outVal' -->\n";
	return($outVal);
}

#-------------------------------------------------------------------------------------
# MH support function - MH_seqvals
#-------------------------------------------------------------------------------------

function MH_seqvals ($tag,$istart,$iend,$outUOM,$oper) {
	// purpose: explode seq... array from tag, extract one value by index and convert
	// from default UOM to needed UOM in site
	global $WX,$Debug;
	if(!isset($WX[$tag])) {
		$Debug .= "<!-- MH_seqval error: tag '$tag' not in \$WX array -->\n";
		return ("");
	}
	$vals = explode(" ",$WX[$tag]);
	$val = 0;
	for ($index=$istart;$index<=$iend;$index++) {
	
		if(!isset($vals[$index])) {
			echo "<!-- MH_seqval error: index $index not in \$WX['$tag'] array -->\n";
			return ("");
		} else {
			$t = $vals[$index];  // got the thing
			if ($oper == 'plus') {$val += $t;}
			if ($oper == 'minus') {$val -= $t;}
		}
	}
	$uoms = explode("_",$tag);
	$inUOM = array_pop($uoms); // get UOM from tag name
	
	$outVal = $val; // default to return with NO CONVERSION
	
	// perform required conversions based on UOMs
	switch ($inUOM) {
	  case 'c': // temperature conversion
		 if(preg_match('|F|i',$outUOM) ) {
			  $outVal = round(($val * 1.8) + 32.0,1);
		 }
		 $outVal = sprintf("%01.1f",$outVal); // ensure 1 decimal point
		 break;
	  case 'kn':  // wind conversion
		if(preg_match('|mph|i',$outUOM) ) { // kts->mph
		   $outVal = sprintf("%01.1f",round($val*1.15077945,1));
		}
		if(preg_match('/(ms|mps|m\/s)/i',$outUOM) ) { // kts->meters per second
		   $outVal = sprintf("%01.1f",round($val*0.514444444,1));
		}
		if(preg_match('/(kmh|kph|km\/h)/i',$outUOM) ) { // kts->kilometers per hour
		   $outVal = sprintf("%01.1f",round($val*1.85200,1));
		}
		break;
	  case 'hpa': // barometer conversion
		if(preg_match('|inHg|i',$outUOM) ) {
		  $outVal = (float)($val * 0.0295333727 );  // hPa(or mb) to inHg
		  $outVal = sprintf("%01.2f",round($outVal,2));
		} else {
		 $outVal = sprintf("%01.1f",round($val,1));
		}
		break;
	  case 'mm': // rain conversion
		 if(preg_match('|in|i',$outUOM) ) { // convert mm to inches
			  $outVal = (float)($val * 0.0393700787);
			  $outVal = sprintf("%01.2f",round($outVal,2));
		 }
	     break;
	  case 'rel': // humidity
		 
		$outVal = round($val,0);

		 
		 break;
	} // end switch($inUOM)
	echo "<!-- MH_seqvals \$WX['$tag'][$istart]-[$iend] $oper='$val' - convert '$inUOM' to '$outUOM' = '$outVal' -->\n";
	
	return($outVal);
}

#-------------------------------------------------------------------------------------
# MH support function - MH_seqval
#-------------------------------------------------------------------------------------

function MH_getWindDir ($degrees) {
   // figure out a text value for compass direction
// Given the wind direction, return the text label
// for that value.  16 point compass
   $winddir = $degrees;
   if ($winddir == "n/a") { return($winddir); }

  if (!isset($winddir)) {
    return "---";
  }
  if (!is_numeric($winddir)) {
	return($winddir);
  }
  $windlabel = array ("N","NNE", "NE", "ENE", "E", "ESE", "SE", "SSE", "S",
	 "SSW","SW", "WSW", "W", "WNW", "NW", "NNW");
  $dir = $windlabel[ (integer)fmod((($winddir + 11) / 22.5),16) ];
  return($dir);

} // end function getWindDir

#-------------------------------------------------------------------------------------
# end of MH support functions
#-------------------------------------------------------------------------------------
?>