\n".$content2."\n"); fclose($fp); print "\n"; } else { print "\n"; } $html .= "\n||||||\n"."\n
\n".$content2."\n"; } else { print "\n"; print "\n"; print "\n"; print "\n"; } } # Set timezone in PHP5/PHP4 manner if (!function_exists('date_default_timezone_set')) { putenv("TZ=" . $ourTZ); # $Status .= "\n"; } else { date_default_timezone_set("$ourTZ"); # $Status .= "\n"; } if(strlen($html) < 250) { print "\n"; return; } // extract the updated date/time // print "
\n";
preg_match_all('|Last-Modified: (.*)\r|Uis',$html,$matches);
// print_r($matches);
if(!isset($matches[1][0])) { // no Last-Modified header.. look for the status line
// Status as of 08.03.2016 wed 21:05:01 utc
preg_match_all('|Status as of (\S+)\s+\S+\s(\S+) utc|Uis',$html,$matches);
$t = explode('.',$matches[1][0]);
$UDate = $t[2].'-'.$t[0].'-'.$t[1] . ' ' . $matches[2][0] . ' GMT';
//print "\n";
$UDate = gmdate('r',strtotime($UDate));
} else {
$UDate = $matches[1][0];
}
// $UDate = 'Fri, 05 Jun 2015 00:14:01 GMT'
$UDp = explode(" ",$UDate);
//print "\n";
/*
Array $UDp is now:
(
[0] => Tue,
[1] => 08
[2] => Mar
[3] => 2016
[4] => 21:40:01
[5] => +0000
)
*/
$UTCdate = strtotime($UDate);
$LCLdate = date($timeFormat,$UTCdate);
//print "\n";
/* The data looks like this:
KMUX
23:28:17
KMVX
00:15:17
then looked like
KAMX
04:06:04
KAPX
04:26:04
KARX
04:42:27
KATX
02:33:21
now looks like
KVNX
19:03:46
07/06/15
KVTX
20:49:11
07/06/15
*/
preg_match_all('|]*>(.*)|Uis',$html,$matches);
// print "\n";
$status = $matches[1];
$recs = $matches[3];
/*
[104] => KMUX
20:50:16
07/06/15
[105] => KMVX
20:46:59
07/06/15
*/
print "\n";
foreach ($recs as $n => $rec) {
if (! preg_match("|$myRadar|",$rec)) {continue;}
$statColor = $status[$n];
$statColor = str_replace('#0000FF','#FF0000',$statColor);
// print "statColor='$statColor'\n";
preg_match_all('|(.*)
(.*)
(.*)|is',$rec,$matches);
// print "\n";
$statRadar = $matches[1][0];
$lastUTCtime = $matches[2][0];
$td = explode('/',$matches[3][0]);
// print "\n";
if($matches[3][0] == '00/00/00' and $matches[2][0] == '00:00:00'){
print "\n";
$curStatus = 'No Data';
unset($statColor);
$age = '';
$ageHMS = '';
break;
}
$lastUTCdate = '20'.$td[2].'-'.$td[0].'-'.$td[1].' '.$lastUTCtime.' GMT';
// print "\n";
$t=strtotime($lastUTCdate);
print "\n";
$age = $UTCdate - $t;
// if ($age < 0) { $age += (60*60*24); } // account for one day extra downtime if need be
$ageHMS = gmdate('H:m:s',$age);
preg_match_all('||is',$rec,$matches);
$curStatus = 'Active';
if ($statColor <> '#33FF33') {
$curStatus = 'Data not recent';
}
if (isset($matches[1][0])) {
$curStatus = $matches[1][0];
}
// print "statRadar='$statRadar' lastUTCtime='$lastUTCtime' curStatus='$curStatus'\n";
// print "$prec";
// print "$rec";
break;
// print "$rec"; // this shouldn't print ever
}
// extract the messages
preg_match('|]*>(.*) |Usi',$html,$matches);
$messages = $matches[1];
// now split up the messages and process
$messages = preg_replace('|NOUS|Us','||NOUS',$messages) . '|'; // add message delimiters
$messages = preg_replace('|ÿÿ|Uis',"\n||NOUSnn",$messages); // remove garbage characters.
$messages = preg_replace('|ð|Uis','',$messages); // remove garbage characters
preg_match_all('!\|NOUS(.*)\|!Us',$messages,$matches); // split the messages
$messages = $matches[1]; // now have array of messages in order
$radarMsgs = array(); // for storing the messages in a 'cleansed' format by Radar key, then date
foreach ($messages as $n => $msg) {
/* a $msg looks like this:
66 KMTR 200618
FTMMUX
MESSAGE DATE: JAN 20 2008 06:17:55
KMUX SAN FRANCISCO RADAR IS EXPERIENCING INTERMITTENT DATA FLOW
INTERUPTIONS. TROUBLE-SHOOTING PROCEDURES ARE CURRENTLY UNDERWAY TO
DETERMINE THE PROBLEM AND RESTORE NORMAL OPERATIONS.
*/
$msgline = explode("\n",$msg); // get 'em separated into individual lines.
$t = explode(' ',trim($msgline[0]));
$thisRadar = $t[1];
$thisTD = $t[2];
if (substr($thisRadar,1,3) != substr($msgline[1],3,3)) { // sometimes one reports for another
$thisRadar = substr($thisRadar,0,1) . substr($msgline[1],3,3);
}
preg_match('|date:\s+(.*)|i',trim($msgline[2]),$matches);
$istart = 3;
if (!isset($matches[1])) {
// oops.. no message line
$istart--;
/*
use the Updated UTC to 'fill in the blanks' from the header line
(
[0] => Mon
[1] => Jan
[2] => 21
[3] => 00:14:59
[4] => CUT
[5] => 2008
)
*/
$tdate = substr($thisTD,0,2) . '-' . $UDp[1] . '-' . $UDp[5] . ' ' .
substr($thisTD,2,2) . ':' . substr($thisTD,4,2) . ':00 UTC';
$thisDate = strtotime($tdate);
} else {
$thisDate = strtotime($matches[1] . ' UTC');
}
$thisMsg = '';
for ($i=$istart;$iNEXRAD Radar $myRadar status: $curStatus [last data $pAge ago]
as of $LCLdate
Message date: " . date($timeFormat,$timestamp) . "
\n";
print $msg . "
NWS WSR-88D Transmit/Receive Status
\n"; } // end suppress if radar active and $noMsgIfActive == true elseif (isset($statColor) ){ print "\n"; if (isset($radarMsgs[$myRadar])) { foreach ($radarMsgs[$myRadar] as $timestamp => $msg) { $msg = htmlspecialchars($msg); print "\n"; } } } elseif (!isset($statColor) and $age == '') { # no data but found print "\n"; } else { print "NEXRAD radar $myRadar status not found.
\n"; } if($divStarted) { print "