\n"; // display version remark //ini_set('display_errors', 1); //error_reporting(E_ALL); // check for adequate PHP version if(phpversion() < 5) { echo 'Failure: This ATOM/CAP Advisory Script requires PHP version 5 or greater. You only have PHP version: ' . phpversion(); exit; } if(!function_exists('curl_init')) { echo "
\n$Version.\n";
	echo "Error: nws-alerts.php requires curl to operate. curl is not functional on this PHP ".
	  phpversion()." installation.\n";
	$toCheck = array('simplexml_load_file',
	                 'curl_init','curl_setopt','curl_exec','curl_error','curl_close');

	print "\nStatus of needed built-in PHP functions:\n";

	foreach ($toCheck as $n => $chkName) {
		print "function $chkName ";
		if(function_exists($chkName)) {
			print " is available.\n";
		} else {
			print " is NOT AVAILABLE.\n";
		}
		
	}
	exit;
}
// start total timer
$time_startTotal = load_timer();

// include the configuration settings file
include('nws-alerts-config.php'); 
// set variables in case they are not in the config file
if(!isset($log_folder))    {$logAlerts = false;}
if(!isset($floodType))     {$floodType = false;}
if(!isset($filter_alerts)) {$filter_alerts = false;}

// overrides from Settings.php if available
if(file_exists("Settings.php")) {include_once("Settings.php");}
global $SITE, $Status,$noted,$doDebug;
if(isset($SITE['cacheFileDir']))   {$cacheFileDir = $SITE['cacheFileDir'];}
if(isset($SITE['tz']))             {$ourTZ = $SITE['tz'];}
if(isset($SITE['NWSalertsCodes'])) {$myZC = $SITE['NWSalertsCodes'];}
if(isset($SITE['NWSalertsNoCron'])){$noCron = $SITE['NWSalertsNoCron']; }
if(isset($SITE['googleAPI']))      {$googleAPI = $SITE['googleAPI']; }

// set time zone
if(!function_exists('date_default_timezone_set')) {
  putenv("TZ=" . $ourTZ);
} else {
  date_default_timezone_set("$ourTZ");
}

$dataCache = $cacheFileDir.$cacheFileName;                    // path & file name for the cache data file
$aboxCache = $cacheFileDir.$aboxFileName;                     // path & file name for the alert box data file
$iconCache = $cacheFileDir.$iconFileName;                     // path & file name for the big icon data file

#$priURL = 'https://alerts.weather.gov/cap/wwaatmget.php?x=';   // OLD NWS URL
$priURLzone = 'https://api.weather.gov/alerts/active.atom?zone=';   // NEW NWS URL V2.00
$priURLpoint = 'https://api.weather.gov/alerts/active?point=';      // NEW Point URL V2.01
// initialize variables
$vCodes  = '';
$cmyzc   = 0;  // kt
$aBox    = '';
$box     = '';
$noData  = false;
$WA      = 1;  // kt
$logData = array();
$Status  = '';
$fltrd   = '^FF';
$ad      = array();
$noAlrt  = array();
$ai      = array();
$bi      = array();
$noA     = array();
$codeID  = array();
$ano     = array();
$norss   = array();
$abData  = array();
$rssData = array();
$adnoBI  = array();
$allzc   = array();
$allzc3  = array();
$atData  = array();
$sortbythis = array();
$sortMe  = array();
$uts = date("U");     // current unix time stamp
$timenow = date("D m-j-Y g:i a",$uts);
$seenIt  = array();
$doDebug = isset($_GET['debug'])?true:false;  // V2.00 addition

// display notice if more than 4 codes are checked without using a cron job
foreach ($myZC as $myv) {
	$tlist = explode('|',$myv.'|'); // split spec
	for ($i=1;$i0) { $seenIt[$tlist[$i]] =1; }
	}
}
$cmyzc = count($seenIt);
$noted .= "\n";
if($cmyzc > 4 and $noCron == true) {
  echo "nws-alerts: Checking more than four warning/county codes can delay the loading of your pages. You should use a cron job to get the data.\n"; 
}   

// cache file update policy
$updateCache = true;  // update cache file(s)
if(file_exists($dataCache) and $noCron) {       // IF the data cache file exists and not using cron
  $cft = filemtime($dataCache);     //   get cache file last modified time
  $cfAge = $uts - $cft;             //   get cache file age in seconds
  if($cfAge < $updateTime) {        //   IF cache file has not expired
    $updateCache = false;           //     don't update
		$noted .= "\n";
  } else {
    $updateCache = true;           //     don't update
		$noted .= "\n";
	}
}

if(!empty($_GET['mu'])) { //   IF you want to manually update the report   nws-alerts.php?mu=1
	$updateCache = true;    //     set update cache
	$noted .= "\n";  //     display notice
}

// display remark about cron
($noCron) ? $noted .= "\n" :
            $noted .= "\n";

// check if config file is updated
if(!isset($noAlertText)) {
  $noAlertText = 'No alerts';
  $noted .= "\n";
}

###  IF UPDATE CACHE
if($updateCache) {
  if($filter_alerts and file_exists($faCacheFile)) {                             // IF filtered events and filter file exists
    $filter_alerts = true;                                                       //  turn on filtered events
    include($faCacheFile);                                                       //  include the filter file
    ($filtered_alerts <> '') ? $fltrd = $filtered_alerts : $fltrd = '^NF';       //  IF filtered events - set variables to No Filter
    $noted .= "\n";                              //  display remarks
  }
  // get preliminary links
  foreach ($myZC as $mv) {                                                       // FOR EACH zone/county code
    preg_match_all("/[A-Z]{3}\d{3}/i", $mv, $cds); 
		if(!isset($cds[0][0])) {
			preg_match_all('![0-9\.]+,[0-9\-\.]+!',$mv,$cds);
		}
		if(!isset($cds[0][0])) {
			$noted = "\n";
			continue;
		}
    $locCode = $cds[0][0];
		
#		$noted .= "\n";

    $allzc[$locCode] = '';                                                       //   get first code listed after location as reference
    $vCodes .= $locCode.'|';                                                     //   list valid reference codes
    $loc = preg_replace("/\|.*$/", '', $mv);                                     //   grab the locatiion
    $ccds = count($cds[0]);  
		if($doDebug) {$noted .= "\n"; }
    for ($i=0;$i<$ccds;$i++) { 
		  $priURL = (preg_match('!^[0-9.]+,[\-0-9.]+$!',$cds[0][$i]))?$priURLpoint:$priURLzone;
      if(!$zData = get_nwsalerts($priURL.$cds[0][$i])) {                              //     IF can't get  preliminary URL
        $noted .= "\n";  //       create note
        sleep(1);                                                                //       wait a half second
        if($zData = get_nwsalerts($priURL.$cds[0][$i])) {                             //       IF URL cull was successful
          $noted .= "\n\n";                    //         create note
       }
        else{                                                                    //       OR ELSE
          $noted .= "\n\n";              //         create note
          $noData = true;                                                        //         set variable
        }
      }
	    if($doDebug) {$noted .= "\n\n\n";}
			$zSearch = '';
      if (isset($zData->entry)) {
				 $zSearch = $zData->entry;
				 $noted .= "\n"; 
			} 
			if (!isset($zData->entry->id) and empty($zSearch)) {
				 $zSearch = gen_no_alert($zData); 
				 $noted .= "\n";
			}
	    if($doDebug) {$noted .= "\n\n";}

      if(isset($zSearch[0]->id) and !isset($zSearch->noalert)) {                            //     IF there is data available
        $noData = false;                                                            //      set variable
        $cccds=count($zSearch);                                                  //       count each alert
        for ($m=0;$m<$cccds;$m++) {                                              //       FOR EACH alert per code
          $za = trim($zSearch[$m]->id);                                          //         get the secondary URL link
          $ta = trim($zSearch[$m]->title);                                       //         get the secondary URL link
					if($doDebug) {$noted .= "\n";}
					if(preg_match("/$fltrd/",$ta)) { //         IF the link doesn't list an alert URL or the event is filtered
            $noA[$loc][] = $locCode;                                             //           assemble array for 'No alerts'
            if(preg_match("/$fltrd/",$ta)){                                      //           IF a filtered event is found
              $noted .= "\n\n";        //             display remark
              $noted .= "\n\n";                  //             display remark
            }
          }
          else {                                                                 //         OR ELSE
            $codeID[$za][$loc][] = $locCode;                                     //           assemble array of alert URL's & locations
          }
        }  // end for loop
      } elseif (isset($zSearch->id)) { // not array
          $za = trim($zSearch->id);                                          //         get the secondary URL link
          $ta = trim($zSearch->title);
					$na = isset($zSearch->noalert)?true:false; 
					if($doDebug) {$noted .= "\n";}                                      //         get the secondary URL link
          if(preg_match("/$fltrd/",$ta) or $na) { //         IF the link doesn't list an alert URL or the event is filtered
            $noA[$loc][] = $locCode;                                             //           assemble array for 'No alerts'
            if(preg_match("/$fltrd/",$ta)){                                      //           IF a filtered event is found
              $noted .= "\n\n";        //             display remark
              $noted .= "\n\n";                  //             display remark
            }
          }
          else {                                                                 //         OR ELSE
            $codeID[$za][$loc][] = $locCode;                                     //           assemble array of alert URL's & locations
          }
			} // not array+id exists
    }
		if($doDebug) {$noted .= "\n\n";}  

  }
	if($doDebug) {
    $noted .= "\n";
    $noted .= "\n";
	}
  // check for codes with 'No alerts' against similar location codes with alerts
  foreach ($codeID as $rk => $rv) {                                         // FOR EACH alert
    $noA = array_diff_ukey($noA, $rv, 'key_compare');                       //  remove location code from no Alerts is alert is found
  }

  ksort($noA);  // sort No alerts array by key
	
  // trim down No alert array
  foreach ($noA as $nk => $nv) {                                                                              // FOR EACH No alert
    $noAlrt[$nk] = $nv[0];                                                                                    //   create a new array
		$priURL = (preg_match('!^[0-9.]+,[\-0-9.]+$!',$nv[0]))?$priURLpoint:$priURLzone;
    $norss[$nk][] = array('150',$nk,$nv[0],'No Alerts',1
                          ,'Severe weather is not expected',$priURL.$nv[0].'&y=0');                       //   create array for RSS/XML
  }
  
  $countCodeID = count($codeID);                                                                              // count locations with alerts
  if($doDebug) {$noted .= "\n";}
  // get main data
  foreach ($codeID as $ck => $cv) {                                                                           // FOR EACH primary alert
	  if($doDebug) {$noted .= "\n";}
    if(isset($cv)) {                                                                                          //   IF there is an alert
      $clr = ''; $ico = ''; $sev = '';                                                                        //     set variables
      if(!$czR = get_nwsalerts($ck)){                                                                              //     IF can't download each alert
        $noted .= "\n";                                  //       create note
        sleep(1);                                                                                             //       wait a second
        if($czR = get_nwsalerts($ck)){                                                                             //       IF download alert was successful
          $noted .= "\n\n";                                                 //         create note
        } else{                                                                                                 //       OR ELSE
          $noted .= "\n\n";                                           //         create failure note
          $czR = '';                                                                                          //         set variable to null
          $noData = true;                                                                                     //         set variable
        }
      }
			if($doDebug) {$noted .= "\n\n";}
      (isset($czR->note)) ? $note = trim($czR->note) : $note = '';                                            //     get the note
      (isset($czR->info->event)) ? $event = trim($czR->info->event) : $event = '';                            //     get event
      (isset($czR->info->urgency)) ? $urgency = trim($czR->info->urgency) : $urgency = '';                    //     get urgency
      (isset($czR->info->severity)) ? $severity = trim($czR->info->severity) : $severity = '';                //     get severity
      (isset($czR->info->certainty)) ? $certainty = trim($czR->info->certainty) : $certainty = '';            //     get certainty
      (isset($czR->info->effective)) ? $effective = trim($czR->info->effective) : $effective = '';            //     get effective time
      (isset($czR->info->expires)) ? $expires = trim($czR->info->expires) : $expires = '';                    //     get expiration time
      (isset($czR->info->description)) ? $description = trim($czR->info->description) : $description = '';    //     get the full alert description
      (isset($czR->info->instruction)) ? $instruction = trim($czR->info->instruction) : $instruction = '';    //     get the full alert instruction
      (isset($czR->info->area->areaDesc)) ? $areaDesc = trim($czR->info->area->areaDesc) : $areaDesc = '';    //     get areas
      (isset($czR->info->area->polygon)) ? $poly = trim($czR->info->area->polygon) : $poly = '';              //     get poly areas
      (isset($czR->status)) ? $status = trim($czR->status) : $status = '';                                    //     get status
      (isset($czR->scope)) ? $scope = trim($czR->scope) : $scope = '';                                        //     get scope
      (isset($czR->msgType)) ? $msgType = trim($czR->msgType) : $msgType = '';                                //     get message type
      $event = ucwords($event);                                                                               //     set upper case for first word in event
      // check for flood type
      if($floodType and $czR <> '' and is_array($czR->info->parameter)) {                                    // IF Flood type option is on and data was retrieved
        foreach($czR->info->parameter AS $element) {                     //  FOR EACH parameter
          if($element->valueName == 'VTEC' ) {                           //   IF there is VTEC
            $vtec2 = trim($element->value);                              //    trim the value
            if(preg_match("/\.XX\.\w\.\w/",$vtec2)) {                    //    IF FA is found in the value
              $event = 'Areal '. $event;                                 //     set variable to Areal
               if($filter_alerts == true and isset($dsrgrd['flaw'])) {   //     IF filter alerts and  filter Areal Flood alerts
                 $note = 'filtered';                                     //     set variable to expired
                 $cv = key($cv);                                         //     set varible to location name
                 $noted .= "\n\n";   //     display remark
              }
            }
            if(preg_match("/\.FL\.\w\.\w/",$vtec2)) {                    //    IF FL is found in the value
               $event = 'River '. $event;                                //     set variable to River
               if($filter_alerts == true and isset($dsrgrd['flrw'])) {   //     IF filter alerts and filter River Flood alerts
                 $note = 'filtered';                                     //     set variable to expired
                 $cv = key($cv);                                         //     set varible to location name
                 $noted .= "\n\n";   //     display remark
              }
            }
          }
        }
      }
      (isset($event)) ? $cis = get_icon($event) : $cis = array();                                                  //     get other variables for event
      (!empty($effective)) ? $effective = strtotime($effective) : $effective = '';                            //     convert time
      (!empty($expires)) ? $expires = strtotime($expires) : $expires = '';                                    //     convert time
      if(isset($cis['severity'])) {                                                                                       //     IF event varaibles
        $clr = $cis['color'];                                                                                 //       set event color
        $ico = $cis['icon'];                                                                                  //       set event icon
        $sev = $cis['severity'];                                                                              //       set event severity
      }
      (!empty($ico)) ? $ico = conv_icon($icons_folder,$ico,$event) : $ico = '';                               //     IF an icon name is found, convert name into icon
      if(!preg_match("/expired|filtered/",$note)) {                                                           //     IF alert hasn't expired or filtered out
        foreach($cv as $cvk => $cvv) {                                                                        //      FOR EACH listed code
          $cvv = array_unique($cvv);                                                                          //       remove duplicate values
          $lcount = count($cvv);                                                                              //       count location codes
          for($i=0;$i<$lcount;$i++) {                                                                         //       FOR EACH location code
            $lCode = $cvv[$i];                                                                                //         set variable to location code
            if($logAlerts) {                                                                                  //         IF logging alerts  $logAlerts = true;
              if(preg_match("/^\.\.\.([A-Z].*\w)\.\.\./Uis",$description)) {                                  //          IF there is a detail title
                preg_match("/^\.\.\.([A-Z].*\w)\.\.\./Uis",$description,$abbrvd);                             //           get the detail title
              }
              elseif(preg_match("/\n\.\.\.([A-Z].*\w)\.\.\.\n/Uis",$description)) {                           //          OR ELSE find a title in the description
                preg_match("/\n\.\.\.([A-Z].*\w)\.\.\.\n/Uis",$description,$abbrvd);                          //           get the title
              }
              else{                                                                                           //          OR ELSE
                preg_match("/^\.?([A-Z].*\w)\n/Uis",$description,$abbrvd);                                    //           get the first line in the description
              }
              (isset($abbrvd[1])) ? $abbrvDesc = $abbrvd[1] : $abbrvDesc = '';
              $logData[] = array($event,$cvk,$effective,$expires,$cis['icon'],$areaDesc,$abbrvDesc);          //         create array for logging alerts
            }
            $ad[$lCode][] = array($event,$urgency,$severity,$certainty,$effective,$expires,
                            $areaDesc,$instruction,$description,$clr,$ico,$sev,$cvk,$WA,$cvv[0],$poly,$ck);   //         create array with needed wx variables
          }
          $WA++;                                                                                              //       increment counter
        }
      }
      else {
        if(preg_match("/expired/",$description)) { $noted .= "\n\n"; }          //   display remark
        if(preg_match("/filtered/",$description)) { $noted .= "\n\n"; }             //   display remark
      }
    }
  }
	
  // sort active alerts by severity
  if(!empty($ad)) {                                                                          // IF alert data is not empty
    foreach ($ad as $adk => $adv) {                                                          //   FOR EACH location with alert data
      foreach ($adv as $advk => $advkv) {                                                    //     FOR EACH alert
        if(array_key_exists($advkv[14], $allzc) and $locSort == 0){                          //      IF the alert Zone code is in the array AND $locSort= 0 
          $allzc3[$advkv[14]] = '';                                                          //       create array using as listed/default location order
        }
        usort($adv, 'sev_sort');                                                             //     sort locations multiple alerts by severity
        $atData[$adk] = array();                                                                //     create sorted array
        $atData[$adk] = $adv;                                                                //     create sorted array
      }
    }
    if($locSort == 0){                                                                       //   IF sorting locations as listed in $myZC array
      $atData = array_replace_recursive($allzc3,array_intersect_key($atData, $allzc3));      //     create new sorted array
    }
  }
  
  // writing alert data to cache file
  if($noData == false) {
    $dcfo = fopen($dataCache , 'w');                                                         // data cache file open
    if(!$dcfo) {                                                                             // IF unable to open cache file for writing
      $noted .= "\n";                                      //   display remark
    } 
    else {                                                                                   // OR ELSE
      $write = fputs($dcfo, "");        //   write valid codes
      fclose($dcfo);                                                                         //   close the cache file
      $noted .= "\n";                                   //   display remark
    } 
  }
  else {
    $noted .= "\n";                                           //   display remark
  }
  ($centerText) ? $ct = 'text-align:center;' : $ct = 'text-align:left;';                     //   set text alignment

  // alert box conditions for NO alerts
  if($useAlertBox and empty($atData)) {                                                      // IF using alert box and no alerts
    get_scc('150');                                                                          //   set alert box backgound color and text color
    $box .= "\n\n"
         .'
'."\n";
    if($showNone) {                                                                          //   IF showing "NONE', create alert box with No Alert
      $box .= ' 
'.$noAlertText.'



';
    }
    else {                                                                                    //   OR ELSE, don't show alert box
      $box = '';
    }
  }

  // alert box conditions WITH alerts
  if($useAlertBox and !empty($atData)) {                                                       // IF use alert box & have data
    foreach ($atData as $aak => $aav) {                                                        //   FOR EACH location with data
      foreach ($aav as $avk => $avv) {                                                         //     FOR EACH alert data
        $abData[] .= "$avv[11]|$avv[12]|$avv[14]|$avv[0]|$avv[10]|$avv[9]|$avv[13]";           //       create data string
      }
    }
    // IF sort alphabetically
    if($locSort == 1) {                                                                        // IF sort alert box data
      natsort($abData);                                                                        //   perform a natural sort for array
    }
    // set alert box sorting conditions
    foreach ($abData as $aBk => $aBv) {
      // list = severity code, location name, location code, title, icon, color, alert sequence
      list($sc, $ln, $lc, $ttl, $icn, $clr, $as) = explode('|', $aBv . '|||');                         // create list for each alert
      $sortbythis[$sc][][] = array($sc, $ln, $lc, $ttl, $icn, $clr, $as);                              // option to get highest severity 
      if($sortbyEvent == 0)    : $sortMe[$ln][][] = array($sc, $ln, $lc, $ttl, $icn, $clr, $as);       // 0 sort by alert
      elseif($sortbyEvent == 1): $sortMe[$ln][$sc][] = array($sc, $ln, $lc, $ttl, $icn, $clr, $as);    // 1 sort by alert
      elseif($sortbyEvent == 2): $sortMe[$sc][][] = array($sc, $ln, $lc, $ttl, $icn, $clr, $as);       // 2 sort by alert
      elseif($sortbyEvent == 3): $sortMe[$sc][$ln][] = array($sc, $ln, $lc, $ttl, $icn, $clr, $as);    // 3 sort by location
      endif;
    }
	
    $aksba = array_keys($sortbythis);                                                          // get the highest severity keys
//    $aksba = array_keys($sortMe);                                                            // get the highest severity keys
    $abta = array_shift($aksba);                                                               // get first alert (key) severity code
    get_scc($abta);                                                                            // set alert box backgound color to most severe alert
    $setStyle = 'style="'.$tc.' text-decoration: none"';                                       // set text decoration
	
    // set alert box style
    $box .= "\n\n"
         .'
'."\n"
         .' 
'."\n";

    // duplicate events will be displayed
    if($sortbyEvent == 0) {
      foreach ($sortMe as $sblk => $sblv) {
        $abt = strtoupper($sblk);                                                                //    capitalize event title
        $abt = str_replace(" ", " ", $abt);                                                 //    replace space
        ($titleNewline) ? $spc = ' ' : $spc = '';                                                //    set spacing
        $box .= '   '.$abt
             .'  ';                                                    //    icon & event title
        $csblv = count($sblv);                                                                   //    count each string
        for($i=0;$i<$csblv;$i++) {                                                               //    FOR EACH string of data
          $sblv[$i][0][3] = str_replace(" ", " ", $sblv[$i][0][3]);                         //       replace spaces
          $box .= ' '.$sblv[$i][0][4]
               .' '.$sblv[$i][0][3]
               .'   ';                                                      //        link & details
          }
        ($titleNewline) ? $box .= "
\n" : $box .= "    " ;                   //      set line break or spaces
      }
    }

    //  duplicate events removed
    if($sortbyEvent == 1) {
      ($titleNewline) ? $spc = ' ' : $spc = '';                                                  //    set spacing
      foreach ($sortMe as $sblk => $sblv) {                                                      //    FOR EACH location with data
        $box .= '   '.$sblk.'  -';           //       icon & event title
        foreach ($sblv as $sblvk => $sblvv) {                                                    //       FOR EACH string of data
          $abt = strtoupper($sblk);                                                              //         capitalize event title
          $abt = str_replace(" ", " ", $abt);
          $sblvv[0][3] = str_replace(" ", " ", $sblvv[0][3]);                               //         replace spaces
          $box .= ' '.$sblvv[0][4]
               .' '.$sblvv[0][3]
               .'   ';                                                      //         link & details
        }
        ($titleNewline) ? $box .= "
\n" : $box .= "    " ;                   //         set line break or spaces
    	}
    }

    // duplicate events will be displayed
    if($sortbyEvent == 2) {
      foreach ($sortMe as $sblk => $sblv) {                                                     //      FOR EACH location with data
        $abt = strtoupper($sblv[key($sblv)][0][3]);                                             //        capitalize event title
        $abt = str_replace(" ", " ", $abt);                                                //         replace spaces
       ($titleNewline) ? $spc = ' ' : $spc = '';                                                //         set spacing
        $box .= '  '.$sblv[key($sblv)][0][4]
             .' '.$abt.'';                        //         icon & event title
        $csblv = count($sblv);
        for($i=0;$i<$csblv;$i++) {
          $sblv[$i][0][1] = str_replace(" ", " ", $sblv[$i][0][1]);                        //         replace spaces
          $box .= ' - '.$sblv[$i][0][1].' '.$spc;                        //         create link & location
        }
        ($titleNewline) ? $box .= "
\n" : $box .= "    " ;                  //         set line break or spaces
      }
    }

    //  duplicate events removed
    if($sortbyEvent == 3) {
      foreach ($sortMe as $sblk => $sblv) {                                                     //      FOR EACH location with data
        $abt = strtoupper($sblv[key($sblv)][0][3]);                                             //         capitalize event title
        $abt = str_replace(" ", " ", $abt);                                                //         replace spaces
        ($titleNewline) ? $spc = ' ' : $spc = '';                                               //         set spacing
        $box .= '  '.$sblv[key($sblv)][0][4]
             .' '.$abt.'';                        //         icon & event title
        foreach ($sblv as $sblvk => $sblvv) {
          $sblvv[0][1] = str_replace(" ", " ", $sblvv[0][1]);                              //         replace spaces
          $box .= ' - '.$sblvv[0][1].' '.$spc;                              //         create link & location
        }
        ($titleNewline) ? $box .= "
\n" : $box .= "    " ;                  //         set line break or spaces
      }
    }
    $box .= " 



";
  }// END IF NOT EMPTY $atData
	
  // writing alert box data to file	
  if($useAlertBox and $noData == false) {                                                      // IF using alert box
    $abfo = fopen($aboxCache , 'w');                                                        //   alert box file open
    if(!$abfo) {                                                                            //   IF not alert box file open cache file for writing
      $noted .= "\n";                                     //     display remark
    } 
    else {                                                                                  // OR ELSE
      $write = fputs($abfo, "");      //   write all of the alert box data
      fclose($abfo);                                                                        //   close the cache file
      $noted .= "\n";                                   //   display remark
    } 
	}

  // construct big icons
  if(!empty($noA)) {                                                                        // IF there are 'No alerts'
    foreach($noA as $nok => $nov) {                                                         //   FOR EACH 'No alert'
      $ano[][] = array('150'.'|'.$nok.'|'.$alertURL.'|'.$nov[0]
                       .'|'.'1'.'|'.''.'|'.$icons_folder.'|');                              //     IF $addNone, create array with no alert data
    }
    $rssno = $ano;                                                                          //     create array for rss with no alert data
  }
	
  // arrays for sorting icons
  if($useIcons !== 0 and !empty($atData)) {
    foreach ($atData as $aak => $aav) {
    $bic = 0;              // set big icon count to zero
      $caav = count($aav); // count alerts
      for($i=0;$i<$caav;$i++) {
        // by alert - no duplicates
        if($useIcons == 2) { $bi[$aav[$i][11]][$aav[$i][12]] = array($aav[$i][11].'|'.$aav[$i][12].'|'.$alertURL
                             .'|'.$aav[$i][14].'|'.$aav[$i][13].'|'.$aav[$i][0].'|'.$icons_folder.'|');}
        // by alert - with duplicates
        if($useIcons == 1) { $bi[$aav[$i][11]][] = array($aav[$i][11].'|'.$aav[$i][12].'|'.$alertURL.'|'.$aav[$i][14]
                             .'|'.$aav[$i][13].'|'.$aav[$i][0].'|'.$icons_folder.'|');}
        // by location - no duplicates
        if($useIcons == 4) { $bi[$aav[$i][12]][$aav[$i][0]] = array($aav[$i][11].'|'.$aav[$i][12].'|'.$alertURL
                             .'|'.$aav[$i][14].'|'.$aav[$i][13].'|'.$aav[$i][0].'|'.$icons_folder.'|');}
        // by location - with duplicates
        if($useIcons == 5) { $bi[$aav[$i][12]][] = array($aav[$i][11].'|'.$aav[$i][12].'|'.$alertURL.'|'.$aav[$i][14]
                             .'|'.$aav[$i][13].'|'.$aav[$i][0].'|'.$icons_folder.'|');}
        $bic++; // increment counter for each alert per location
      }
      if($useIcons == 3) { $bi[$aav[0][11]][] = array($aav[0][11].'|'.$aav[0][12].'|'.$alertURL.'|'.$aav[0][14]
                           .'||'.$aav[0][0].'|'.$icons_folder.'|'.$bic);}
    }
    // top icons
    if($useIcons == 1 or $useIcons == 2) {  // IF #1 or #2 is selected
      ksort($bi);                           //   sort by key
    }
    else {                                  // OR ELSE 
      if($locSort == 1) {                   //   IF sort icons by location alphabetcally
        ksort($bi);                         //     sort by key
      }
    }
  }

  if($addNone) {	
    $bi = array_merge($bi,$ano);                                                                         //   merge alerts with no alerts
  }
  $k=1;
  foreach($bi as $tik => $tiv) {                                                                         // FOR EACH location with alerts (and no alerts)
    foreach($tiv as $tivk => $tivv) {                                                                    //   FOR EACH alert
      // list = sev code, loc name, alert URL, loc code, alert sequence, title, icon folder, alert count
      list($scode, $lname, $aurl, $lcode, $aseq, $titl, $icnf, $alrtc) = explode('|', $tivv[0] . '|||'); //     create a list
      $ai[$k] = create_bi($lname, $aurl, $lcode, $aseq, $titl, $icnf, $scode, $alrtc);                   //     create all icons array
      $k++;
    }
  }
  // construct icon output if NONE
  $bigIcos = $ai;
  if(empty($atData) and $shoNone and !$addNone) {                                                         // IF there are no big icons (no alerts)
      $bigIcos = array();	 // kt 1.42
      $bigIcos[1] = '
No alerts';
	}

  // limit menu bar icons
  $icount = count($bigIcos);                                                               // count the big icons
  if($iconLimit !== 0 and $iconLimit < $icount) {                                          // IF within icon limit
    $bigIcos = array_slice($bigIcos, 0, $iconLimit);                                       //   remove the last x number of icons
    $idiff = $icount - $iconLimit;                                                         //   count the icons removed
    ($idiff == 1) ? $diff = "other" : $diff = "others";                                    //   set plural or singular text
    $otherIcos = array(" 
\n".' '
                ."+$idiff $diff");                                                     //   assembled remaining icons text
    $bigIcos = array_merge($bigIcos,$otherIcos);                                           //   merge icons and remaining icons
  }

  if($noData == false and $useIcons !==0) {                                                   // IF there is data and able to write cache file
    $bifo = fopen($iconCache , 'w');                                                       //  icon file open
    if(!$bifo) {                                                                           //  IF not alert box file open cache file for writing
      $noted .= "\n";                           //   display remark
    } 
    else {                                                                                 //  OR ELSE
      $write = fputs($bifo, "\n"); //   write all of the alert box data
      fclose($bifo);                                                                       //   close the cache file
      $noted .= "\n";                                       //   display remark
    }
  }

  // create RSS Feed file	
  if($useXML and $noData == false) {                                                         // IF using RSS feed and there is data
    if(!empty($atData)) {                                                                 //   IF there is data
      foreach ($atData as $aak => $aav) {                                                 //     FOR EACH location with data
        foreach ($aav as $avk => $avv) {                                                  //       FOR EACH alert data, creat RSS data array
         $rssData[$avv[12]][] = array($avv[11],$avv[12],$avv[14],
                                       $avv[0],$avv[13],$avv[8],$avv[16]);
       }
     }
   }
  $ma = array_merge($rssData,$norss);                                                     //   merge alerts with no alerts
  // construct RSS/XML
  $dirn = dirname($_SERVER["PHP_SELF"]);
  ($dirn == '/') ? $dirn = '' : $dirn = $dirn;
  $xml_zone = '


  '.$rssTitle.'
  http://'.$_SERVER["SERVER_NAME"].'
  
  Courtesy of the National Weather Service
  en-us
  RSS feed version 2.0 - 20-Dec-2015
  Curly at ricksturf.com
  '.date("D, d M Y H:i:s T").'
  15
  '.date("D, d M Y H:i:s T").'
'; 
  foreach($ma as $xdk => $xdv) {
    $xml_zone .= '  
    '.$xdk.'
    http://'.$_SERVER["SERVER_NAME"].$dirn.'/'.$alertURL.'?a='.$xdv[0][2].'#WA
    '.date("D, d M Y H:i:s T").'
    ';
      $cxdv = count($xdv);
      for($i=0;$i<$cxdv;$i++) {
        $desc_length = strlen($xdv[$i][5]);
        if($desc_length <= 50) { $xdv[$i][5] = $xdv[$i][5];}
        else { 
          if($desc_length >= 221) {
            $pos = strpos($xdv[$i][5], ' ', 221);
            $xdv[$i][3] = strtoupper($xdv[$i][3]);
            $xdv[$i][5] = $xdv[$i][3].'<br/>'.str_replace(' & ', " and ", $xdv[$i][5]);
            $xdv[$i][5] = trim(substr($xdv[$i][5], 0, $pos)).' [more].... <br/><br/>';
          }
          else {
            $xdv[$i][5] = $xdv[$i][5].' [more]... <br/><br/>';
          }
        }
        $xml_zone .= $xdv[$i][5];
      }    
      $xml_zone .= ' <br/>
';
      $xml_zone .= '  '.$xdv[0][6].'
  
';
    }
    $xml_zone .= '
';
    $rssfo = fopen('nws-rssfeed.xml' , 'w');                               // feed file open
    if(!$rssfo) {                                                          // IF not alert box file open cache file for writing
      $noted .= "\n";           //   display remark
    } 
    else {                                                                 // OR ELSE
      $write = fputs($rssfo, $xml_zone);                                   //   write all of the alert box data
      fclose($rssfo);                                                      //   close the cache file
      $noted .= "\n";                        //   display remark
    } 
  }
} // END IF UPDATE CACHE

// Logging alerts
if($logAlerts) {                                                           // IF logging alerts  $logAlerts = true;
  include("$dataCache");                                                   //  include the cache file
  $noted .= "\n";                            //  add note
  $log_date = date("Ymd");                                                 //  current date
  $log_file = $log_folder."/NWSalertLog".$log_date.".txt";                 //  get log file name
  $added_alert = '';                                                       //  set variable
  $dy_log = array();                                                       //  set variable
  $dly_log = array();                                                      //  set variable
  if($logData and !empty($logData[0][0])) {                                //  IF there is data
    foreach($logData as $lk => $lv) {                                      //   FOR EACH alert
      $dlog[] = array($lv[0],$lv[1],$lv[2],$lv[3],$lv[4],$lv[5],$lv[6]);   //    create data array
    }
    if(is_file($log_file)) {                                               //   IF the log file exists
      include($log_file);                                                  //    include the log file
			if(!is_array($daily_log)) {$daily_log=array();}
      foreach($dlog as $dlk => $dlv) {                                     //    FOR EACH alert
        if(!in_array($dlv, $daily_log)) {                                  //     IF alert is not in the cache file
          $dy_log[] = $dlv;                                                //       create array with alert data
          $added_alert = 1;                                                //       enable file writing of data
        }
      }
      $dly_log = array_merge($daily_log, $dy_log);                         //    merge new data with cached data
    }
    else{                                                                  //   OR ELSE
      $dly_log = $logData;                                                 //    copy fresh data
      $added_alert = 1;                                                    //    enable file writing of data
    }
  }		
  if($added_alert) {                                                                   // IF write data is enabled
    $fplf = fopen($log_file,'wb');
		if(!is_array($dly_log)) {$dly_log = array();}                                      //  open the log file
    if($fplf) {                                                                        //  IF cache file opens
      fwrite($fplf, ""); //   write first line for php ant top warnings tag
      fclose($fplf);                                                                   //   close file
      $noted .= "\n";                                //   display note
    }
    else{                                                                              //  OR ELSE if the cache file does not open
      $noted .= "\n";                     //   display note
      $noted .= "\n";                 //   display note
    }
  }
}

$time_stopTotal = load_timer();
$total_times = ($time_stopTotal - $time_startTotal);
$total_time = sprintf("%01.4f", round($time_stopTotal - $time_startTotal, 4));
// $total_time;
$noted .= "\n";                 //   display remark
echo $Status;
echo $noted;
// create status file
$notes = $noted;
$notes = preg_replace('/\n/',"\n",$notes);
$notes = "Script characteristics on last page load:\nLast update: ".date("D m-d-Y H:i T")."\n".$notes;

$notesfo = fopen($cacheFileDir.'nws-notes.txt', 'w');                           // open note file
$write = fputs($notesfo, $notes);                                               // write notes to file
fclose($notesfo);                                                               // close the file
# ----------------- end of main program ---------------------------

# ----------------- support functions -----------------------------

// FUNCTION - get color, severity, icon
function get_icon($evnt) {
  $a = array();
  global $alert_types;
  $alert_types = array (
# generated from WWA-hazards-2024-10-01.txt merged with orig_alerts_array.txt and resorted by new prio 
# by gen-alert-types.php V1.00 30-Sep-2024
#
    array('N'=>'Tsunami Warning',                      'C'=>'#D00', 'S'=>'1',   'I'=>'CFW.gif'),
    array('N'=>'Tornado Warning',                      'C'=>'#A00', 'S'=>'2',   'I'=>'TOR.gif'),
    array('N'=>'Extreme Wind Warning',                 'C'=>'#D00', 'S'=>'3',   'I'=>'EWW.gif'),
    array('N'=>'Severe Thunderstorm Warning',          'C'=>'#B11', 'S'=>'4',   'I'=>'SVR.gif'),
    array('N'=>'Flash Flood Warning',                  'C'=>'#D00', 'S'=>'5',   'I'=>'FFW.gif'),
    array('N'=>'Flash Flood Statement',                'C'=>'#C70', 'S'=>'6',   'I'=>'FFS.gif'),
    array('N'=>'Severe Weather Statement',             'C'=>'#F33', 'S'=>'7',   'I'=>'SVS.gif'),
    array('N'=>'Shelter In Place Warning',             'C'=>'#D00', 'S'=>'8',   'I'=>'CEM.gif'),
    array('N'=>'Evacuation Immediate',                 'C'=>'#A00', 'S'=>'9',   'I'=>'SVW.gif'),
    array('N'=>'Civil Danger Warning',                 'C'=>'#D00', 'S'=>'10',  'I'=>'WSW.gif'),
    array('N'=>'Nuclear Power Plant Warning',          'C'=>'#D00', 'S'=>'11',  'I'=>'WSW.gif'),
    array('N'=>'Radiological Hazard Warning',          'C'=>'#D00', 'S'=>'12',  'I'=>'WSW.gif'),
    array('N'=>'Hazardous Materials Warning',          'C'=>'#D00', 'S'=>'13',  'I'=>'WSW.gif'),
    array('N'=>'Fire Warning',                         'C'=>'#D00', 'S'=>'14',  'I'=>'WSW.gif'),
    array('N'=>'Civil Emergency Message',              'C'=>'#093', 'S'=>'15',  'I'=>'SPS.gif'),
    array('N'=>'Law Enforcement Warning',              'C'=>'#D00', 'S'=>'16',  'I'=>'WSA.gif'),
    array('N'=>'Storm Surge Warning',                  'C'=>'#D00', 'S'=>'17',  'I'=>'CFW.gif'),
    array('N'=>'Hurricane Force Wind Warning',         'C'=>'#D00', 'S'=>'18',  'I'=>'HUW.gif'),
    array('N'=>'Hurricane Warning',                    'C'=>'#D00', 'S'=>'19',  'I'=>'HUW.gif'),
    array('N'=>'Typhoon Warning',                      'C'=>'#D00', 'S'=>'20',  'I'=>'TRW.gif'),
    array('N'=>'Special Marine Warning',               'C'=>'#D00', 'S'=>'21',  'I'=>'SMW.gif'),
    array('N'=>'Blizzard Warning',                     'C'=>'#D00', 'S'=>'22',  'I'=>'WCW.gif'),
    array('N'=>'Snow Squall Warning',                  'C'=>'#D00', 'S'=>'23',  'I'=>'WCW.gif'),
    array('N'=>'Ice Storm Warning',                    'C'=>'#D00', 'S'=>'24',  'I'=>'ISW.gif'),
    array('N'=>'Heavy Freezing Spray Warning',         'C'=>'#F60', 'S'=>'25',  'I'=>'SWA.gif'),
    array('N'=>'Winter Storm Warning',                 'C'=>'#D00', 'S'=>'26',  'I'=>'WCW.gif'),
    array('N'=>'Lake Effect Snow Warning',             'C'=>'#D00', 'S'=>'27',  'I'=>'SMW.gif'),
    array('N'=>'Dust Storm Warning',                   'C'=>'#D00', 'S'=>'28',  'I'=>'EWW.gif'),
    array('N'=>'Blowing Dust Warning',                 'C'=>'#D00', 'S'=>'29',  'I'=>'EWW.gif'),
    array('N'=>'High Wind Warning',                    'C'=>'#D00', 'S'=>'30',  'I'=>'HWW.gif'),
    array('N'=>'Tropical Storm Warning',               'C'=>'#D00', 'S'=>'31',  'I'=>'TRW.gif'),
    array('N'=>'Storm Warning',                        'C'=>'#D00', 'S'=>'32',  'I'=>'SRW.gif'),
    array('N'=>'Tsunami Advisory',                     'C'=>'#F60', 'S'=>'33',  'I'=>'CFS.gif'),
    array('N'=>'Tsunami Watch',                        'C'=>'#F93', 'S'=>'34',  'I'=>'CFA.gif'),
    array('N'=>'Avalanche Warning',                    'C'=>'#D00', 'S'=>'35',  'I'=>'WSW.gif'),
    array('N'=>'Earthquake Warning',                   'C'=>'#D00', 'S'=>'36',  'I'=>'WSW.gif'),
    array('N'=>'Volcano Warning',                      'C'=>'#D00', 'S'=>'37',  'I'=>'WSW.gif'),
    array('N'=>'Ashfall Warning',                      'C'=>'#D00', 'S'=>'38',  'I'=>'EWW.gif'),
    array('N'=>'Flood Warning',                        'C'=>'#D00', 'S'=>'39',  'I'=>'FFW.gif'),
    array('N'=>'Coastal Flood Warning',                'C'=>'#D00', 'S'=>'40',  'I'=>'CFW.gif'),
    array('N'=>'Lakeshore Flood Warning',              'C'=>'#D00', 'S'=>'41',  'I'=>'CFW.gif'),
    array('N'=>'Ashfall Advisory',                     'C'=>'#F60', 'S'=>'42',  'I'=>'WSW.gif'),
    array('N'=>'High Surf Warning',                    'C'=>'#D00', 'S'=>'43',  'I'=>'SMW.gif'),
    array('N'=>'Excessive Heat Warning',               'C'=>'#D00', 'S'=>'44',  'I'=>'EHW.gif'),
    array('N'=>'Tornado Watch',                        'C'=>'#F93', 'S'=>'45',  'I'=>'TOA.gif'),
    array('N'=>'Severe Thunderstorm Watch',            'C'=>'#F93', 'S'=>'46',  'I'=>'SVA.gif'),
    array('N'=>'Flash Flood Watch',                    'C'=>'#F93', 'S'=>'47',  'I'=>'FFA.gif'),
    array('N'=>'Gale Warning',                         'C'=>'#D00', 'S'=>'48',  'I'=>'GLW.gif'),
    array('N'=>'Flood Statement',                      'C'=>'#C70', 'S'=>'49',  'I'=>'FFS.gif'),
    array('N'=>'Extreme Cold Warning',                 'C'=>'#D00', 'S'=>'50',  'I'=>'HZW.gif'),
    array('N'=>'Freeze Warning',                       'C'=>'#D00', 'S'=>'51',  'I'=>'FZW.gif'),
    array('N'=>'Red Flag Warning',                     'C'=>'#D00', 'S'=>'52',  'I'=>'FWW.gif'),
    array('N'=>'Storm Surge Watch',                    'C'=>'#F93', 'S'=>'53',  'I'=>'CFA.gif'),
    array('N'=>'Hurricane Watch',                      'C'=>'#F93', 'S'=>'54',  'I'=>'HUA.gif'),
    array('N'=>'Hurricane Force Wind Watch',           'C'=>'#F93', 'S'=>'55',  'I'=>'HWW.gif'),
    array('N'=>'Typhoon Watch',                        'C'=>'#F93', 'S'=>'56',  'I'=>'HUA.gif'),
    array('N'=>'Tropical Storm Watch',                 'C'=>'#F93', 'S'=>'57',  'I'=>'TRA.gif'),
    array('N'=>'Storm Watch',                          'C'=>'#F93', 'S'=>'58',  'I'=>'SRA.gif'),
    array('N'=>'Tropical Cyclone Local Statement',     'C'=>'#C70', 'S'=>'59',  'I'=>'HLS.gif'),
    array('N'=>'Winter Weather Advisory',              'C'=>'#F60', 'S'=>'60',  'I'=>'WCY.gif'),
    array('N'=>'Avalanche Advisory',                   'C'=>'#F60', 'S'=>'61',  'I'=>'SWA.gif'),
    array('N'=>'Cold Weather Advisory',                'C'=>'#F60', 'S'=>'62',  'I'=>'WCY.gif'),
    array('N'=>'Heat Advisory',                        'C'=>'#F60', 'S'=>'63',  'I'=>'HTY.gif'),
    array('N'=>'Flood Advisory',                       'C'=>'#F60', 'S'=>'64',  'I'=>'FFS.gif'),
    array('N'=>'Coastal Flood Advisory',               'C'=>'#F60', 'S'=>'65',  'I'=>'CFS.gif'),
    array('N'=>'Lakeshore Flood Advisory',             'C'=>'#F60', 'S'=>'66',  'I'=>'CFS.gif'),
    array('N'=>'High Surf Advisory',                   'C'=>'#F60', 'S'=>'67',  'I'=>'SUY.gif'),
    array('N'=>'Dense Fog Advisory',                   'C'=>'#F60', 'S'=>'68',  'I'=>'FGY.gif'),
    array('N'=>'Dense Smoke Advisory',                 'C'=>'#F60', 'S'=>'69',  'I'=>'SMY.gif'),
    array('N'=>'Small Craft Advisory',                 'C'=>'#F60', 'S'=>'70',  'I'=>'SCY.gif'),
    array('N'=>'Brisk Wind Advisory',                  'C'=>'#F60', 'S'=>'71',  'I'=>'WIY.gif'),
    array('N'=>'Hazardous Seas Warning',               'C'=>'#D00', 'S'=>'72',  'I'=>'SMW.gif'),
    array('N'=>'Dust Advisory',                        'C'=>'#F60', 'S'=>'73',  'I'=>'SWA.gif'),
    array('N'=>'Blowing Dust Advisory',                'C'=>'#F60', 'S'=>'74',  'I'=>'HWW.gif'),
    array('N'=>'Lake Wind Advisory',                   'C'=>'#F60', 'S'=>'75',  'I'=>'LWY.gif'),
    array('N'=>'Wind Advisory',                        'C'=>'#F60', 'S'=>'76',  'I'=>'WIY.gif'),
    array('N'=>'Frost Advisory',                       'C'=>'#F60', 'S'=>'77',  'I'=>'FRY.gif'),
    array('N'=>'Freezing Fog Advisory',                'C'=>'#F60', 'S'=>'78',  'I'=>'FZW.gif'),
    array('N'=>'Freezing Spray Advisory',              'C'=>'#F60', 'S'=>'79',  'I'=>'SWA.gif'),
    array('N'=>'Low Water Advisory',                   'C'=>'#F60', 'S'=>'80',  'I'=>'FFS.gif'),
    array('N'=>'Local Area Emergency',                 'C'=>'#093', 'S'=>'81',  'I'=>'SPS.gif'),
    array('N'=>'Winter Storm Watch',                   'C'=>'#F93', 'S'=>'82',  'I'=>'SRA.gif'),
    array('N'=>'Rip Current Statement',                'C'=>'#C70', 'S'=>'83',  'I'=>'RVS.gif'),
    array('N'=>'Beach Hazards Statement',              'C'=>'#C70', 'S'=>'84',  'I'=>'SPS.gif'),
    array('N'=>'Gale Watch',                           'C'=>'#F93', 'S'=>'85',  'I'=>'GLA.gif'),
    array('N'=>'Avalanche Watch',                      'C'=>'#F93', 'S'=>'86',  'I'=>'WSA.gif'),
    array('N'=>'Hazardous Seas Watch',                 'C'=>'#F93', 'S'=>'87',  'I'=>'SUY.gif'),
    array('N'=>'Heavy Freezing Spray Watch',           'C'=>'#F93', 'S'=>'88',  'I'=>'SWA.gif'),
    array('N'=>'Flood Watch',                          'C'=>'#F93', 'S'=>'89',  'I'=>'FFA.gif'),
    array('N'=>'Coastal Flood Watch',                  'C'=>'#F93', 'S'=>'90',  'I'=>'CFA.gif'),
    array('N'=>'Lakeshore Flood Watch',                'C'=>'#F93', 'S'=>'91',  'I'=>'CFA.gif'),
    array('N'=>'High Wind Watch',                      'C'=>'#F93', 'S'=>'92',  'I'=>'WIY.gif'),
    array('N'=>'Excessive Heat Watch',                 'C'=>'#F93', 'S'=>'93',  'I'=>'EHA.gif'),
    array('N'=>'Extreme Cold Watch',                   'C'=>'#F93', 'S'=>'94',  'I'=>'HZA.gif'),
    array('N'=>'Freeze Watch',                         'C'=>'#F93', 'S'=>'95',  'I'=>'FZA.gif'),
    array('N'=>'Fire Weather Watch',                   'C'=>'#F93', 'S'=>'96',  'I'=>'FWA.gif'),
    array('N'=>'Extreme Fire Danger',                  'C'=>'#D00', 'S'=>'97',  'I'=>'FWW.gif'),
    array('N'=>'911 Telephone Outage',                 'C'=>'#36C', 'S'=>'98',  'I'=>'SPS.gif'),
    array('N'=>'Coastal Flood Statement',              'C'=>'#C70', 'S'=>'99',  'I'=>'CFS.gif'),
    array('N'=>'Lakeshore Flood Statement',            'C'=>'#C70', 'S'=>'100', 'I'=>'CFS.gif'),
    array('N'=>'Special Weather Statement',            'C'=>'#C70', 'S'=>'101', 'I'=>'SPS.gif'),
    array('N'=>'Marine Weather Statement',             'C'=>'#C70', 'S'=>'102', 'I'=>'MWS.gif'),
    array('N'=>'Air Quality Alert',                    'C'=>'#06C', 'S'=>'103', 'I'=>'SPS.gif'),
    array('N'=>'Air Stagnation Advisory',              'C'=>'#F60', 'S'=>'104', 'I'=>'SPS.gif'),
    array('N'=>'Hazardous Weather Outlook',            'C'=>'#093', 'S'=>'105', 'I'=>'SPS.gif'),
    array('N'=>'Hydrologic Outlook',                   'C'=>'#093', 'S'=>'106', 'I'=>'SPS.gif'),
    array('N'=>'Short Term Forecast',                  'C'=>'#C70', 'S'=>'107', 'I'=>'NOW.gif'),
    array('N'=>'Administrative Message',               'C'=>'#36C', 'S'=>'108', 'I'=>'BNK.gif'),
    array('N'=>'Test',                                 'C'=>'#36C', 'S'=>'109', 'I'=>'BNK.gif'),
    array('N'=>'Child Abduction Emergency',            'C'=>'#093', 'S'=>'110', 'I'=>'SPS.gif'),
    array('N'=>'Blue Alert',                           'C'=>'#36C', 'S'=>'111', 'I'=>'BNK.gif'),
  );

  foreach ($alert_types as $a_type)  {
    if(strpos($evnt,$a_type['N']) !== false){
      $a['color']    = $a_type['C'];
      $a['severity'] = $a_type['S'];
      $a['icon']     = $a_type['I'];
      return $a;
    }
  }

   // if alert type is not in list
  if (strpos($evnt,"Warning") !== false) {
    $a['color']    = "#D11";
    $a['severity'] = 46;
    $a['icon']     = 'SVW.gif';
    return $a;
  }
  if (strpos($evnt,"Advisory") !== false) {
    $a['color']    = "#F60";
    $a['severity'] = 83;
    $a['icon']     = 'SWA.gif';
    return $a;
  }
  if (strpos($evnt,"Watch") !== false) {
    $a['color']    = "#F30";
    $a['severity'] = 119;
    $a['icon']     = 'SWA.gif';
    return $a;
  }
  if (strpos($evnt,"Statement") !== false) {
    $a['color']    = "#C70";
    $a['severity'] = 139;
    $a['icon']     = 'SWA.gif';
    return $a;
  }
  if (strpos($evnt,"Air") !== false) {
    $a['color']    = "#06C";
    $a['severity'] = 140;
    $a['icon']     = 'SPS.gif';
    return $a;
  }
  if (strpos($evnt,"Short") !== false) {
    $a['color']    = "#093";
    $a['severity'] = 136;
    $a['icon']     = 'NOW.gif';
    return $a;
  }
  if (strpos($evnt,"Emergency") !== false) {
    $a['color']    = "#093";
    $a['severity'] = 145;
    $a['icon']     = 'SPS.gif';
    return $a;
  }
  if (strpos($evnt,"Outage") !== false) {
    $a['color']    = "#36C";
    $a['severity'] = 146;
    $a['icon']     = 'SPS.gif';
    return $a;
  }
  if (strpos($evnt,"No alerts") !== false) {
    $a['color']    = "#333";
    $a['severity'] = 150;
    $a['icon']     = 'BNK.gif';
    return $a;
  }

  // if no matches yet, set default
  $a['color'] = "#333";
  $a['severity'] = 149;
  $a['icon'] = 'SPS.gif';
  return $a;
}

// FUNCTION - get data cURL
function get_nwsalerts($url)    {
  global $noted,$Version;                                                          // set global
  $data = '';
	$tStatus = '';                                                             // set variable
  $tn = date("g:i:s");                                                    // time now
  $ch = curl_init();                                                      // initialize a cURL session
  curl_setopt($ch, CURLOPT_URL, $url);                                    // connect to provided URL
  curl_setopt($ch, CURLOPT_SSL_VERIFYPEER, 0);                            // don't verify peer certificate
  curl_setopt($ch, CURLOPT_USERAGENT, 'Mozilla/5.0 ('.$Version.')');
  curl_setopt($ch, CURLOPT_CONNECTTIMEOUT, 3);                            // 3 sec connection timeout
  curl_setopt($ch, CURLOPT_TIMEOUT, 2);                                   // 2 sec data timeout
  curl_setopt($ch, CURLOPT_RETURNTRANSFER, true);                         // return the data transfer
  curl_setopt($ch, CURLOPT_USERAGENT, 'Mozilla/5.0 (nws-alerts.php - saratoga-weather.org)');
//    curl_setopt($ch, CURLOPT_USERAGENT, 'Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:58.0) Gecko/20100101 Firefox/58.0');
  if(strpos($url,'api.weather.gov') !== false) {
		$accept = (strpos($url,'point=') !== false)?'application/atom+xml':'application/cap+xml';
		curl_setopt($ch, CURLOPT_HTTPHEADER, // request LD-JSON format
			array(
				"Accept: $accept",
				"Cache-control: no-cache",
				"Pragma: akamai-x-cache-on, akamai-x-get-request-id"
			));
	}
  $data = curl_exec($ch);                                                 // execute session
  if(curl_error($ch) <> '') {                                             // IF there is an error
   $noted .= "\n\n";                                          //  display time notice
   $noted .= "\n";                   //  display error notice
   $noted .= "\n";
  }
  curl_setopt($ch, CURLOPT_NOBODY, false);                                // set nobody
  curl_setopt($ch, CURLOPT_HEADER, true);                                 // get header information
  $header_type = curl_getinfo($ch, CURLINFO_CONTENT_TYPE);                // set header information
  $cinfo = curl_getinfo($ch);                                  // get info on curl exec.
  $tStatus .= "\n";


  curl_close($ch);                                                        // close the cURL session
  
  if(preg_match("|xml|",$header_type)) {                            // IF text/xml is found in the header
   $data = @simplexml_load_string($data);
   $noted .= "\n";
	 $noted .= $tStatus;
	 $noted .= "\n";
  }
  else {
	 $noted .= "\n";
	 $noted .= $tStatus;
	 $noted .= "\n";
   $data = false;
  }
	#$noted .= "\n\n";  
  return $data;                                                           // return data
}// end get_nwsalerts


// FUNCTION - remove 'no alerts' if similar location code has alert
function key_compare($key1, $key2){
  if ($key1 == $key2) return 0;
  else if ($key1 > $key2) return 1;
  else return -1;
}// end remove 'no alerts'

// FUNCTION - sort array by severity
function sev_sort($a, $b){
  if($a[11] == $b[11]){
    if($a[12] == $b[12]){ return 0; }
    elseif($a[12] > $b[12]){ return 1; }
    elseif($a[12] < $b[12]){ return -1; }
  }
  elseif($a[11] > $b[11]){ return 1; }
  elseif($a[11] < $b[11]){ return -1; }
} // end u-sort function

// FUNCTION - sort icons by severity
function ico_sort($a, $b){
  if($a[2] == $b[2]){
    if($a[6] == $b[6]){ return 0; }
    elseif($a[6] > $b[6]){ return 1; }
    elseif($a[6] < $b[6]){ return -1; }
  }
  elseif($a[2] > $b[2]){ return 1; }
  elseif($a[2] < $b[2]){ return -1; }
} // end u-sort function

/*
// FUNCTION - set background color (severity color code)
function old_get_scc($scc) {
  global $tc, $bc;                        // make colors global
  $tc = 'color: #000;';
  if($scc >= 0 and $scc <= 49) {          // warning background
    $bc = 'background-color:#CC0000;';
    $tc = 'color: white;';
  }
  if($scc >= 50 and $scc <= 89) {         // advisory background
    $bc = 'background-color:#FFCC00;';
  }
  if($scc >= 90 and $scc <= 119) {        // watch background
    $bc = 'background-color:#FF9900;';
  }
  if($scc >= 120 and $scc <= 149) {       // other background
    $bc = 'background-color:#E6E6E3;';
  }
  if($scc >= 150) {                       // none background
     $bc = 'background-color:#E6E6E3;';
  }
}// end background color function
//*/

// FUNCTION - set background color (severity color code)
function get_scc($scc) {
  global $tc, $bc, $alert_types;                        // make colors global
  $ix = $scc-1;
  $aname = isset($alert_types[$ix]['N'])?$alert_types[$ix]['N']:'unknown';
  $tc = 'color: #000;';
  $bc = 'background-color:#E6E6E3;';
  if(strpos($aname,'Warning') !== false) {          // warning background
    $bc = 'background-color:#CC0000;';
    $tc = 'color: white;';
  }
  if(strpos($aname,'Advisory') !== false) {         // advisory background
    $bc = 'background-color:#FFCC00;';
  }
  if(strpos($aname,'Watch') !== false) {        // watch background
    $bc = 'background-color:#FF9900;';
  }
  if(strpos($aname,'Air ') !== false) {                       // none background
    $bc = 'background-color:#E6E6E3;';
  }
}// end background color function


// FUNCTION - convert icon name into icon
function conv_icon($if,$ic,$ti) {
  (!empty($ti)) ? $ti = 'alt="'.$ti.'" title=" '.$ti.'"' : $ti = 'alt=" " title=" "';
  $ico = ' ';
  return $ico;
}// end convert icon function

/*
// FUNCTION - convert big icons
function create_bi($a,$b,$c,$d,$e,$g,$h,$i) {
  if($h >= 0 and $h <= 49) { $bi = "A-warn.png"; }
  if($h >= 50 and $h <= 89) { $bi = "A-advisory.png";	}
  if($h >= 90 and $h <= 119) { $bi = "A-watch.png"; }	
  if($h >= 120 and $h <= 139) { $bi = "A-statement.png"; }	
  if($h == 140) { $bi = "A-air.png"; }	
  if($h >= 141 and $h <= 149) { $bi = "A-alert.png"; }
  if($h == 150) { $bi = "A-none.png"; }
  if($i < 2) {$i = '';}
  if($i >= 2) {$i = $i - 1;}
  ($i == 1) ? $alrts = 'alert' : $alrts = 'alerts';
  if($i >= 1) {$i = '  +'.$i.' additional '.$alrts;}
  $bico =  ' '.$a.'
  Details for '.$a.' '.$e.$i
           .'

';
  return $bico;
}// end convert big icons function
//*/

// FUNCTION - convert big icons
function create_bi($a,$b,$c,$d,$e,$g,$h,$i) {
  global $alert_types;                        // make colors global
  $ix = $h-1;
  $aname = isset($alert_types[$ix]['N'])?$alert_types[$ix]['N']:'unknown';
  $bi = "A-none.png";
  if(strpos($aname,'Warning') !== false) { $bi = "A-warn.png"; }
  if(strpos($aname,'Advisory') !== false) { $bi = "A-advisory.png";	}
  if(strpos($aname,'Watch') !== false) { $bi = "A-watch.png"; }	
  if(strpos($aname,'Statement') !== false) { $bi = "A-statement.png"; }	
  if(strpos($aname,'Air ') !== false) { $bi = "A-air.png"; }	
  if(strpos($aname,'Alert') !== false) { $bi = "A-alert.png"; }
  if($h == 150) { $bi = "A-none.png"; }
  if($i < 2) {$i = '';}
  if($i >= 2) {$i = $i - 1;}
  ($i == 1) ? $alrts = 'alert' : $alrts = 'alerts';
  if($i >= 1) {$i = '  +'.$i.' additional '.$alrts;}
  $bico =  ' '.$a.'
  Details for '.$a.' '.$e.$i
           .'

';
  return $bico;
}// end convert big icons function


// FUNCTION - return time
function load_timer() { // mchallis added function
  list($usec, $sec) = explode(" ", microtime());
  return ((float) $usec + (float) $sec);
} // end function load_timeR

// FUNCTION - generate fake no-data alert for CAP 1.2 no alerts entries
function gen_no_alert($zData) { // Added in V2.00
global $noted,$doDebug;
$output = '';

/* input CAP1.2 with no  entry:


    https://api.weather.gov/alerts.atom?zone%5B0%5D=CAZ513&limit=500&active=1
    NWS CAP Server
    2024-01-23T00:30:00+00:00
    
        w-nws.webmaster@noaa.gov
    
    Current watches, warnings, and advisories for Santa Clara Valley Including San Jose (CAZ513) CA
    


Need something in  section like:

  	
  	https://alerts.weather.gov/cap/wwaatmget.php?x=CAZ513&y=0
  	2024-01-29T16:13:41+00:00
  	
  	w-nws.webmaster@noaa.gov
  	
  	There are no active watches, warnings or advisories
  	
  	 
*/

  $id = isset($zData->id)?(string)$zData->id:'';
	$id = str_replace('&','&',$id);
	$updated = isset($zData->updated)?(string)$zData->updated:'';
	$author = isset($zData->author->name)?(string)$zData->author->name:'';
	$link = $id;
	
$rawXML = '
  '.$id.'
  '.$updated.'
  
    '.$author.'
  
  There are no active watches, warnings or advisories
  
	1

'; 
  $output = simplexml_load_string($rawXML);
	if($doDebug) {$noted .= "\n"; }
  return($output);
}

// end nws-alerts.php