#!/usr/local/bin/perl -w
# script: mag_plots.pl
# created 00/12/19
# this perl script takes all the jpg files in the
# /home/mussel5/ftp/pub/ace/level3/mag/summary
# directory and creates web pages that links to them all
# HISTORY:
# 2003Apr24-GRH-Extend & adj. col headings.
# -Ensured o/p html filename ref'd to as a variable.
# -Final preps to switch fm development to production.
# 2003Apr21-GRH-Mods to table (make uniform cols).
# 2003Apr19-GRH-Mods to fix year end(bottom of each tbl).
# 2003Apr18-GRH-Incorporated HTML table formatted output.
# 2003Apr17-GHamell-Mods per Dr.Davis:
# Show most current data first (top of dispayed lists);
# Add a jump (link) table to head of each year.
$date = `date`;
# FILENAMES of output HTML files
$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( "summary/MAGSUMMARY*" ); # get filenames
$i_last = $#fns ; # & index of last element of list
#print "@fns\n";
print HTML_PG "
ACE/MAG Summary Plots
![](\"/ACE/ASC/images/empty.gif\")
![](\"/ACE/ASC/images/asc100x79.gif\")
ACE/MAG Summary Plots
Daily Summary plots of ACE/MAG data since launch, in RTN coordinate system
These files can be downloaded via anonymous ftp, from mussel.srl.caltech.edu
in the directory: pub/ace/level3/mag/summmary\n
\n";
# Find the First & last YEAR values
$fns[ 0 ] =~ /.*MAGSUMMARY_(\d+)-(\d+).*/ ;
$yr_frst = $1;
$fns[ $i_last ] =~ /.*MAGSUMMARY_(\d+)-(\d+).*/ ;
$yr_last = $1;
#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
$colmax = 4;
#$yr_check = $yr_last;
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( "summary/MAGSUMMARY_$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 ) ;
# @fns = prt3colist( "MAG", $yr, $colmax );
#print "@fns \n";
# 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 "MAG 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;
for( $rk=$#fns; $rk>0; $rk-=$tmpcolmax ) { # get last/next filename from list of filenames
for( $ck=0; $ck<$tmpcolmax; $ck++ ) {
# calc index of fns list
$i = $#fns - ($r + ( $c * $pitch));
$fn = $fns[ $i ];
$file_size = -s $fn;
$fn =~ /.*MAGSUMMARY_(\d+)-(\d+).*/ ;
print HTML_PG "| $1/$2 | ";
# print HTML_PG " | ";
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 "
MAG Data Description Page
Contributed Data Page
Return to ASC Home Page
Last Updated: $date
";
close(HTML_PG);;
#------------------------------