'."\n"; // display remark
echo "\n"; // display remark
}
if($nothing <> '') { // IF there are no alerts, or missing location, create alert table
$alertDetails = '
';
}
if(!empty($czCode)) { // IF there are alerts for the location
foreach($atomAlerts[$czCode] as $aak => $aav) { // FOR EACH alert
$thisLoc = $aav[12]; // get the location
$aav[7] = htmlspecialchars($aav[7]); // change html characters
$aav[8] = htmlspecialchars($aav[8]); // change html characters
(!empty($aav[4])) ? $effective = date("D, n/j g:ia",$aav[4]) : $effective = ''; // get effective time
(!empty($aav[2])) ? $intensity = $aav[2] : $intensity = ' - - -'; // get intensity
(!empty($aav[1])) ? $urgency = $aav[1] : $urgency = ' - - -'; // get urgency
(!empty($aav[5])) ? $expires = date("D, n/j g:ia",$aav[5]) : $expires = ''; // get expiration time
(!empty($aav[3])) ? $certainty = $aav[3] : $certainty = ' - - -'; // get certainty
(!empty($aav[6])) ? $areas = $aav[6] : $areas = ''; // get areas affected
(!empty($aav[7])) ? $instruction = "
\nInformation:\n"
.''
.$aav[7].'' : $instruction = ''; // get information/instructions
(!empty($aav[8])) ? $details = "\nDetails:\n".''
.$aav[8].'' : $details = ''; // get details
(!empty($aav[15])) ? $sf = $aav[15] : $sf = ''; // get shape area
if(!empty($sf)){ // IF there is a shape area
$sfll[] = explode(' ', $sf); // create array of coordinates for shape files
$asf[] = preg_replace("/\s/", ' ', $aav[0]); // create array for alert shape file
$sfllarea[] = $areas;
}
if(!empty($intensity) and $intensity == 'Extreme') {
$intensity = ' '.$intensity.' ';} // change intensity color
if(!empty($intensity) and $intensity == 'Severe') {
$intensity = ' '.$intensity.' ';} // change intensity color
if(!empty($intensity) and $intensity == 'Moderate') {
$intensity = ' '.$intensity.' ';} // change intensity color
if(!empty($areas)) {$areas = preg_replace('/;/',' -',$areas);} // change semi-colon to a dash
($displaymap != '1') ? $goto = '' :
$goto = ''; // remove page link if map is displayed
// put together all details
$alertDetails .= ' '.
$goto.'
| '
.$aav[10].' '.strtoupper($aav[0]).' '.$aav[10].' |
| '
.strtoupper($aav[12]).' |
Areas Affected:
'.$areas.' |
| Effective: '.$effective.' |
Updated: '.$fileUpdated.' |
Urgency: '.$urgency.' |
| Expires: '.$expires.' |
Severity: '.$intensity.' |
Certainty: '.$certainty.' |
|
| '.$details.$instruction.' |
';
}
}
//echo "\n";
// MAP
// create the map
$leafletScript = '';
if(($displaymap == '1' and !empty($sfll))) { // IF display map option is selected & polygon provided
if(file_exists('nws-all-zones-inc.php') && !empty($zCode) && $displaymap !== '0') { // IF the shape file
include_once('nws-all-zones-inc.php'); // load our Zones=>lat/lon centroid lookup table
if(isset($loclatlon[$zCode])) {
list($lat,$lon) = explode('|',$loclatlon[$zCode]); // IF the zone code is in the shape file array
$zcll = $lat.','.$lon; // get zone code latitude,longitude
// set polygon overlays
if(!empty($sfll)) { // IF there are shape files
$cp = count($sfll)*4+1; // count shapes files, times by 4 & add - used for different line widths
$polyLegend = ' '; // create the polygon legend
$zcllA = preg_replace("/(.*)\,(.*)/", '[$1,$2]', $zcll); // create center location formatted output from coordinates
foreach($sfll as $zk => $zv) { // FOR EACH shape file
$cs = preg_replace("/(.*)\,(.*)/", '[$1,$2]', $zv); // create formatted polygon coordinates
$cp = $cp/2; // divide number of shape files by 2
if($cp < 1.0) {$cp = 1;}
if($cp > 5.0) {$cp = 5;}
$czc = count($zv); // format polygon coordinates
$zCoord .= over_layB($zk,$cp,$cs,$asf,$sfllarea);
// create polygon legend
$polyLegend .= '
'.$asf[$zk].' ';
}
$zCoord .= "\n// ]]>\n\n";
$polyLegend .= "\n
\n";
}
// put together google map javascript
list($mapslist,$selectedmap) = make_map_selector ($mapProvider,$mapboxAPIkey);
$gmjs .= '
'."\n";
}
}
// FUNCTION - set google map polygon attributes
function over_layB($se,$pc,$po,$title,$affected) {
global $rc, $atomAlerts;
$cs = $se;
$colors = array('#DF0101','#F79F81','#F2F5A9','#0174DF','#58FAD0',
'#FACC2E','#01DF01','#F7BE81','#FE2E64','#E0F8EC');
$cc = count($colors);
if(!isset($colors[$cs])) {$tr = range(0,$cs); shuffle($tr); $cs = $tr[0];}
$rc = $colors[$cs];
$ol = "\n var polyc".$se." = [\n";
foreach($po as $pk => $pv) {
$ol .= " ".$pv.",\n";
}
//$affected = isset($atomAlerts[$se][6])?'
'.trim($atomAlerts[$se][6]):'';
$ol .= ' ];
// $asf[$se]="'.$title[$se].'"
// $sfllarea[$se]="'.$affected[$se].'"
//
var mapoly'.$se.' = new L.polygon(polyc'.$se.',{
opacity: 1.0,
color: "'.$rc.'",
strokeOpacity: 0.9,
weight: '.$pc.',
fillColor: "'.$colors[$cs].'",
fillOpacity: 0.20,
title: "'.$title[$se].'"
}).addTo(map);'."\n" . '
mapoly'.$se.'.bindTooltip("'.$title[$se].'
'.trim($affected[$se]).'",
{ sticky: true,
direction: "auto"
});
';
return $ol;
} // end of function
function make_map_selector ($mapProvider,$mapboxAPIkey) {
$output = '';
// table of available map tile providers
$mapTileProviders = array(
'OSM' => array(
'name' => 'Street',
'URL' =>'https://{s}.tile.openstreetmap.org/{z}/{x}/{y}.png',
'attrib' => '© OpenStreetMap contributors, Points © 2012 LINZ',
'maxzoom' => 18
),
'Wikimedia' => array(
'name' => 'Street2',
'URL' =>'https://maps.wikimedia.org/osm-intl/{z}/{x}/{y}.png',
'attrib' => 'Wikimedia',
'maxzoom' => 18
),
'Esri_WorldTopoMap' => array(
'name' => 'Terrain',
'URL' => 'https://server.arcgisonline.com/ArcGIS/rest/services/World_Topo_Map/MapServer/tile/{z}/{y}/{x}',
'attrib' => 'Tiles © Esri',
'maxzoom' => 18
),
'Terrain' => array(
'name' => 'Terrain2',
'URL' =>'http://{s}.tile.stamen.com/terrain/{z}/{x}/{y}.jpg',
'attrib' => 'CC BY 3.0 Stamen.com | Data © OpenStreetMap contributors.',
'maxzoom' => 14
),
'OpenTopo' => array(
'name' => 'Topo',
'URL' =>'https://{s}.tile.opentopomap.org/{z}/{x}/{y}.png',
'attrib' => ' © OpenTopoMap (CC-BY-SA) | Data © OpenStreetMap contributors.',
'maxzoom' => 15
),
'MapboxTer' => array(
'name' => 'Terrain3',
'URL' =>'https://api.mapbox.com/styles/v1/mapbox/outdoors-v10/tiles/256/{z}/{x}/{y}?access_token='.
$mapboxAPIkey,
'attrib' => '© MapBox.com | Data © OpenStreetMap contributors.',
'maxzoom' => 18
),
'MapboxSat' => array(
'name' => 'Satellite',
'URL' =>'https://api.mapbox.com/styles/v1/mapbox/satellite-streets-v10/tiles/256/{z}/{x}/{y}?access_token='.
$mapboxAPIkey,
'attrib' => '© MapBox.com | Data © OpenStreetMap contributors.',
'maxzoom' => 18
),
);
if(isset($mapTileProviders[$mapProvider]) ) {
$output .= "// using \$mapProvider = '$mapProvider' as default map tiles.\n";
} else {
$output .= "// invalid \$mapProvider = '$mapProvider' - using OSM for map tiles instead. -->\n";
$mapProvider = 'OSM';
}
$mapTilesAttrib = ' | Script by Saratoga-weather.org';
$mList = '';
$mFirstMap = '';
$mSelMap = '';
$swxAttrib = ' | Map Script by Saratoga-weather.org';
$mScheme = $_SERVER['SERVER_PORT']==443?'https':'http';
foreach ($mapTileProviders as $n => $M ) {
$name = $M['name'];
$vname = 'M'.strtolower($name);
if(empty($mFirstMap)) {$mFirstMap = $vname; } // default map is first in list
if(strpos($n,'Mapbox') !== false and
strpos($mapboxAPIkey,'-API-key-') !== false) {
$mList .= "\n".'// skipping Mapbox - '.$name.' since $mapboxAPIkey is not set'."\n\n";
continue;
}
if($mScheme == 'https' and parse_url($M['URL'],PHP_URL_SCHEME) == 'http') {
$mList .= "\n".'// skipping '.$name.' due to http only map tile link while our page is https'."\n\n";
continue;
}
if($mapProvider == $n) {$mSelMap = $vname;}
$mList .= 'var '.$vname.' = L.tileLayer(\''.$M['URL'].'\', {
maxZoom: '.$M['maxzoom'].',
attribution: \''.$M['attrib'].$swxAttrib.'\'
});
';
$mOpts[$name] = $vname;
}
$output .= "// Map tile providers:\n";
$output .= $mList;
$output .= "// end of map tile providers\n\n";
$output .= "var baseLayers = {\n";
$mtemp = '';
foreach ($mOpts as $n => $v) {
$mtemp .= ' "'.$n.'": '.$v.",\n";
}
$mtemp = substr($mtemp,0,strlen($mtemp)-2)."\n";
$output .= $mtemp;
$output .= "}; \n";
if(empty($mSelMap)) {$mSelMap = $mFirstMap;}
// end Generate map tile options
return(array($output,$mSelMap));
}
?>
Weather Alerts for Issued by the National Weather Service |