Tropical Storms: Yearly Summaries

#!/usr/local/bin/perl # Copyright (C) 1996 Thomas R. Metcalf # # This software is provided "as is" and is subject to change without # notice. No warranty of any kind is made with regard to this software, # including, but not limited to, the implied warranties of # merchantability and fitness for a particular purpose. The author shall # not be liable for any errors or for direct, indirect, special, # incidental or consequential damages in connection with the furnishing, # performance, or use of this software: use it at your own risk. # # This program is free software; you can redistribute it and/or # modify it under the terms of the GNU General Public # License as published by the Free Software Foundation; either # version 2 of the License, or (at your option) any later version. # # This program is distributed in the hope that it will be useful, # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # General Public License for more details. # # You should have received a copy of the GNU General Public # License along with this library; if not, write to the Free # Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. # $RootPath = "/data1/WWW/Tropical/GifArchive"; $WWWRoot = "/Tropical/GifArchive"; #setpriority(0,0,getpriority(0,0)+6); # nice the process # Get archive listings opendir(GIFDIR,"$RootPath"); # Read directory @giffiles = readdir(GIFDIR); closedir(GIFDIR); if (@giffiles >= 1) { grep($_ = "$WWWRoot/".$_,@giffiles); # Add root to file names } # Sort the list of gif files by file name sub by_file_name { (reverse(split(m|/|,$a)))[0] cmp (reverse(split(m|/|,$b)))[0]; } @giffiles = sort by_file_name (@giffiles); @atlfiles = grep(/(atl\d\d\d\d\.gif)$/i,@giffiles); @nepfiles = grep(/(nep\d\d\d\d\.gif)$/i,@giffiles); @nwpfiles = grep(/(nwp\d\d\d\d\.gif)$/i,@giffiles); @sepfiles = grep(/(sep\d\d\d\d\.gif)$/i,@giffiles); @swpfiles = grep(/(swp\d\d\d\d\.gif)$/i,@giffiles); @ninfiles = grep(/(nin\d\d\d\d\.gif)$/i,@giffiles); @sinfiles = grep(/(sin\d\d\d\d\.gif)$/i,@giffiles); @wldfiles = grep(/(wld\d\d\d\d\.gif)$/i,@giffiles); # Set HTML Header and Footer $html_header = <<"HEADER_END"; Tropical Storms: Yearly Summaries

Tropical Storm Tracks: Yearly Summaries

HEADER_END $html_legend = <<"LEGEND_END";

Each gif image (~20 kB) shows storm tracks for the calendar year indicated.

LEGEND_END $html_footer = <<"FOOTER_END";

metcalf\@akala.ifa.hawaii.edu

accesses FOOTER_END # Generate the HTML output print "$html_header\n"; if (@giffiles < 1) { # No gif files in the directory print "

No Summary Data Found

\n\n"; } else { print "$html_legend\n"; @ocean = ("wld","atl","nep","nwp","sep","swp","nin","sin"); @oname = ("Worldwide", "Atlantic", "NE Pacific", "NW Pacific", "SE Pacific", "SW Pacific", "N Indian", "S Indian"); for ($i=0; $i<=$#ocean; ++$i) { $ocurrent = $ocean[$i]; $ncurrent = $oname[$i]; print "

${ncurrent} \n: "; @files = grep(/(${ocurrent}\d\d\d\d\.gif)$/i,@giffiles); foreach $file (@files) { @file_path = split(m|/|,$file); $year = substr($file_path[$#file_path],3,4); print "$year\n"; } print "

\n"; } } print "$html_footer\n"; exit;

Tropical Storm Tracks: Yearly Summaries

No Summary Data Found

${ncurrent}