#!/usr/arch/bin/perl $user = `whoami`; chomp $user; if ($user ne "ice" && $user ne "bppresto") { print "ERROR: Script MUST be run as user 'ice'... \n"; exit (1); } print "Updating Web Pages... \n"; print "Note: If it says 'no such file or directory...', it just means that there are not any jpeg's to add to the web page. Don't worry about it. \n\n"; $baseDir = "/local/ht-geo/great_lakes/icegroup/"; $leftPaneHtml = $baseDir . "archive_LaurentianLeft.html"; @lakeArray = ("Superior", "Michigan", "Huron_Erie", "Ontario_Erie_StLaw", "Other"); @yearArray = ("2001", "2000", "1999", "1998", "1997"); foreach $lake(@lakeArray) { foreach $year(@yearArray) { # will be something like "./pic/2000/Superior/" $picDir = "./pics/" . $year . "/" . $lake . "/"; $lakeDir = "archive_" . $lake . "_" . $year; $pattern = $baseDir . $lakedir . "pics/" . $year . "/" . $lake . "/*/" . "*D.jpg"; @jpegList = `ls $pattern`; $numPicsInDir = @jpegList; push @numPics, $numPicsInDir; $lakeFile = $baseDir . $lakeDir . ".html"; open (HTML, ">$lakeFile"); print HTML "\n"; print HTML "\n"; print HTML "\n"; print HTML "ScanSAR Archive\n"; print HTML " \n"; print HTML " \n"; print HTML "
\n"; print HTML "

$lake - $year

\n"; print HTML "To select an image: \n"; print HTML "
  • Select the view you would like of the image \n"; print HTML "
  • Click on the 'Show Image' button \n"; print HTML "

    \n"; print HTML " \n"; print HTML " \n"; print HTML " \n"; print HTML " \n"; print HTML " \n"; print HTML " \n"; print HTML "
    View Type \n"; print HTML " List of Choices \n"; print HTML "
    Non Filtered: \n"; print HTML " \n"; print HTML " Regular Image
    \n"; print HTML " Gamma Value of 2
    \n"; print HTML "
    Convolution Filters: \n"; print HTML " \n"; print HTML " Sobel
    \n"; print HTML " Roberts
    \n"; print HTML " Median
    \n"; print HTML " Low Pass
    \n"; print HTML " High Pass
    \n"; print HTML " Laplacian
    \n"; print HTML " Directional
    \n"; print HTML " Gaussian
    \n"; print HTML "
    Adaptive Filters: \n"; print HTML " \n"; print HTML " Lee
    \n"; print HTML " Bit Error Removal
    \n"; print HTML " Localized Sigma
    \n"; print HTML " Frost
    \n"; print HTML " Gamma
    \n"; print HTML " Kuan
    \n"; print HTML "
    Color Tables:
    \n"; print HTML " (Processed on 5x5 Median
    \n"; print HTML " Convolution Filter) \n"; print HTML "     		\n"; print HTML " Green / Red / Blue / White
    \n"; print HTML " Blue / Green / Red / Yellow
    \n"; print HTML " Rainbow
    \n"; print HTML " Stern Special
    \n"; print HTML "
    \n"; print HTML "

    \n"; print HTML " \n"; print HTML " \n"; print HTML " \n"; @split = split(/\//, $item); $size = @split; $name = @split[$size-1]; $baseName = substr($name, 0, -4); print HTML "
    File Name \n"; print HTML " Preview \n"; print HTML " View Select \n"; foreach $item(@jpegList) { chomp $item; @picture = split(/\//, $item); $len = @picture; $pic = @picture[$len-1]; print HTML "
    $name \n"; print HTML " \n"; $picture = $picDir . $baseName . "/" . $name; print HTML " \n"; print HTML " \n"; print HTML "
    \n"; print HTML " Select View:

    \n"; print HTML " \n"; print HTML " \n"; print HTML " \n"; print HTML "

    \n"; print HTML "

    \n"; print HTML " \n"; } print HTML "
    \n"; print HTML "

    • \n"; print HTML " \n"; print HTML " \n"; close (HTML); } } open(HTML, ">$leftPaneHtml"); print HTML " \n"; print HTML " \n"; print HTML " \n"; print HTML "
    \n"; print HTML "Lakes \n"; print HTML "
    \n"; print HTML "
    \n"; print HTML " \n"; @lakes = ("Superior", "Michigan", "Huron_Erie", "Ontario_Erie_StLaw", "Other"); $count = 0; for ($i = 0; $i < 5; $i++) { print HTML "@lakes[$i] \n"; print HTML " \n"; print HTML " \n"; } print HTML "
    \n"; print HTML "
    \n"; print HTML " \n"; print HTML " \n"; print HTML " \n"; close(HTML);