mph conversion
// Version 1.08 - 20-Sep-2007 update to reflect change in NDBC website
// Version 1.09 - 22-Sep-2007 more update to add debugging code and more NDBC website changes
// Version 1.10 - 15-Oct-2007 new kts=Y/N parm, $showKnots spec force wind to Knots display
// Version 1.11 - 28-Dec-2007 added another fix for processing on IIS servers
// Version 1.12 - 21-Feb-2008 added features for simpler include to webpage
// Version 1.13 - 22-Mar-2008 corrected generated CSS + more ISS support
//
$Version = "buoy-data.php V1.13 22-Mar-2008";
// error_reporting(E_ALL); // uncomment to turn on full error reporting
// script available at https://saratoga-weather.org/scripts.php
//
// you may copy/modify/use this script as you see fit,
// no warranty is expressed or implied.
//
// Customized for: buoy data from www.nbdc.noaa.gov using
// https://www.ndbc.noaa.gov/radial_search.php
//
// output: creates XHTML 1.0-Strict HTML page
//
// Options on URL:
// units=E (default)-- use English units in display
// units=M -- use Metric units in display
//
// cnv=Y (default)-- convert wind speed m/s->kph and kts->mph
// cnv=N -- leave wind speed in m/s and kts
//
// inc=Y -- returns only the body code for inclusion
// in other webpages. Omit to return full HTML.
// inc=CSS -- returns the CSS style sheet only
// inc=MAP -- returns the map with rotating values display
// inc=TABLE -- returns the table of values
//
// for debugging purposes, these are useful:
//
// show=normal (default) - shows normal graphic
// show=hotspots - shows graphic with hotspots outlined in green
// show=map - returns graphic only with outlined hotspots
//
// cfg=list - display config info as HTML comments
//
// example URL:
// https://your.website/buoy-data.php?inc=Y&distance=300
// would return data without HTML header/footer for buoys
// within a 300 nautical mile radius of your location.
//
// Usage:
// you can use this webpage standalone (customize the HTML portion below)
// or you can include it in an existing page by doing the following:
//
// in the portion of your page insert
// portion where you'd like the map/table to appear
// part otherwise the
// mesomap will not be formatted correctly.
//
// Alternative method for PHP only:
//
// $doPrintBUOY = false;
// include("buoy-data.php");
// print $BUOY_CSS;
//
// in the section of the page, then in the section
//
// print $BUOY_MAP; print $BUOY_TABLE;
//
// settings: ---------------------------------------------------------------
// most of the script is controlled by the $Config file, so make sure
// it is correct ;-)
//
// ------- REQUIRED SETTINGS ------
$Config = 'mybuoy-SouthEast.txt'; // configuration file name
//
// use the config file listed above to control the mapimage name, location,
// and buoys to be processed. See the sample files for more examples.
//
//
$DefaultUnits = 'E'; // 'E' = English, 'M' = Metric, may be
// overridden by units=M or units=E parameter
//
$ourTZ = 'EST5EDT'; //NOTE: this *MUST* be set correctly to
// translate UTC times to your LOCAL time for the displays.
// https://saratoga-weather.org/timezone.txt has the list of timezone names
// pick the one that is closest to your location and put in $ourTZ like:
// $ourTZ = 'America/Los_Angeles'; // or
// $ourTZ = 'Europe/Brussels';
// also available is the list of country codes (helpful to pick your zone
// from the timezone.txt table
// https://saratoga-weather.org/country-codes.txt : list of country codes
// ------- END OF REQUIRED SETTINGS ------
//
// cacheName is name of file used to store cached NDBC webpage
//
$cacheName = "NDBC-buoydata.txt"; // used to store the file so we
// don't have to fetch it each time
// Note: the cache name will have an E or M prepended to the .txt so there
// can be separate cache files for English and Metric measurements.
// If you use more than one instance of the script in a directory with
// different config files, then be sure to change $cacheName to prevent
// interference between the scripts.
//
$refetchSeconds = 600; // refetch every nnnn seconds (600=10 minutes)
//
$doWindConvert = true; // convert knots->mph and m/s->kph (override by
// cvt=Y or cvt=N parm on URL.
$showKnots = false; // always show wind in Knots (set =true )
// override by kts=Y or kts=N on URL.
//
$windArrowDir = './arrows/'; // set to directory with wind arrows, or
// set to '' if wind arrows are not wanted
// the program will test to see if images are
// available, and set it to '' if no images are
// found in the directory specified.
// // used for rotating legend display :
$windArrowSize = 'S'; // ='S' for Small 9x9 arrows (*-sm.gif)
// ='L' for Large 14x14 arrows (*.gif)
//
// program control variables. Set to false to turn off, or true to turn on
//
$showNoData = true; // display 'no recent data' in table
// set to true if you want to see those
$doPrintTable = true; // turn on/off print of the table data
$doPrintMap = true; // turn on/off print of the meso-map
//
//$timeFormat = 'D, Y-m-d H:i:s T'; // Fri, 2006-03-31 14:03:22 TZone
$timeFormat = 'D, Y-m-d H:i:s T'; //
//
//
// end of settings ------------------------------------------------------
//
// Changes to the code below are not required for normal operation. There
// are areas where the HTML can be tweaked (marked with comments). If you
// want to do code changes, be aware that the HTML is generated and stored
// in variables, then output at the last of the main program (before the
// function definitions) so finding what to tweak may be a challenge..
// Good luck, and best regards, Ken
//
if (isset($_REQUEST['sce']) && strtolower($_REQUEST['sce']) == 'view' ) {
//--self downloader --
$filenameReal = __FILE__;
$download_size = filesize($filenameReal);
header('Pragma: public');
header('Cache-Control: private');
header('Cache-Control: no-cache, must-revalidate');
header("Content-type: text/plain");
header("Accept-Ranges: bytes");
header("Content-Length: $download_size");
header('Connection: close');
readfile($filenameReal);
exit;
}
// process parameters
// include the settings override file if it exists
if (file_exists("buoy-data-config.txt")) {
require_once("buoy-data-config.txt");
}
if(isset($_REQUEST['units'])) {
$myUOM = strtoupper($_REQUEST['units']);
} else {
$myUOM = '';
}
if ($myUOM <> "E" and $myUOM <> "M" ) {
$myUOM = "$DefaultUnits";
}
if ($myUOM == "E") {
$distUnits = "nm";
} else {
$distUnits = "km";
}
if (isset($_REQUEST['cvt']) &&
strtoupper($_REQUEST['cvt']) == 'N') {
$doWindConvert = false;
}
if (isset($_REQUEST['cvt']) &&
strtoupper($_REQUEST['cvt']) == 'Y') {
$doWindConvert = true;
}
if (isset($_REQUEST['kts']) &&
strtoupper($_REQUEST['kts']) == 'Y') {
$showKnots = true;
}
if (isset($_REQUEST['kts']) &&
strtoupper($_REQUEST['kts']) == 'N') {
$showKnots = false;
}
if (! isset($doPrintBUOY) ) { $doPrintBUOY = true; }
if (isset($_REQUEST['inc'])) {
$includeOnly = strtoupper($_REQUEST['inc']); // any nonblank is ok
} else {
$includeOnly = '';
}
if ($includeOnly == 'CSS') {
$CSSonly = true;
} else {
$CSSonly = false;
}
if ($includeOnly == 'MAP') {
$doPrintTable = false;
$doPrintMap = true;
}
if ($includeOnly == 'TABLE') {
$doPrintTable = true;
$doPrintMap = false;
}
// show map with hotspots outlined
if (isset($_REQUEST['show']) && strtolower($_REQUEST['show']) == 'map' ) {
$ShowMap = '&show=map';
$genJPEG = true;
} else {
$ShowMap = ''; // no outlines for map
$genJPEG = false;
}
if($windArrowDir && ! file_exists("$windArrowDir" . 'NNE.gif') ) {
$windArrowDir = ''; // bad spec.. no arrows found
}
if (isset($_REQUEST['cfg']) && strtolower($_REQUEST['cfg']) == 'list') {
$doListConfig = true;
} else {
$doListConfig = false;
}
if (isset($_REQUEST['cache']) && strtolower($_REQUEST['cache']) == 'no') {
$refetchSeconds = 10; // set short period for refresh of cache
}
$t = pathinfo(__FILE__);
$Program = $t['basename'];
if (!isset($PHP_SELF)) {$PHP_SELF = $_SERVER['PHP_SELF']; }
// Constants -------------------------------------------------------------
// don't change $baseURL or $fileName or script may break ;-)
$NDBCURL = "https://www.ndbc.noaa.gov"; //NDBC website (omit trailing slash)
// end of constants ------------------------------------------------------
// ------------- Main code starts here -------------------
global $seenBuoy,$MapImage,$myLat,$myLong,$Buoys,$table,$scroller,$Status;
global $myUOM,$doWindConvert,$showKnots;
// Establish timezone offset for time display
putenv("TZ=$ourTZ");
$Status = "\n" .
"\n" .
"\n";
$timediff = tzdelta();
$curTZ = date('T',time());
// $Status .= "\n";
load_config($Config); // Load the configuration file
// show image of map with hotspots outlined
if (isset($_REQUEST['show']) && strtolower($_REQUEST['show']) == 'hotspots' ) {
$ourGraphic = $SCRIPT_URI . "?show=map";
$toggleState = "Now showing Hotspots -- click to show normal graphic.\n";
} else {
$ourGraphic = $MapImage; // no outlines for map
$toggleState = "Now showing normal graphic -- click to show hotspots outlined.\n";
}
if ($genJPEG) { // just produce the map with hotspots outlined
outline_hotspots($MapImage);
exit;
}
$Units = load_units(); // setup display units
$Status .= "\n";
load_strings(); // load the assembly strings for CSS, HTML, Maps
// Change cache name to handle both English and Metric caches
$cacheName = str_replace(".txt","$myUOM.txt",$cacheName);
$fileName = "https://www.ndbc.noaa.gov/radial_search.php?lat1=$myLat&lon1=$myLong&uom=$myUOM&dist=$maxDistance&ot=A&time=2";
// refresh cached copy of page if needed
// fetch/cache code by Tom at carterlake.org
if (file_exists($cacheName) and filemtime($cacheName) + $refetchSeconds > time()) {
$Status .= "\n";
$html = implode('', file($cacheName));
$Status .= "\n";
} else {
$Status .= "\n";
$html = fetchUrlWithoutHanging($fileName);
$Status .= "\n";
$fp = fopen($cacheName, "w");
if ($fp) {
$write = fputs($fp, $html);
$Status .= "\n";
fclose($fp);
} else {
$Status .= "\n";
}
$Status .= "\n";
}
// parse and handle the returned buoy page from www.ndbc.noaa.gov
// extract buoy data lines from page
$buoyrawdata = preg_replace('|\r|Uis',"\n",$html); // V1.06 - IIS fix
preg_match_all('|(.*)|si',$html,$betweenspan);
//$Status .= "\n";
$buoyrawdata = $betweenspan[1][0];
$Status .= "\n";
$buoydata = explode("\n",$buoyrawdata); // get lines of html to process
$Status .= "\n";
// things to clean out of the buoy table row
$removestr = array (
"']+>||]+>|'si"
);
// examine, process and format each line of the buoy data
$buoysFound = 0;
$seenBuoy = array(); // storage area for buoy data lines
foreach ($buoydata as $key => $buoy) { // read each text line of buoy data
if (preg_match("|\d+ observations from|i",$buoy) ) {
// found the from - to timestamp line
list($nObs,$firstDate,$firstTime,$lastDate,$lastTime) = getTimeRange($buoy);
$Status .= "\n";
}
if (preg_match("|^ and
$buoy = preg_replace($removestr,"",$buoy);
$buoy = preg_replace("/\s\-\s/si",' n/a ',$buoy); // change '-' to 'n/a'
list($ID,$TYPE,$TIME,$LAT,$LON,$DIST,$HDG,$WDIR,$WSPD,$GST,$WVHT,$DPD,$APD,$MWD,$PRES,$PTDY,$ATMP,$WTMP,$DEWP,$VIS,$TCC,$TIDE,$S1HT,$S1PD,$S1DIR,$S2HT,$S2PD,$S2DIR,$Ice,$Sea) = preg_split("/[\s]+/",$buoy); //all the data for one buoy
// save only the first-seen entry.. it's the most recent one
if (! isset($seenBuoy["$ID"]) && isset($Buoys["$ID"]) ) {
$seenBuoy["$ID"] = $buoy; // save off record we want for later
$buoysFound++; // keep a tally of quakes for summary
} // end $seenBuoy
// else { print "\n"; }
} // end skip non-data
} // end foreach loop
// now generate the data table by looking at our buoys
$doneHeader = 0; // flag to determine when to do the header
foreach ($Buoys as $key => $buoy) { // loop over buoys in config file
if (! $doneHeader) { // print the header if needed
prt_tablehead();
$doneHeader = 1;
} // end doneHeader
prt_tabledata($key);
} // all table data is now in $table
// Write trailer info
if ($doneHeader) {
// --------------- customize HTML if you like -----------------------
$table .= "\n";
} else {
// --------------- customize HTML if you like -----------------------
$table .= "No buoys within $maxDistance $distUnits of $myLat $myLong found.
\n";
}
// Now generate the mesomap
// top boilerplate for include text
$htmlstart = '
';
// generate the MAP list sorted by State, Station name
$html = '
\n";
$CSS .= "\n\n";
$scroller .= "
\n";
$table .= "\n";
// ------------------------------------------------------------------
// now that all the HTML is ready, print it (or the CSS)
if (! $doPrintBUOY) { // no printing needed.. just return the full variables for printing on the including page
$BUOY_CSS = $CSS;
$BUOY_MAP = $Status .
"\n" .
"\n" .
$htmlstart . $ourGraphic . $htmlnext . $scroller . $html .
prt_jscript(); // the JavaScript does the rotation
$BUOY_TABLE = $table;
return;
}
if ($CSSonly) {
print $CSS;
} else {
// omit HTML ... if only tables wanted
// --------------- customize HTML if you like -----------------------
if (! $includeOnly) {
?>
Buoy data within <?php echo "$maxDistance $distUnits"; ?>
\n";
print "\n";
if ($doPrintMap) {
print $htmlstart . $ourGraphic . $htmlnext . $scroller . $html;
print prt_jscript(); // the JavaScript does the rotation
}
if ($doPrintTable) {
print $table;
}
}
// print footer of page if needed
// --------------- customize HTML if you like -----------------------
if (! $includeOnly ) {
?>
");
} // end if
else {
$xml = '';
fputs($socketConnection, "GET $resourcePath HTTP/1.0\r\nHost: $domain\r\n\r\n");
// Loop until end of file
while (!feof($socketConnection))
{
$xml .= fgets($socketConnection, 128);
} // end while
fclose ($socketConnection);
} // end else
return($xml);
} // end fetchUrlWithoutHanging
// ------------------------------------------------------------------
// convert degrees into wind direction abbreviation
function getWindDir ($degrees) {
// figure out a text value for compass direction
$winddir = $degrees;
if ($winddir == "n/a") { return($winddir); }
switch (TRUE) {
case (($winddir >= 349) and ($winddir <= 360)):
$winddir = 'N';
break;
case (($winddir >= 0) and ($winddir <= 11)):
$winddir = 'N';
break;
case (($winddir > 11) and ($winddir <= 34)):
$winddir = 'NNE';
break;
case (($winddir > 34) and ($winddir <= 56)):
$winddir = 'NE';
break;
case (($winddir > 56) and ($winddir <= 78)):
$winddir = 'ENE';
break;
case (($winddir > 78) and ($winddir <= 101)):
$winddir = 'E';
break;
case (($winddir > 101) and ($winddir <= 124)):
$winddir = 'ESE';
break;
case (($winddir > 124) and ($winddir <= 146)):
$winddir = 'SE';
break;
case (($winddir > 146) and ($winddir <= 169)):
$winddir = 'SSE';
break;
case (($winddir > 169) and ($winddir <= 191)):
$winddir = 'S';
break;
case (($winddir > 191) and ($winddir <= 214)):
$winddir = 'SSW';
break;
case (($winddir > 214) and ($winddir <= 236)):
$winddir = 'SW';
break;
case (($winddir > 236) and ($winddir <= 259)):
$winddir = 'WSW';
break;
case (($winddir > 259) and ($winddir <= 281)):
$winddir = 'W';
break;
case (($winddir > 281) and ($winddir <= 304)):
$winddir = 'WNW';
break;
case (($winddir > 304) and ($winddir <= 326)):
$winddir = 'NW';
break;
case (($winddir > 326) and ($winddir <= 349)):
$winddir = 'NNW';
break;
} // end switch
// return("$winddir ($degrees° true)");
return("$winddir");
} // end function getWindDir
// ------------------------------------------------------------------
// produce the table heading row
function prt_tablehead ( ){
global $updated,$maxDistance,$distUnits, $Units, $table, $scroller,$CSS,$LegendX,$LegendY,$ControlX,$ControlY;
// --------------- customize HTML if you like -----------------------
$table .= "
| ID |
Name |
Time
" . $Units['time'] . " |
Air
" . $Units['temp'] . " |
Water
" . $Units['temp'] . " |
Wind
" . $Units['wind'] . " |
Gust
" . $Units['wind'] . " |
Baro
" . $Units['baro'] . " |
Trend
" . $Units['baro'] . " |
Waves
" . $Units['wave'] . " |
Period
Sec |
";
/* --------- older style -----------
$scroller .= "
Air Temperature units: " . $Units['temp'] . "
Water Temperature units: " . $Units['temp'] . "
Wind speed units: " . $Units['wind'] . "
Gust speed units: " . $Units['wind'] . "
Barometer units: . $Units['wind'] . "
Barometer trend units: " . $Units['baro'] . "
Wave height units: " . $Units['wave'] . "
Wave Dominant Period units: sec
\n";
*/
$scroller .= "
Air Temperature
Water Temperature
Wind Direction @ Speed
Wind Gust Speed
Barometer
Barometer Trend
Wave Height
Wave Dominant Period
\n";
$Top = 5; // default location for values legend on map
$Left = 5;
if ($LegendX) {$Left = $LegendX;}
if ($LegendY) {$Top = $LegendY;}
//------------customize this CSS entry for font/color/background for legend
$CSS .= "#mesolegend {
top: ${Top}px;
left: ${Left}px;
font-size: 10pt;
color: #0000FF;
background-color: #FFFFFF;
padding: 3px 3px;
}
";
// set up the run/pause/step controls
$scroller .= '
';
// old text-based button controls:
// $scroller .= '
// Run
// Pause
// Step
//
';
$Top = $Top + 25; // default start for controls is under legend
if ($ControlX) {$Left = $ControlX;}
if ($ControlY) {$Top = $ControlY;}
$CSS .= "#BuoyControls {
top: ${Top}px;
left: ${Left}px;
font-family: Verdana, Arial, Helvetica, sans-serif;
font-size: 8pt;
font-weight: normal;
position: relative;
display: inline;
padding: 0 0;
border: none;
z-index: 15;
}
#BuoyControls a {
padding: 3px 3px;
background: #666666;
color: white;
border: 1px solid white;
}
";
return;
} // end function prt_tablehead
// ------------------------------------------------------------------
// produce one row of buoy data
function prt_tabledata($ID) {
global $seenBuoy,$Buoys,$Units,$NDBCURL,$myUOM,$table,$scroller,$CSS,$skipNoData,$windArrowDir,$showNoData,$windArrowSize;
;
if ($skipNoData && ! isset($seenBuoy["$ID"])) { return; }
list($Name,$Coords,$Offsets) = preg_split("/\t/",$Buoys["$ID"]);
$BuoyURL = $NDBCURL . "/station_page.php?station=$ID&unit=$myUOM";
if (! isset($seenBuoy["$ID"])) {
if ($showNoData) {
$table .= "
| $ID |
$Name |
No recent reports. |
";
} // end showNoData
return;
}
// got data for one of our buoys.. format the table entry
list($ID,$TYPE,$TIME,$LAT,$LON,$DIST,$HDG,$WDIR,$WSPD,$GST,$WVHT,$DPD,$APD,$MWD,$PRES,$PTDY,$ATMP,$WTMP,$DEWP,$VIS,$TCC,$TIDE,$S1HT,$S1PD,$S1DIR,$S2HT,$S2PD,$S2DIR,$Ice,$Sea) = preg_split("/[\s]+/",$seenBuoy["$ID"]);
$TIME = chgTime($TIME); // go adjust the time if needed
if ($windArrowSize == 'S') {
$windGIF = '-sm.gif';
$windSIZE = 'height="9" width="9"';
} else {
$windGIF = '.gif';
$windSIZE = 'height="14" width="14"';
}
// --------------- customize HTML if you like -----------------------
$table .= "
| $ID |
$Name |
$TIME |
$ATMP |
$WTMP |
";
if ($WDIR == 'n/a') {
$table .= $WDIR;
} else {
$wda = getWindDir($WDIR);
$table .= $wda . " ";
if ($windArrowDir) {
$table .= "![\"Wind](\"$windArrowDir$wda.gif\" "\\"Wind") ";
}
$table .= " " .convertWind($WSPD);
}
$table .= " |
" . convertWind($GST) . " |
$PRES |
$PTDY |
$WVHT |
$DPD |
\n";
// generate the data for the changing conditions display
// NOTE: changes here may break the rotating conditions display..
$scroller .= "
$ATMP " . $Units['temp'] . "
$WTMP " . $Units['temp'] . "
";
$wda = '';
if ($WDIR <> 'n/a') {
$wda = getWindDir($WDIR);
if ($windArrowDir) {
$scroller .= "![\"Wind](\"$windArrowDir${wda}${windGIF}\" "\\"Wind")
";
}
$scroller .= getWindDir($WDIR) . " " .
convertWind($WSPD) . " " . $Units['wind'] ;
} else {
$scroller .= $WDIR;
}
$scroller .= "
";
// if ($GST <> 'n/a' && $wda && $windArrowDir) {
// $scroller .= "";
// }
$scroller .= convertWind($GST) . " " . $Units['wind'] . "
$PRES ". $Units['baro'] . "
$PTDY ". $Units['baro'] . "
$WVHT " . $Units['wave'] . "
${DPD} sec
\n";
// now generate the CSS to place the rotating display over the map
$Coords = preg_replace("|\s|is","",$Coords);
$Coords .= ',,,,'; // set null default arguments
list($Left,$Top,$Right,$Bottom) = explode(",",$Coords);
$Offsets .= ','; // set null default arguments;
list($OLeft,$OTop) = explode(",",$Offsets);
// $Top = $Top-1; // with the border off
// $Right = $Right+2;
if (! $Offsets) { // use default positioning
$Bottom = $Bottom - 2;
$Left = $Left - 5 ;
} else { // use relative positioning from bottom/left
$Bottom = $Bottom + $OTop;
$Left = $Left + $OLeft;
}
$CSS .= "#buoy$ID {
top: ${Bottom}px;
left: ${Left}px;
}
";
return;
} // end prt_taabledata
// ------------------------------------------------------------------
// generate the alt=/title= text for area statement tooltip popups
function gen_tag($ID) {
global $seenBuoy,$Buoys,$Units,$NDBCURL;
list($Name,$Coords) = preg_split("/\t/",$Buoys["$ID"]);
if (! isset($seenBuoy["$ID"]) ) {
return "$Name ($ID) - no recent report available";
}
list($ID,$TYPE,$TIME,$LAT,$LON,$DIST,$HDG,$WDIR,$WSPD,$GST,$WVHT,$DPD,$APD,$MWD,$PRES,$PTDY,$ATMP,$WTMP,$DEWP,$VIS,$TCC,$TIDE,$S1HT,$S1PD,$S1DIR,$S2HT,$S2PD,$S2DIR,$Ice,$Sea) = preg_split("/[\s]+/",$seenBuoy["$ID"]);
// --------------- customize HTML if you like -----------------------
// note: only IE supports using new-line and tabs in tooltip displays
// Firefox, Netscape and Opera all ignore these formatting characters,
// or display a funky character instead. That's why the code just below
// is all commented out. KTrue 23-Jun-2006
//$tag = "$Name ($ID) at $TIME\n" .
//"Distance:\t$DIST ". $Units['dist'] . "\n" .
//"Wind:\t\t". getWindDir($WDIR) . "\n" .
//"Speed:\t\t$WSPD ". $Units['wind'] . "\n" .
//"Gust:\t\t$GST ". $Units['wind'] . "\n" .
//"Pressure:\t$PRES ". $Units['baro'] . "\n" .
//"Trend:\t\t$PTDY ". $Units['baro'] . "\n" .
//"Temperature:\t$ATMP ". $Units['temp'] . "\n" .
//"Water Temp:\t$WTMP ". $Units['temp'] . "\n" .
//"Wave Height:\t$WVHT ". $Units['wave'] . "\n" .
//"Wave Period:\t$DPD sec" . "\n";
$wind = convertWind($WSPD);
$gust = convertWind($GST);
$tag = "$Name at " . chgTime($TIME) . ": " .
"Air:$ATMP". $Units['temp'] . ", " .
"Wtr:$WTMP". $Units['temp'] . ", ";
if ($WDIR <> 'n/a') {
$tag .=
"". getWindDir($WDIR) . "@" .
"$wind". $Units['wind'] . " " .
"G $gust, ";
}
$tag .=
"$PRES". $Units['baro'] . ", " .
//"Trend:\t\t$PTDY ". $Units['baro'] . "\n" .
"Wav:$WVHT". $Units['wave'];
return $tag;
} // end gen_tag
// ------------------------------------------------------------------
// convert GMT to locally selected time if needed
function chgTime($TIME) {
global $Status,$firstDate,$firstTime,$lastDate,$lastTime;
$thisDate = $firstDate;
if ($TIME < $firstTime) {
$thisDate = $lastDate;
}
// $Status .= "\n";
// assemble date for processing
// thisDate=mm/dd/yyyy TIME=hhmm
$d = substr($thisDate,6,4) . '-' .
substr($thisDate,0,2) . '-' .
substr($thisDate,3,2) . ' ' .
substr($TIME,0,2) . ':' .
substr($TIME,2,2) . ':00 GMT';
$t = strtotime($d);
$TIME = date('Hi',$t);
// $Status .= "\n";
return $TIME;
}
// ------------------------------------------------------------------
// change wind units if necessary
function convertWind($wind) {
global $myUOM,$doWindConvert,$showKnots;
if ($wind == 'n/a') {
return $wind;
}
if ($showKnots and $myUOM == 'E') { return $wind; } // already in knots
if ($showKnots and $myUOM == 'M') {
// convert m/s to knots
return round($wind * 1.94384449,1);
}
if (! $doWindConvert) {
return $wind;
}
if ($myUOM == 'E') {
return round($wind*1.150779,0); // knots rounded to integer MPH
} else {
return round($wind*3.6,0); // m/s rounded to integer kph
}
} // end convertWind
// ------------------------------------------------------------------
// load configuration file from disk
function load_config($Config) {
global $MapImage,$myLat,$myLong,$Buoys,$ImageH,$ImageW,$LegendX,$LegendY,$maxDistance,$Status,$doListConfig,$ControlX,$ControlY;
$rawconfig = file($Config); // read file into array
$myStatus = "\n";
// strip comment records, build $Stations indexed array
$nrec = 0;
foreach ($rawconfig as $rec) {
$rec = preg_replace("|\n|","",$rec);
$len = strlen($rec);
if($rec and substr($rec,0,1) <> "#") { //only take non-comments
// echo "Rec $nrec ($len): $rec\n";
$rec .='||||||||'; // null defaults for missing arguments
list($BuoyID,$BuoyName,$Coords,$Offsets,$COffsets) = explode("|",$rec);
if ($BuoyID == 'MAPIMAGE') {
$MapImage = trim($BuoyName);
$Coords = preg_replace("|\s|is","",$Coords);
list($ImageH,$ImageW) = explode(",",$Coords);
$Offsets = preg_replace("|\s|is","",$Offsets);
$Offsets .= ','; // null defaults for missing arguments
list($LegendX,$LegendY) = explode(",",$Offsets);
$COffsets .= ','; // null defaults for missing arguments
list($ControlX,$ControlY) = explode(",",$COffsets);
$myStatus .= "\n";
} elseif($BuoyID == 'LOCATION') {
$myLat = $BuoyName;
$myLong = $Coords;
if ($Offsets) {$maxDistance = $Offsets;}
$myStatus .= "\n";
} else {
$Coords = preg_replace("|\s|is","",$Coords);
list($Left,$Top,$Right,$Bottom) = explode(",",$Coords);
if ($Bottom) { // look like a coord set?
$Buoys["$BuoyID"] = "$BuoyName\t$Coords\t$Offsets"; // prepare for sort
$myStatus .= "\n";
}
}
} elseif (strlen($rec) > 0) {
// echo "comment $nrec ($len): $rec\n";
} else {
// echo "blank record ignored\n";
}
$nrec++;
}
if($doListConfig) { // return debugging status for later printing
$Status .= $myStatus;
}
} // end function load_config
// ------------------------------------------------------------------
// select units to display based on units of measure (UOM)
function load_units() {
global $myUOM,$doWindConvert,$showKnots,$Status;
$Status .= "\n";
$Units = array();
if ($myUOM == 'M') {
$Units = array( // metric with native wind units
'wind' => 'm/s',
'temp' => '°C',
'baro' => 'hPa',
'wave' => 'm',
'dist' => 'km');
} else {
$Units = array( // english with native wind units
'wind' => 'kts',
'temp' => '°F',
'baro' => 'in',
'wave' => 'ft',
'dist' => 'nm');
}
if ($doWindConvert) { // change units for wind conversions
if ($myUOM == 'M') {
$Units['wind'] = 'kph';
} else {
$Units['wind'] = 'mph';
}
}
if ($showKnots) { $Units['wind'] = 'kts'; }
$Units['time'] = date('T',time());
// $Status .= "\n";
return $Units;
} // end load_units
// ------------------------------------------------------------------
// get first/last date/time for observations from 'observations'
// line in website
function getTimeRange($text) {
$t = preg_match_all("|(\d+) observations from (\S+) (\S+) GMT to (\S+) (\S+) GMT|Usi",$text,$dates);
// print "\n";
$rtn[0] = $dates[1][0];
$rtn[1] = $dates[2][0];
$rtn[2] = $dates[3][0];
$rtn[3] = $dates[4][0];
$rtn[4] = $dates[5][0];
return $rtn; // list($firstDate,$firstTime,$lastDate,$lastTime) in $rtn
} // end getTimeRange
// ------------------------------------------------------------------
// print the rotation JavaScript to browser page
function prt_jscript () {
// NOTE: the following is not PHP, it's JavaScript
// no changes should be required here.
$t = '
';
return($t);
// That's the end of the JavaScript, now back to PHP
} // end prt_jscript
// ------------------------------------------------------------------
// initalize the assembly string for CSS
function load_strings () {
global $CSS,$MapImage;
// top of CSS for mesomap display
$CSS ='