#!/usr/local/bin/perl -w
# script: swims_plots.pl
# created 03/02/06
# this perl script takes all the gif files in the
# /home/mussel5/ftp/pub/ace/level3/swims/ACE_SWIMS_MMTH/
# directory and creates web pages that links to them all
$date = `date`;
# Init o/p HTML filename variable
$summary_plots = "summary_plots.html";
#$summary_plots = "gh_summary_plots.html";
open(HTML_PG, ">$summary_plots") or die "can't open file $summary_plots";
@fns = glob( "mth*" ); # get files
$i_last = $#fns;
#print "@fns\n";
print HTML_PG "
ACE/SWIMS Daily Solar Wind Mass Distribution Plots
![](\"/ACE/ASC/images/empty.gif\")
![](\"/ACE/ASC/images/asc100x79.gif\")
ACE/SWIMS Daily Solar Wind Mass Distribution Plots
These files can be downloaded via
anonymous ftp, from mussel.srl.caltech.edu
in the directory: pub/ace/level3/swims/ACE_SWIMS_MMTH\n\n";
#print HTML_PG " (Year/DOY .....File Size)
\n";
# initialization
$colmax = 4;
# Find the First & last YEAR values
$fns[ 0 ] =~ /mth(\d+).gif/ ;
$yr_frst = int( $1 / 1000 );
$fns[ $i_last ] =~ /mth(\d+).gif/ ;
$yr_last = int( $1 / 1000 );
#print "yr_last='$yr_last'\n";
# Make Links (jump tbl) to each year
$yr = $yr_last;
print HTML_PG "
\n";
while( $yr_frst <= $yr ) {
print HTML_PG "- $yr\n";
$yr--;
}
print HTML_PG "
\n";
# initialization
print HTML_PG "\n";
$yr = $yr_last;
# Get separate list for each year
while( $yr >= $yr_frst ) {
# Get one years worth of filenames
@fns = glob( "mth$yr*" ); # get filenames for this "yr"
# Calc row num of last full line
$pitch = int(( $#fns + 1 ) / $colmax );
if(( $pitch * $colmax ) != ( $#fns + 1 )) {
$pitch++;
}
$last_full_line = $#fns - (( $colmax - 1 ) * $pitch ) ;
# Generate break line and new heading
print HTML_PG "
\n";
print HTML_PG "![\"top\"](\"http://www.srl.caltech.edu/ACE/ASC/images/top.gif\")
";
print HTML_PG "
\n" ;
print HTML_PG "\n
\n";
print HTML_PG "SWIMS Summary plots for year $yr";
print HTML_PG "
\n";
print HTML_PG "";
for( $i=0; $i<$colmax; $i++) {
print HTML_PG "Year/
DOY | ";
print HTML_PG "File
Size | ";
print HTML_PG " | | ";
}
print HTML_PG "
\n";
$r = 0;
$c = 0;
$tmpcolmax = $colmax;
# get last/next filename from list of filenames
for( $rk=$#fns; $rk>0; $rk-=$tmpcolmax ) {
for( $ck=0; $ck<$tmpcolmax; $ck++ ) {
# calc index of fns list
$i = $#fns - ($r + ( $c * $pitch));
$fn = $fns[ $i ];
$file_size = -s $fn;
$fn =~ /mth(\d+).*/ ;
$year = int( $1 / 1000 );
$doy = $1 % 1000;
print HTML_PG "| $year/$doy | ";
print HTML_PG "$file_size | ";
print HTML_PG " | | ";
$c++;
# did that use up all the columns?
if( $c >= $tmpcolmax ) {
print HTML_PG "
\n";
$c = 0;
$r++;
# did that fill up the last full row?
if(( $r > $last_full_line ) && ( $tmpcolmax >= $colmax )) {
$tmpcolmax--; # do this only once
}
}
}
}
print HTML_PG "
\n";
$yr--;
}
print HTML_PG "
Contributed Data Page
Return to ASC Home Page
Our Email Address:
asc\@srl.caltech.edu
Last Updated: $date
";
close(HTML_PG);