$use_nav = true; // true = build a 'menu' based on contents of 'reports' directory // false = NO 'menu', DIY with post .php?yr=yyyy&mo=mm (no input = current or latest month report. $classic_nav = false; // false = show ALL available nav options at once // false = show selected year together with a 'drop-down' style nav. // if Javascript DISabled, classic style will be displayed ;-) $months = array( "01"=>"Jan", "02"=>"Feb", "03"=>"Mar", "04"=>"Apr", "05"=>"May", "06"=>"Jun", "07"=>"Jul", "08"=>"Aug", "09"=>"Sep", "10"=>"Oct", "11"=>"Nov", "12"=>"Dec" ); // *** Change below if your reports directory is different to the 'type' default ****************** if ($Naming == 'WL') { $NOAAdir = './'; // point to your NOAA file sub-directry $ThisYearFile = "./NOAAYR.TXT"; // point to your current NOAA yearly file $ThisMonthFile= "./NOAAMO.TXT"; // point to your current NOAA monthly file $LastYearFile = "./NOAAPRYR.TXT"; // point to your prior NOAA yearly file $LastMonthFile= "./NOAAPRMO.TXT"; // point to your prior NOAA monthly file } if ($Naming == 'VWS') { $NOAAdir = './noaa'; // point to your NOAA file sub-directry $ThisYearFile = "$NOAAdir/noaayr.txt"; // point to your current NOAA yearly file $ThisMonthFile= "$NOAAdir/noaamo.txt"; // point to your current NOAA monthly file } if ($Naming == 'CU') { $NOAAdir = '../CumulusMX/NOAA'; // point to your NOAA file sub-directry // NO current NOAA month or yearly files } // END user variables, you only need to look below if you wish to change wording / language // safely display NOAA style text report files // Original Author: Ken True - webmaster@saratoga-weather.org // look for 'posted' or 'include' variables $yr = isset($_REQUEST['yr']) ? $_REQUEST['yr'] : ''; $mo = isset($_REQUEST['mo']) ? $_REQUEST['mo'] : ''; if (isset($_REQUEST['type'])) { $Naming = $_REQUEST['type']; } if (isset($wxtype)) { $Naming = $wxtype; } // new - beteljuice // facility to show the code in a browser if ( isset($_REQUEST['sce']) and strtolower($_REQUEST['sce']) == 'view' ) { //--self downloader -- $filenameReal = __FILE__; $download_size = filesize($filenameReal); header('Pragma: public'); header('Cache-Control: private'); header('Cache-Control: no-cache, must-revalidate'); header("Content-type: text/plain"); header("Accept-Ranges: bytes"); header("Content-Length: $download_size"); header('Connection: close'); readfile($filenameReal); exit; } // END show code if (isset($_REQUEST['inc']) and strtolower($_REQUEST['inc']) == 'n') { $IncludeMode = true; } if (isset($doInclude)) { $IncludeMode = $doInclude; } if (! $IncludeMode ) { // 'stand-alone' - create html headers ?> NOAA style reports

\n"; $now_month = sprintf("%02d",$now['mon']); $now_year = $now['year']; $prior_month = $now['mon'] - 1; $prior_year = $now['year']; $last_year = $prior_year -1; if ($prior_month < 1) {$prior_month = 12; $prior_year--;} $prior_month = sprintf("%02d",$prior_month); print "\n"; print "\n"; if ($Naming == 'WL') { // check for month/year rollover and update if(! file_exists("$NOAAdir/NOAA$prior_year-$prior_month.TXT") and file_exists($LastMonthFile) ) { print "\n"; if (copy($LastMonthFile,"$NOAAdir/NOAA$prior_year-$prior_month.TXT")) { print "\n"; } else { print "\n"; } } if(! file_exists("$NOAAdir/NOAA$last_year.TXT") and file_exists($LastYearFile) ) { print "\n"; if (copy($LastYearFile,"$NOAAdir/NOAA$last_year.TXT")) { print "\n"; } else { print "\n"; } } } // END WL rollover check if ($handle = opendir("$NOAAdir")) { while (false !== ($file = readdir($handle))) { if ($file != "." && $file != "..") { $files[] = $file; } } closedir($handle); sort($files); // ascending order $lastyear = '2017'; // set up the files and find the first and last year for reports $first_year = "2012"; foreach ($files as $key => $file) { if ($Naming == 'WL') { $year = substr($file,4,4); } elseif ($Naming == 'VWS') { $year = substr($file,0,4); } elseif ($Naming == 'CU') { $year = substr($file,6,4); $year2 = substr($file, 8, 2); } if ((! preg_match("/^\d{4}$/",$year) ) && (!preg_match("/^\d(4)$/", $year2) && substr($file, 4, 2) == "MO" && $Naming == "CU") ) { continue;} //make sure year is numeric $filesfound["$file"] = 1; if (!$first_year && $Naming != "CU") { // everything EXCEPT Cumulus $first_year = $year; $last_year = $year; // not used } if ($Naming == "CU") { // find the year value of ANY 'orphan' Cumulus year OR month reports if (substr($file, 4, 2) == "MO") { // found a month report $CU_year[] = "20" .$year2; } else { // found a year report $CU_year[] = $year; } } // END Cumulus 'orphan' check } // END foreach if ($Naming == "CU") { // find first and last valid years $first_year = min($CU_year); $last_year = max($CU_year); // not used ! } if (! $first_year) { echo "

Sorry... no NOAA-style reports found.

"; echo ""; return; } // Even if $use_nav = false, we use the (same) routine to check that the requested report exists. // We simply don't output the 'menu' // start building page echo "
\n"; // if($use_nav) { echo "Select a Year or Month report
\n"; } If($now_year - $first_year == 0 || !$use_nav) {$classic_nav = true;} // Don't create drop-down and js // now create the index links based on which files we have // for ($y = $first_year; $y <= $now_year; $y++) { // above will do ascending sort by year in index // but we like the Index links sorted in descending year so // newest reports are at the top of the list // $testfile = ""; // initialise to prevent twitch level error reporting $cu_year = ""; // initialise $cu_month = ""; // initialise $cu_month_year = ""; // initialise // initialise selected single line and full entry
s // single line entry is effectively only used to control 'drop-box' $single_line = "
V/Λ"; $full_nav = "
\n"; $nav_build = array(); // initialise, will become eg. $nav_build[2011][found_year, months[] ] for ($y = $now_year; $y >= $first_year; $y--) { // populate $nav_build array() $yy = sprintf("%04d",$y); if ($Naming == 'WL') {$t = "NOAA$yy.TXT"; } if ($Naming == 'VWS') {$t = "$yy.txt"; } if ($Naming == 'CU') {$t = "NOAAYR$yy.txt"; } if ($filesfound[$t] || ($yy == $now_year && $Naming != "CU")) { $nav_build[$y]['active'] = true; if (!$cu_year) { $cu_year = $yy;} } else { $nav_build[$y]['active'] = false; } // create month select for each year for ($m = 1; $m <= 12; $m++) { $mm = sprintf("%02d",$m); if ($Naming == 'WL') {$testfile = "NOAA$yy-$mm.TXT";} if ($Naming == 'VWS') {$testfile = "$yy" . "_" . "$mm.txt"; } if ($Naming == 'CU') {$testfile = "NOAAMO$mm" .substr($yy, 2,2). ".txt"; } if (array_key_exists($testfile, $filesfound)) { $nav_build[$y]['months'][$m] = "" .$months[$mm]. ""; // trailing space removed - beteljuice if (!$cu_month) { // first valid month in latest valid year $cu_month = $mm; $cu_month_year = $yy; } else { // update last valid month in latest valid year if ($cu_month_year == $yy) { $cu_month = $mm; } } } else { if ($yy == $now_year && $mm == $now_month && $Naming != "CU") { $nav_build[$y]['months'][$m] = "" . $months[$mm] ." "; } else { $nav_build[$y]['months'][$m] = "" . $months[$mm] .""; } } if ($m < 12) { $nav_build[$y]['months'][$m] .= " "; } else { $nav_build[$y]['months'][$m] .= "\n"; } } // END month step through } // END year step through // Now PREPARE the reports if ($Naming == "CU" && !$yr && !$mo) { // show default latest Cumulus report if ($cu_month_year >= $cu_year) { // month report newer than year report $yr = $cu_month_year; $mo = $cu_month; }else { // year report is newer than month report $yr = $cu_yr; $mo = ""; } } if (! $yr && ! $mo && $Naming != "CU") { // special for 'current month', except Cumulus $advisory = "
Report for $now_year $now_month\n"; $rpt = implode("",file("$ThisMonthFile")); } if ($yr == $now_year && !$mo && $Naming != "CU") { // special for current year, except Cumulus $advisory = "
Report for $now_year\n"; $rpt = implode("",file("$ThisYearFile")); } else { // otherwise, process the requested year or year/month if ($yr) { $noaa_picked_yr = $yr; $noaa_picked_mon = $mo; if ($mo) { // month given if ($Naming == 'WL') {$testfile = "NOAA$yr-$mo.TXT";} if ($Naming == 'VWS') {$testfile = "$yr" . "_" . "$mo.txt";} if ($Naming == 'CU') {$testfile = "NOAAMO$mo" .substr($yr, 2,2). ".txt";} } else { // no month given if ($Naming == 'WL') {$testfile = "NOAA$yr.TXT";} if ($Naming == 'VWS') {$testfile = "$yr.txt";} if ($Naming == 'CU') {$testfile = "NOAAYR$yr.txt";} } // END no month given if (array_key_exists($testfile, $filesfound)) { $advisory = "
Report for $yr " .($mo ? $months[$mo] : ''). "\n"; $rpt = implode("",file("$NOAAdir/$testfile")); } else { // Nowt found need classic (full availability) menu $classic_nav = true; $advisory = "
Sorry, no report for " .$yr. " " .($mo ? ($mo >= 1 && $mo <= 12 ? $months[$mo] : "month " .$mo) : ""). "

\n"; // can only happen if 'posted' } } } // o/p nav if($use_nav) { // **** bug fix 17th Aug 2013 ********** if(! $yr && ! $mo && $Naming != "CU"){ // special for 'current month', except Cumulus $yr = $now_year ; // special for 'current month', except Cumulus $noaa_picked_yr = $now_year ; $noaa_picked_mon = $now_month; } for ($y = $now_year; $y >= $first_year; $y--) { // BUILD menu from $nav_build array() $yy = sprintf("%04d",$y); // create year select // set up 'classic' nav $updown = ""; $yr_id = ""; if(!$classic_nav) { // needs updown and year id on latest year, reserved space and no id thereafter if($y == $now_year) { $updown = "V/Λ"; $yr_id = "id=\"nav_year_one\" "; } else { $updown = "V/Λ"; $yr_id = ""; } } // end if $classic_nav if($nav_build[$y]['active']) { // create 'link' for year if($yr == $y) { // create single-line 'drop-down' and highlight for classic $single_line .= "$yy > " .DoMonths($yy). "
\n"; $full_nav2 .= $updown."$yy > " .DoMonths($yy). ""; } else { $full_nav2 .= $updown."$yy > " .DoMonths($yy); } } else { // year is not an active link if($yr == $y) { // create single-line 'drop-down' and highlight for classic $single_line .= "$yy > " .DoMonths($yy). "
\n"; $full_nav2 .= $updown."$yy > " .DoMonths($yy). ""; } else { $full_nav2 .= $updown."$yy > " .DoMonths($yy); } } if($yr != $first_year) { $full_nav2 .= "
\n";} } // END year step through } // end if $use_nav $full_nav2 .= "
\n"; } // END if directory echo $full_nav. $full_nav2; if(!$classic_nav ) {echo $single_line. "\n";} echo "
\n"; echo $advisory; if($rpt){ echo "
\n";
	echo utf8_encode(preg_replace('|<|Uis','<',$rpt));
	echo "
\n"; } echo "
\n"; // JavaScript construct for 'drop-down' style nav - beteljuice if(!$classic_nav && $use_nav) { // classic nav is ALWAYS in the page (if $use_nav = true), JavaScript is to turn it OFF and work drop-down ?>