function recentSpectrograms($subnet, $WEBPLOTS, $MINFILES, $MAXDAYS)
{
# Loop from today and over the $MAXDAYS last days, until at least $MINFILES spectrograms found
$filesarray = array();
$time = time() + 1000;
# check 1000s ahead in case time is slow on kiska
$daysago = 0;
do {
list($year, $month, $day, $hour, $minute) = epoch2YmdHM($time);
$minute = floorminute($minute);
$filepath = "{$WEBPLOTS}/{$subnet}/{$year}/{$month}/{$day}/2*.png";
$thisarray = glob($filepath);
rsort($thisarray);
if (count($thisarray) > 0) {
$filesarray = array_merge($filesarray, $thisarray);
}
$time = $time - 86400;
$daysago++;
} while (count($filesarray) < $MINFILES && $daysago < $MAXDAYS);
rsort($filesarray);
$nonzerofilesarray = array();
foreach ($filesarray as $myfile) {
$size = filesize($myfile);
if ($size > 0) {
$nonzerofilesarray[] = $myfile;
#print "$myfile<br/>\n";
}
}
$nonzerofilesarray = array_slice($nonzerofilesarray, 0, $MINFILES);
return $nonzerofilesarray;
}
?>
</li>
<li>
<?php
echo "<a title=\"Jump forward in time 10 minutes\" href=\"{$next_sgram_url}\">► Later</a>\n";
?>
</li>
<li>
<?php
echo "<a title=\"Jump to the most recent spectrogram for {$subnet}\" href=\"{$scriptname}?subnet={$subnet}&mosaicurl={$mosaicurl}\">Latest</a>\n";
?>
</li>
<li title="Return to last spectrogram mosaic. This is useful when performing twice-daily seismicity checks.">
<?php
$spectrogram_epoch = strtotime("{$year}-{$month}-{$day} {$hour}:{$minute}:00");
list($syear, $smonth, $sday, $shour, $sminute) = epoch2YmdHM($spectrogram_epoch - 3600);
if ($mosaicurl == "") {
print "<a href=\"mosaicMaker.php?subnet={$subnet}&year={$syear}&month={$smonth}&day={$sday}&hour={$shour}&minute={$sminute}&numhours=2&numMins={$numMins}\">Mosaic</a>\n";
} else {
print "<a href=\"" . urldecode($mosaicurl) . "\">Mosaic</a>\n";
}
?>
</li>
</ul>
</div>
<p/>
<form method="get" id="menu_absolutetime" class="hidden">
<table class="center" border=0>
function diagnosticTable($subnet, $year, $month, $day, $hour, $minute, $numhours, $plotsPerRow, $WEBPLOTS, $includeHeader)
{
$timenow = now();
#################### KISKA TIME #########################
# generate the epoch time for the start date/time requested
#$starttime = mktime($hour, $minute, 0, $month, $day, $year); # get local/utc conversion issues
$starttime = str2epoch("{$year}/{$month}/{$day} {$hour}:{$minute}:00");
# work out the difference in seconds
$starthour = ($timenow - $starttime) / 3600;
$endhour = ($timenow - $starttime) / 3600 - $numhours;
#if ($starthour < 0) {
# $starthour = 0;
#}
#if ($endhour < 0) {
# $endhour = 0;
#}
$numMins = 10;
#$starttime = now() - $starthour * 60 * 60 ;
#list ($year, $month, $day, $hour, $minute) = epoch2YmdHM($starttime);
$stoptime = now() - $endhour * 60 * 60;
list($year_stop, $month_stop, $day_stop, $hour_stop, $minute_stop) = epoch2YmdHM($stoptime);
list($year_now, $month_now, $day_now, $hour_now, $minute_now) = epoch2YmdHM($timenow);
$webpagetitle = sprintf("%s %4d/%02d/%02d %02d:%02d", $subnet, $year, $month, $day, $hour, $minute);
if ($includeHeader) {
printf("<h1 title=\"The start date/time of the spectrogram mosaic (UTC)\" align=\"center\">%s %4d/%02d/%02d %02d:%02d (%dh %02dm ago)</h1>\n", $subnet, $year, $month, $day, $hour, $minute, $starthour, 60 * $starthour % 60);
} else {
printf("<h1 title=\"Start: %4d/%02d/%02d %02d:%02d UTC (%dh %02dm ago)\" align=\"center\">%s</h1>\n", $year, $month, $day, $hour, $minute, $starthour, 60 * $starthour % 60, $subnet);
}
echo "<table class=\"center\" border=1>\n";
$c = 0;
$latestAge = "?";
$firstRow = 1;
$oldhhmm = "";
for ($time = $starttime + $numMins * 60; $time < $stoptime; $time += $numMins * 60) {
# Get the end date and time for the current image
list($year, $month, $day, $hour, $minute) = epoch2YmdHM($time);
$floorminute = floorminute($minute);
$timestamp = sprintf("%04d%02d%02dT%02d%02d", $year, $month, $day, $hour, $floorminute) . "00";
# Create labels for end hour/minute
$hhmm = sprintf("%02d:%02d", $hour, $floorminute);
# Get the start date and time for the current image
list($syear, $smonth, $sday, $shour, $sminute) = epoch2YmdHM($time - $numMins * 60);
$floorsminute = floorminute($sminute);
# Create labels for start hour/minute
$rowstarthhmm = sprintf("%02d:%02d", $shour, $floorsminute);
date_default_timezone_set('UTC');
$floorepochUTC = mktime($shour, $sminute, 0, $smonth, $sday, $syear);
date_default_timezone_set('US/Alaska');
$localtime = localtime($floorepochUTC, true);
# Cannot just use time (see above vairable) here since it is now "floored"
$rowstartlocalhhmm = sprintf("%4d/%02d/%02d %02d:%02d", $localtime[tm_year] + 1900, $localtime[tm_mon] + 1, $localtime[tm_mday], $localtime[tm_hour], $localtime[tm_min]);
if ($oldhhmm == "") {
$oldhhmm = $rowstarthhmm . " - ";
}
# work out age of this latest data in this image
if ($timenow - $time < 24 * 60 * 60) {
$now = strtotime("{$year_now}-{$month_now}-{$day_now} {$hour_now}:{$minute_now}:00");
$tim = strtotime("{$year}-{$month}-{$day} {$hour}:{$floorminute}:00");
$ageSecs = $now - $tim;
$ageHours = floor($ageSecs / 3600);
$ageMins = floor(($ageSecs - 3600 * $ageHours) / 60);
$ageStr = sprintf("%dh%02dm", $ageHours, $ageMins);
if ($ageSecs < 0) {
$ageHours = floor(-$ageSecs / 3600);
$ageMins = floor((-$ageSecs - 3600 * $ageHours) / 60);
$ageStr = sprintf("-%dh%02dm", $ageHours, $ageMins);
}
}
# (ROW STARTS HERE)
if ($c % $plotsPerRow == 0) {
$rowFinished = 0;
#echo "<br/>\n";
if ($firstRow == 0) {
echo "<tr class=\"mosaicblankrow\"><td> </td></tr>\n";
} else {
$firstRow = 0;
}
$summarymessage = summarystations($stachans);
echo "<tr><td height=198 title=\"Start time for this row (UTC). Local time is {$rowstartlocalhhmm}\">{$rowstarthhmm}</td><td>{$summarymessage}</td>\n";
}
# CELL STARTS HERE
$summaryfile = "{$WEBPLOTS}/{$subnet}/{$year}/{$month}/{$day}/{$timestamp}.txt";
if (file_exists($summaryfile)) {
list($stachans, $percentages, $bitranges, $modefractions, $numuniquevalues) = loadsummaryfile($summaryfile);
$summarymessage = summarymessage($stachans, $percentages, $bitranges, $modefractions, $numuniquevalues);
$latestAge = $ageStr;
#echo "<td width=151 title=\"$oldhhmm$hhmm\" class=\"tdimg\"><a href=$summaryfile target=\"diagnostic\">$summarymessage</a></td>\n";
echo "<td width=151 title=\"{$oldhhmm}{$hhmm}\" ><a href={$summaryfile} target=\"diagnostic\">{$summarymessage}</a></td>\n";
} else {
echo "<td width=151 title=\"{$oldhhmm}{$hhmm}\">NO DATA</td>\n";
}
# CELL ENDS HERE
if ($c % $plotsPerRow == $plotsPerRow - 1) {
# ROW ENDS HERE
date_default_timezone_set('UTC');
$floorepochUTC = mktime($hour, $minute, 0, $month, $day, $year);
date_default_timezone_set('US/Alaska');
$localtime = localtime($floorepochUTC, true);
# Cannot just use time (see above vairable) here since it is now "floored"
$rowendlocalhhmm = sprintf("%4d/%02d/%02d %02d:%02d", $localtime[tm_year] + 1900, $localtime[tm_mon] + 1, $localtime[tm_mday], $localtime[tm_hour], $localtime[tm_min]);
echo "<td height=198 title=\"End time for this row (UTC). Local time is {$rowendlocalhhmm}\">{$hhmm}</td>\n";
$rowFinished = 1;
}
$c++;
$oldhhmm = "{$hhmm} - ";
}
if ($rowFinished == 0) {
echo "<td></td></tr>\n";
}
echo "</table>\n";
if ($includeHeader) {
printf("<h1 title=\"The end date/time of the spectrogram mosaic (UTC)\" align=\"center\">%s %4d/%02d/%02d %02d:%02d (%dh %02dm ago)</h1>\n", $subnet, $year, $month, $day, $hour, $minute, $endhour, 60 * $endhour % 60);
}
$webpagetitle .= sprintf("- %4d/%02d/%02d %02d:%02d", $year, $month, $day, $hour, $minute);
return $webpagetitle;
}
$timestart = now() - $starthour * 3600;
###### KISKA TIME ################################################
list($year, $month, $day, $hour, $minute) = epoch2YmdHM($timestart);
$minute = floorminute($minute);
$numhours = $starthour - $endhour;
$_REQUEST['year'] = $year;
$_REQUEST['month'] = $month;
$_REQUEST['day'] = $day;
$_REQUEST['hour'] = $hour;
$_REQUEST['minute'] = $minute;
$_REQUEST['numhours'] = $numhours;
} else {
# Called with year/month/day hour:minute, or with nothing. In the latter case, we default to last 2 hours
$timestart = now() - 2 * 3600;
###### KISKA TIME ################################################
list($year, $month, $day, $hour, $minute) = epoch2YmdHM($timestart);
$year = !isset($_REQUEST['year']) ? $year : $_REQUEST['year'];
$month = !isset($_REQUEST['month']) ? $month : $_REQUEST['month'];
$day = !isset($_REQUEST['day']) ? $day : $_REQUEST['day'];
$hour = !isset($_REQUEST['hour']) ? $hour : $_REQUEST['hour'];
$minute = !isset($_REQUEST['minute']) ? $minute : $_REQUEST['minute'];
$minute = floorminute($minute);
$numhours = !isset($_REQUEST['numhours']) ? 2 : $_REQUEST['numhours'];
$starttime = str2epoch("{$year}/{$month}/{$day} {$hour}:{$minute}:00");
$starthour = ($timenow - $starttime) / 3600;
$endhour = ($timenow - $starttime) / 3600 - $numhours;
}
# Degugging
if ($debugging == 1) {
#var_dump($_REQUEST);
var_dump($_GET);
function mosaicMaker($numMins, $subnet, $year, $month, $day, $hour, $minute, $numhours, $plotsPerRow, $WEBPLOTS, $thumbs, $includeHeader)
{
#$epochnow = now(); # antelope
$epochnow = time();
# generate the epoch time for the start date/time requested
$startepoch = mktime($hour, $minute, 0, $month, $day, $year);
# get local/utc conversion issues
#$startepoch = str2epoch("$year/$month/$day $hour:$minute:00"); # antelope
# work out the difference in seconds
$starthour = ($epochnow - $startepoch) / 3600;
$endhour = ($epochnow - $startepoch) / 3600 - $numhours;
#if ($starthour < 0) {
# $starthour = 0;
#}
#if ($endhour < 0) {
# $endhour = 0;
#}
#$startepoch = now() - $starthour * 60 * 60 ;
#list ($year, $month, $day, $hour, $minute) = epoch2YmdHM($startepoch);
$stopepoch = $epochnow - $endhour * 60 * 60;
list($year_stop, $month_stop, $day_stop, $hour_stop, $minute_stop) = epoch2YmdHM($stopepoch);
list($year_now, $month_now, $day_now, $hour_now, $minute_now) = epoch2YmdHM($epochnow);
$webpagetitle = sprintf("%s %4d/%02d/%02d %02d:%02d", $subnet, $year, $month, $day, $hour, $minute);
if ($includeHeader) {
printf("<h1 title=\"The start date/time of the spectrogram mosaic (UTC)\" align=\"center\">%s %4d/%02d/%02d %02d:%02d (%dh %02dm ago)</h1>\n", $subnet, $year, $month, $day, $hour, $minute, $starthour, 60 * $starthour % 60);
} else {
printf("<h1 title=\"Start: %4d/%02d/%02d %02d:%02d UTC (%dh %02dm ago)\" align=\"center\">%s</h1>\n", $year, $month, $day, $hour, $minute, $starthour, 60 * $starthour % 60, $subnet);
}
#echo "<table class=\"center\" id=\"mosaictable\">\n";
echo "<table class=\"center\" >\n";
$c = 0;
$latestAge = "?";
$firstRow = 1;
$oldhhmm = "";
for ($time = $startepoch + $numMins * 60; $time < $stopepoch; $time += $numMins * 60) {
# Get the end date and time for the current image
list($year, $month, $day, $hour, $minute) = epoch2YmdHM($time);
$floorminute = floorminute($minute);
$timestamp = sprintf("%04d%02d%02dT%02d%02d", $year, $month, $day, $hour, $floorminute) . "00";
# Create labels for end hour/minute
$hhmm = sprintf("%02d:%02d", $hour, $floorminute);
# Get the start date and time for the current image
list($syear, $smonth, $sday, $shour, $sminute) = epoch2YmdHM($time - $numMins * 60);
$floorsminute = floorminute($sminute);
# Create labels for start hour/minute
$rowstarthhmm = sprintf("%02d:%02d", $shour, $floorsminute);
#date_default_timezone_set('UTC');
$floorepochUTC = mktime($shour, $sminute, 0, $smonth, $sday, $syear);
#date_default_timezone_set('US/Alaska');
$localtime = localtime($floorepochUTC, true);
# Cannot just use time (see above vairable) here since it is now "floored"
$rowstartlocalhhmm = sprintf("%4d/%02d/%02d %02d:%02d", $localtime['tm_year'] + 1900, $localtime['tm_mon'] + 1, $localtime['tm_mday'], $localtime['tm_hour'], $localtime['tm_min']);
if ($oldhhmm == "") {
$oldhhmm = $rowstarthhmm . " - ";
}
# Set the link to the big image file
$sgramphplink = "sgram10min.php?year={$year}&month={$month}&day={$day}&hour={$hour}&minute={$floorminute}&subnet={$subnet}&mosaicurl=" . urlencode(curPageURL());
# work out age of this latest data in this image
if ($epochnow - $time < 24 * 60 * 60) {
$now = strtotime("{$year_now}-{$month_now}-{$day_now} {$hour_now}:{$minute_now}:00");
$tim = strtotime("{$year}-{$month}-{$day} {$hour}:{$floorminute}:00");
$ageSecs = $now - $tim;
$ageHours = floor($ageSecs / 3600);
$ageMins = floor(($ageSecs - 3600 * $ageHours) / 60);
$ageStr = sprintf("%dh%02dm", $ageHours, $ageMins);
if ($ageSecs < 0) {
$ageHours = floor(-$ageSecs / 3600);
$ageMins = floor((-$ageSecs - 3600 * $ageHours) / 60);
$ageStr = sprintf("-%dh%02dm", $ageHours, $ageMins);
}
}
# (ROW STARTS HERE)
if ($c % $plotsPerRow == 0) {
$rowFinished = 0;
#echo "<br/>\n";
if ($firstRow == 0) {
echo "<tr class=\"mosaicblankrow\"><td> </td></tr>\n";
} else {
$firstRow = 0;
}
#echo "<tr class=\"sideborder\" ><td class=\"time\" title=\"Start time for this row (UTC). Local time is $rowstartlocalhhmm\">$rowstarthhmm</td>\n";
echo "<tr><td class=\"time\" title=\"Start time for this row (UTC). Local time is {$rowstartlocalhhmm}\">{$rowstarthhmm}</td>\n";
}
# CELL STARTS HERE
$small_sgram = "{$WEBPLOTS}/{$subnet}/{$year}/{$month}/{$day}/{$thumbs}" . "_{$timestamp}.png";
$big_sgram = "{$WEBPLOTS}/{$subnet}/{$year}/{$month}/{$day}/{$timestamp}.png";
if (file_exists($small_sgram)) {
$latestAge = $ageStr;
echo "<td title=\"{$oldhhmm}{$hhmm}\" class=\"tdimg\"><a href={$sgramphplink}><img src={$small_sgram}></a></td>\n";
} else {
if (file_exists($big_sgram)) {
if (filesize($big_sgram) == 0) {
echo "<td title=\"An attempt has been made to load data for this timeperiod.\" class=\"tdimg\"><a href={$sgramphplink}><img src=\"images/nothumbnail.png\"></a></td>\n";
} else {
echo "<td title=\"No thumbnail image produced.\" class=\"tdimg\"><a href={$sgramphplink}><img src=\"{$big_sgram}\" width=150 height=198></a></td>\n";
}
} else {
echo "<td title=\"No spectrogram image file found\" class=\"tdimg\"><a href={$sgramphplink}><img src=\"images/nothumbnail.png\"></a></td>\n";
}
}
# CELL ENDS HERE
if ($c % $plotsPerRow == $plotsPerRow - 1) {
# ROW ENDS HERE
#date_default_timezone_set('UTC');
$floorepochUTC = mktime($hour, $minute, 0, $month, $day, $year);
#date_default_timezone_set('US/Alaska');
$localtime = localtime($floorepochUTC, true);
# Cannot just use time (see above vairable) here since it is now "floored"
$rowendlocalhhmm = sprintf("%4d/%02d/%02d %02d:%02d", $localtime['tm_year'] + 1900, $localtime['tm_mon'] + 1, $localtime['tm_mday'], $localtime['tm_hour'], $localtime['tm_min']);
echo "<td class=\"time\" title=\"End time for this row (UTC). Local time is {$rowendlocalhhmm}\">{$hhmm}</td>\n";
$rowFinished = 1;
}
$c++;
$oldhhmm = "{$hhmm} - ";
}
if ($rowFinished == 0) {
echo "<td></td></tr>\n";
}
echo "</table>\n";
if ($includeHeader) {
printf("<h1 title=\"The end date/time of the spectrogram mosaic (UTC)\" align=\"center\">%s %4d/%02d/%02d %02d:%02d (%dh %02dm ago)</h1>\n", $subnet, $year, $month, $day, $hour, $minute, $endhour, 60 * $endhour % 60);
}
$webpagetitle .= sprintf("- %4d/%02d/%02d %02d:%02d", $year, $month, $day, $hour, $minute);
return $webpagetitle;
}
