#! /usr/bin/perl 

#-----------------------------------------------------------
# creates a web photo album from all *.jpg and *avi files in current dir
# only runs on Win32 now 

# creates a directory called pages containing the pages for each individual image
# creates a file called index.html (the navigation page)
# creates a dir called fullsize containing the images
# creates a dir called thumbnails containing thumbnail images

# requires a few utilities:
#       perl (www.cpan.org) is the programming language
#       ls.exe (gnu utility for listing files)
#       mv.exe (gnu utility for moving [i.e., renaming] files)
#       rm.exe (gnu utility for deleting files)
#       cp.exe (gnu utility for copying files)
#               get these at http://gis.washington.edu/phurvitz/utils/unix/
# 1. nconvert (to make the rescaled images)
#       http://www.xnview.com/
# 2. virtualdub (to make thumbs of the avi files, also does rotate & other effects)
#	http://www.virtualdub.org
#       only handles avi files, not mov or wmv.
#
# all utilites need to be in the PATH so they can be run as commands with no pathnames
#	otherwise you will need to alter the script
#
# another useful piece of software is bink and smacker: 
#	http://www.radgametools.com (convert formats)
#-----------------------------------------------------------

#OS
if ( "$^O" ne "MSWin32" ) {
  print "OS is not $^O";
  exit;
}

# to make getting the basename of the dir easy
use File::Basename;
use File::Copy;
use File::Stat;
use Cwd;

$command = basename ($0);
# args?
if ($#ARGV == -1) {
  print "Usage $command -on srcdir\n";
  print "  (-o = overwrite; -n = no overwrite)\n";
  exit;
}

# source dir?
if ($#ARGV == 1) {
  if (-d $ARGV[1]) {
    $srcdir = "$ARGV[1]/";
  }
}
else {
  $srcdir = "";
}

# convert backslashes to forward slashes
$srcdir =~ s|\/\/|\/|;


# overwrite without complaining?
if ($ARGV[0] eq "-o") {
  if (! -e "thumbnails") {
    system "mkdir thumbnails";
  }
  if (! -e "fullsize") {
    system "mkdir fullsize";
  }
}
elsif ($ARGV[0] eq "-n") {
  # check the index.html page
  if (-e "index.html") {
    print "\nindex.html already exists. \n";
    &error;
    exit;
  }
  
  # check the thumbnails directory
  if (-e "thumbnails") {
    print "\nthumbnails directory already exists. \n";
    &error;
    exit;
  }
  else {
    system "mkdir thumbnails";
  }
  
  # check the fullsize directory
  if (-e "fullsize") {
    print "\nfullsize directory already exists. \n";
    &error;
    exit;
  }
  else {
    system "mkdir fullsize";
  }
}
else {
  print "Usage webphoto.pl -o|-n\n";
  print "  (-o = overwrite; -n = no overwrite)\n";
  exit;
}

# lowercase all files
@allfiles = `ls *.*`;
foreach $f ( @allfiles ) {
  chomp $f;
  $lcfile = lc ( $f );
  if ( $f ne $lcfile ) {
    system "mv \"$f\" \"$lcfile\"";
  }
}

# delete spaces from filenames
foreach $f ( @allfiles ) {
  chomp $f;
  ($nsfile = $f) =~  s/ //g;
  if ( $f ne $nsfile ) {
    system "mv \"$f\" $nsfile";
  }
}

# convert video files using virtualdub
#@vidfiles = `ls $srcdir*.[Aa][Vv][Ii] $srcdir*.[Ww][Mm][Vv]`;
@vidfiles = `ls $srcdir*.avi`;
foreach $vidfile ( @vidfiles ) {
  # get the basename of the image file

  chomp $vidfile;
  ($base, $path, $type) = fileparse("$vidfile", qr{\..*});
  $basefile = "$base$type";
  $srcfile = "$srcdir$basefile";
  $srcfile =~ s|\/|\\|g;

  $cwd = getcwd();
  $cwd =~ s|\/|\\\\|g;
  $vidfilefullpath = "$cwd\\\\$base$type\n";
  chomp $vidfilefullpath;
  $vidfilecappath = "$cwd\\\\$base\n";
  chomp $vidfilecappath;
  $b0 = join ( "", "$base", "0" );
  $vidfilecapout0 = "$cwd\\\\$b0.jpg\n";
  chomp $vidfilecapout0;
  $vidfilecapout = "$cwd\\\\$base.jpg\n";
  chomp $vidfilecapout;
  
  if ( ! -e $vidfilecapout ) {
    open (VDFILE, '>vdfile.vcf');
    print VDFILE "VirtualDub.Open(\"$vidfilefullpath\",0,0);\n";
    print VDFILE "VirtualDub.audio.SetSource(1);\n";
    print VDFILE "VirtualDub.audio.SetMode(0);\n";
    print VDFILE "VirtualDub.audio.SetInterleave(1,500,1,0,0);\n";
    print VDFILE "VirtualDub.audio.SetClipMode(1,1);";
    print VDFILE "VirtualDub.audio.SetConversion(0,0,0,0,0);\n";
    print VDFILE "VirtualDub.audio.SetVolume();\n";
    print VDFILE "VirtualDub.audio.SetCompression();\n";
    print VDFILE "VirtualDub.audio.EnableFilterGraph(0);\n";
    print VDFILE "VirtualDub.video.SetInputFormat(0);\n";
    print VDFILE "VirtualDub.video.SetOutputFormat(7);\n";
    print VDFILE "VirtualDub.video.SetMode(3);\n";
    print VDFILE "VirtualDub.video.SetFrameRate(0,1);\n";
    print VDFILE "VirtualDub.video.SetIVTC(0,0,-1,0);\n";
    print VDFILE "VirtualDub.video.SetCompression();\n";
    print VDFILE "VirtualDub.video.filters.Clear();\n";
    print VDFILE "VirtualDub.audio.filters.Clear();\n";
    print VDFILE "VirtualDub.subset.Clear();\n";
    print VDFILE "VirtualDub.subset.AddRange(0,1);\n";
    print VDFILE "VirtualDub.project.ClearTextInfo();\n";
    print VDFILE "VirtualDub.SaveImageSequence(\"$vidfilecappath\", \".jpg\", 0, 2, 95);\n";
    print VDFILE "VirtualDub.audio.SetSource(1);\n";
    print VDFILE "VirtualDub.Close();\n";
    close VDFILE;
    
    system ( "virtualdub /s vdfile.vcf /x" );
    system ( "mv $vidfilecapout0 $vidfilecapout" );
    system ( "rm vdfile.vcf" )
  }


} # foreach $vidfile



# list of jpeg and gif files in current dir
@picfiles = `ls $srcdir*.jpg $srcdir*.jpeg $srcdir*.gif`;
#@picfiles = `ls $srcdir*.[Jj][Pp][Gg] $srcdir*.[Aa][Vv][Ii] $srcdir*.[Ww][Mm][Vv]`;
$numfiles = @picfiles;

# copy the perl file to this directory
copy ( "$0", "webphoto.pl.txt" );

# create thumbnails
$imgcount = 0;
foreach $imgfile (@picfiles) {
  # how far have we gotten?
  $imgcount++;

  # get the basename of the image file
  chomp $imgfile;
  ($base, $path, $type) = fileparse("$imgfile", qr{\..*});
  $basefile = "$base$type";
  $srcfile = "$srcdir/$basefile";

  # thumbnail exist?
  if ( -e "thumbnails/$basefile" ) {
    next;
  }
  print "Thumbnailing image $imgcount of $numfiles...\n";

  # does the image file have any content?
  $size = (stat($imgfile))[7];
  if ( $size == 0 ) {
    next;
  }

  # is this a jpeg
  if ( ( lc($type) eq ".jpg" ) or ( lc($type) eq ".jpeg" ) or ( lc($type) eq ".gif" ) ) {
  
    # try to nconvert just with the -info option to get file properties
    @info = `nconvert -quiet -info $srcfile`;
    
    # did I find the word "Failed"? means the image has problems
    @match = grep(/.*Failed.*/, @info );
    $count = @match;
    if ($count == 1) {
      print "Error in image file $srcfile, or is not an image.\n";
      next;
    }
    
    # does the thumbnail exist?
    if  ( ! -e "thumbnails/$basefile" ) {
    
      # get the width & height of the image for resizing
      @info = `nconvert -quiet -info $imgfile`;
      $width = "$info[5]";
      $width =~ s/ //g;
      @wid1 = split (":",$width);
      $wid = $wid1[1];
      chop $wid;
      
      $height = "$info[5]";
      $height =~ s/ //g;
      @hgt1 = split (":",$height);
      $hgt = $hgt1[1];
      chop $hgt;

      #@height = split (/  */, $info[5]);
      #$ht = ("$height[3]");
      #chop $ht;
      
      # I want the maximum thumbnail dimension to be 150 pixels
      if ($wid > $ht) {
        $thumbscale = 150 / $wid * 100;
        $maxdim = $wid;
      }
      else {
        $thumbscale = 150 / $ht * 100;
        $maxdim = $ht;
      }
      
      # rescale to create the thumbnail at a max if 150 pixels
      print "\nmaking thumbnail ($srcfile => thumbnails/$basefile)...\n";
      system "nconvert -quiet -resize $thumbscale% $thumbscale% -o thumbnails/$basefile $srcfile";
    
      # is the original image larger than 800 pixels wide or high?  If so, rescale
      if ($maxdim > 800) {
        if ($wid > $ht) {
          print "making rescaled image ($srcfile => fullsize/$basefile)... \n";
          $fullscale = 800 / $wid * 100;
          system "nconvert -quiet -resize $fullscale% $fullscale% -o fullsize/$basefile $srcfile";
        }
        elsif ($ht > $wid) {
          print "making rescaled image ($srcfile => fullsize/$basefile)... \n";
          $fullscale = 800 / $ht * 100;
          system "nconvert -quiet -resize $fullscale% $fullscale% -o fullsize/$basefile $srcfile";
        }
      }
      # if rescaling not needed, just copy the file
      else {
        print "copying image ... \n";
        system "cp $basefile fullsize";
      }
    }  # if thumbnails don't exist
  } # if jpg
} # for each image file
    
# mangle the list of files 
@filez = ();
foreach $file (@picfiles) {
  chomp $file;
  ($base, $path, $type) = fileparse("$file", qr{\..*});
  $filename = "$base$type";
  push @filez, $filename;
}

# get directory name
$pwd = getcwd;
$dirname = basename( $pwd );
chomp $dirname;

# make a "pages" dir for individual pages
if (! -e "pages") {
  system("mkdir pages");
}

# make a "slideshow_pages" dir for individual pages
if (! -e "slideshow_pages") {
  system("mkdir slideshow_pages");
}

# start writing the index page
open(PHOTOALBUMPAGE, '>index_photoalbum.html');
print PHOTOALBUMPAGE "<html>\n";
print PHOTOALBUMPAGE "<head>\n";
print PHOTOALBUMPAGE "<title>\n";
print PHOTOALBUMPAGE "Web Photo Album: $dirname\n";
print PHOTOALBUMPAGE "</title>\n";
print PHOTOALBUMPAGE "</head>\n";
print PHOTOALBUMPAGE "<body bgcolor=\"#FFFFFF\">\n";
print PHOTOALBUMPAGE "<center>\n";
print PHOTOALBUMPAGE "<h2>\n";
print PHOTOALBUMPAGE "Web Photo Album: $dirname\n";
print PHOTOALBUMPAGE "</h2>\n";
print PHOTOALBUMPAGE "<p><a href=\"index.html\">Jump to Java Version</a> | <a href=\"index_slideshow.html\">";
print PHOTOALBUMPAGE "Jump to Slide Show Version</a> | <a href=\"../\">Up</a></p>\n";
print PHOTOALBUMPAGE "<p>Click on a thumbnail to start the photo album.</p>\n";

open(MASTERPAGE, '>index.html');
print MASTERPAGE "<html>\n";
print MASTERPAGE "<head>\n";
print MASTERPAGE "<title>\n";
print MASTERPAGE "Web Photo Album: $dirname\n";
print MASTERPAGE "</title>\n";

# start writing the slideshow page
open(SLIDESHOWPAGE, '>index_slideshow.html');
print SLIDESHOWPAGE "<html>\n";
print SLIDESHOWPAGE "<head>\n";
print SLIDESHOWPAGE "<title>\n";
print SLIDESHOWPAGE "Web Slide Show: $dirname\n";
print SLIDESHOWPAGE "</title>\n";
print SLIDESHOWPAGE "</head>\n";
print SLIDESHOWPAGE "<body bgcolor=\"#FFFFFF\">\n";
print SLIDESHOWPAGE "<center>\n";
print SLIDESHOWPAGE "<h2>\n";
print SLIDESHOWPAGE "Web Slide Show: $dirname\n";
print SLIDESHOWPAGE "</h2>\n";
print SLIDESHOWPAGE "<p><a href=\"index_photoalbum.html\">Jump to Photo Album Version</a> | ";
print SLIDESHOWPAGE "<a href=\"index.html\">Jump to Java Version</a> | <a href=\"../\">Up</a></p>\n";
print SLIDESHOWPAGE "<p>Click on a thumbnail to start the slide show. Slides advance every 5 seconds.</p>\n";

open(MASTERPAGE, '>index.html');
print MASTERPAGE "<html>\n";
print MASTERPAGE "<head>\n";
print MASTERPAGE "<title>\n";
print MASTERPAGE "Web Photo Album: $dirname\n";
print MASTERPAGE "</title>\n";


# java stuff for the JAVA page
print MASTERPAGE "<script>\n";
print MASTERPAGE "\n";
print MASTERPAGE "// Script Source: CodeLifter.com\n";
print MASTERPAGE "// Copyright 2003\n";
print MASTERPAGE "// Do not remove this notice.\n";
print MASTERPAGE "\n";
print MASTERPAGE "// SETUPS:\n";
print MASTERPAGE "// ===============================\n";
print MASTERPAGE "\n";
print MASTERPAGE "// Set the horizontal and vertical position for the popup\n";
print MASTERPAGE "\n";
print MASTERPAGE "PositionX = 10;\n";
print MASTERPAGE "PositionY = 10;\n";
print MASTERPAGE "\n";
print MASTERPAGE "// Set these value approximately 20 pixels greater than the\n";
print MASTERPAGE "// size of the largest image to be used (needed for Netscape)\n";
print MASTERPAGE "\n";
print MASTERPAGE "defaultWidth  = 900;\n";
print MASTERPAGE "defaultHeight = 900;\n";
print MASTERPAGE "\n";
print MASTERPAGE "// Set autoclose true to have the window close automatically\n";
print MASTERPAGE "// Set autoclose false to allow multiple popup windows\n";
print MASTERPAGE "\n";
print MASTERPAGE "var AutoClose = true;\n";
print MASTERPAGE "\n";
print MASTERPAGE "// Do not edit below this line...\n";
print MASTERPAGE "// ================================\n";
print MASTERPAGE "if (parseInt(navigator.appVersion.charAt(0))>=4){\n";
print MASTERPAGE "var isNN=(navigator.appName==\"Netscape\")?1:0;\n";
print MASTERPAGE "var isIE=(navigator.appName.indexOf(\"Microsoft\")!=-1)?1:0;}\n";
print MASTERPAGE "var optNN='scrollbars=no,width='+defaultWidth+',height='+defaultHeight+',left='+PositionX+',top='+PositionY;\n";
print MASTERPAGE "var optIE='scrollbars=no,width=150,height=100,left='+PositionX+',top='+PositionY;\n";
print MASTERPAGE "function popImage(imageURL,soundURL,imageTitle){\n";
print MASTERPAGE "if (isNN){imgWin=window.open('about:blank','',optNN);}\n";
print MASTERPAGE "if (isIE){imgWin=window.open('about:blank','',optIE);}\n";
print MASTERPAGE "with (imgWin.document){\n";
print MASTERPAGE "writeln('<html><head><title>Loading...</title><style>body{margin:0px;}</style>');writeln('<sc'+'ript>');\n";
print MASTERPAGE "writeln('var isNN,isIE;');writeln('if (parseInt(navigator.appVersion.charAt(0))>=4){');\n";
print MASTERPAGE "writeln('isNN=(navigator.appName==\"Netscape\")?1:0;');writeln('isIE=(navigator.appName.indexOf(\"Microsoft\")!=-1)?1:0;}');\n";
print MASTERPAGE "writeln('function reSizeToImage(){');writeln('if (isIE){');writeln('window.resizeTo(100,100);');\n";
print MASTERPAGE "writeln('width=100-(document.body.clientWidth-document.images[0].width);');\n";
print MASTERPAGE "writeln('height=100-(document.body.clientHeight-document.images[0].height);');\n";
print MASTERPAGE "writeln('window.resizeTo(width,height);}');writeln('if (isNN){');       \n";
print MASTERPAGE "writeln('window.innerWidth=document.images[\"George\"].width;');writeln('window.innerHeight=document.images[\"George\"].height;}}');\n";
print MASTERPAGE "writeln('function doTitle(){document.title=\"'+imageTitle+'\";}');writeln('</sc'+'ript>');\n";
print MASTERPAGE "writeln('<bgsound src=\"'+soundURL+'\" loop=\"-1\">')\n";
print MASTERPAGE "if (!AutoClose) writeln('</head><body bgcolor=000000 scroll=\"no\" onload=\"reSizeToImage();doTitle();self.focus()\">')\n";
print MASTERPAGE "else writeln('</head><body bgcolor=000000 scroll=\"no\" onload=\"reSizeToImage();doTitle();self.focus()\" onblur=\"self.close()\" onclick=\"self.close()\">');\n";
print MASTERPAGE "writeln('<img name=\"George\" src='+imageURL+' style=\"display:block\"></body></html>');\n";
print MASTERPAGE "close();		\n";
print MASTERPAGE "}}\n";
print MASTERPAGE "\n";
print MASTERPAGE "</script>\n";

print MASTERPAGE "</head>\n";
print MASTERPAGE "<body bgcolor=\"#FFFFFF\">\n";
print MASTERPAGE "<center>\n";
print MASTERPAGE "<h2>\n";
print MASTERPAGE "Web Photo Album: $dirname\n";
print MASTERPAGE "</h2>\n";
print MASTERPAGE "<p><a href=\"index_photoalbum.html\">Jump to Photo Album Version</a> | ";
print MASTERPAGE "<a href=\"index_slideshow.html\">Jump to Slide Show Version</a> | <a href=\"../\">Up</a></p>\n";
print MASTERPAGE "Videos have a border around the image.<br>\n";
print MASTERPAGE "Click on a thumbnail to open the fullsize image.<br>\n";
print MASTERPAGE "When the larger image opens, click on it or back on the index page to close the larger image.<br><br>\n";



# use a count for determining the number of columns of thumbnails
$count = 0;

# use a count of images
$next = 0;

# create a page for each image
$filenum = 0;
foreach $file (@filez) {
  $filenum++;
  print "Indexing $filenum of $numfiles...\n";
  # get the previous and next files
  $next = $next + 1;
  $prev = $next - 2;
  $prevfile = "$filez[$prev].html";
  if ($next < $numfiles) {
    $nextfile = "$filez[$next].html";
  }

  ($base, $path, $type) = fileparse("$file", qr{\..*});

  # is this a regular image?  If so, make its own page
  if ( ( lc($type) eq ".jpg" ) or ( lc($type) eq ".jpeg" ) or ( lc($type) eq ".gif" ) ) {
  
    # write the individual photo album image page
    open(IMAGEPAGE, ">pages/$file.html");
    print IMAGEPAGE "<html>\n";
    print IMAGEPAGE "<head>\n";
    print IMAGEPAGE "<title>\n";
    print IMAGEPAGE "$file\n";
    print IMAGEPAGE "</title>\n";

    # write the individual slide show image page
    open(SLIDEPAGE, ">slideshow_pages/$file.html");
    print SLIDEPAGE "<html>\n";
    print SLIDEPAGE "<head>\n";
    if ($next < $numfiles ) {
      print SLIDEPAGE "<META HTTP-EQUIV=refresh CONTENT=4;url=\"$nextfile\">\n";
    }
    print SLIDEPAGE "<title>\n";
    print SLIDEPAGE "$file\n";
    print SLIDEPAGE "</title>\n";

    # there might be a sound associated with this file
    @base = split ( /\./, "$file" );
    $b = $base[0];
    $wav = "$b.wav";
    if ( -e $wav ) { 
      print SLIDEPAGE "<BGSOUND src=\"../$wav\" LOOP=\"infinite\">\n";
      print IMAGEPAGE "<BGSOUND src=\"../$wav\" LOOP=\"infinite\">\n";
      print "WAV $wav file linked\n";
    }

    print IMAGEPAGE "</head>\n";
    print IMAGEPAGE "<body>\n";
    print IMAGEPAGE "<center>\n";
    print IMAGEPAGE "<h2>\n";
    print IMAGEPAGE "$file ($filenum of $numfiles)<br>\n";
    print IMAGEPAGE "</h2>\n";

    print SLIDEPAGE "</head>\n";
    print SLIDEPAGE "<body>\n";
    print SLIDEPAGE "<center>\n";
    print SLIDEPAGE "<h2>\n";
    print SLIDEPAGE "$file ($filenum of $numfiles)<br>\n";
    print SLIDEPAGE "</h2>\n";
    print SLIDEPAGE "Slides change every 5 seconds.<br>\n";
  
    # navigation
    print IMAGEPAGE "<a href=\"../index_photoalbum.html\">Index</a>\n";
    if ($next != 1) {
      print IMAGEPAGE "<a href=\"$prevfile\">Previous</a>\n";
    }
    if ($next < $numfiles) {
      print IMAGEPAGE "<a href=\"$nextfile\">Next</a>\n";
    }
    print IMAGEPAGE "<br>\n";
    print IMAGEPAGE "<br>\n";

    print SLIDEPAGE "<a href=\"../index_slideshow.html\">Index</a>\n";
    print SLIDEPAGE "<br>\n";
    print SLIDEPAGE "<br>\n";

    # the image
    # if a video file and an image file exist, make sure the link points to the video
    #if ( ( -e "$base.avi" ) or ( -e "$base.AVI" ) or ( -e "$base.WMV" ) or ( -e "$base.wmv" ) ) {
    if ( ( -e "$base.avi" ) or ( -e "$base.AVI" ) ) {
      #@vidfile = `ls $base.[Aa][Vv][Ii] $base.[Ww][Mm][Vv]`;
      @vidfile = `ls $base.avi`;
      $vid = $vidfile[0];
      chomp $vid;
      print IMAGEPAGE "This is a video.  Click to Play.<br>\n";
      print IMAGEPAGE "<a href=\"../$vid\"><img src=\"../fullsize/$file\" border=\"5\"></a><br>\n";
      print SLIDEPAGE "<a href=\"../$vid\"><img src=\"../fullsize/$file\" border=\"5\"></a><br>\n";
    }
    else {
      print IMAGEPAGE "<img src=\"../fullsize/$file\" border=\"0\"><br>\n";
      print SLIDEPAGE "<img src=\"../fullsize/$file\" border=\"0\"><br>\n";
    }
  
    print IMAGEPAGE "<br>";
    print IMAGEPAGE "</center>\n";
    print IMAGEPAGE "<address>\n";
    print IMAGEPAGE "Generated by <a href=\"http://gis.washington.edu/phurvitz/webphoto.txt\">\n";
    print IMAGEPAGE "webphoto.pl</a>\n";
    print IMAGEPAGE "</address>\n";
    print IMAGEPAGE "</body>\n";
    print IMAGEPAGE "</html>\n";

    print SLIDEPAGE "<br>";
    print SLIDEPAGE "</center>\n";
    print SLIDEPAGE "<address>\n";
    print SLIDEPAGE "Generated by <a href=\"http://gis.washington.edu/phurvitz/webphoto.txt\">\n";
    print SLIDEPAGE "webphoto.pl</a>\n";
    print SLIDEPAGE "</address>\n";
    print SLIDEPAGE "</body>\n";
    print SLIDEPAGE "</html>\n"; 
  
    
    # the URL of the individual page
    $url0 = "  <td align=\"center\"><a href=\"pages/$file.html\">";
    # make a border if there is an AVI
    $url1 = "  <img src =\"thumbnails/$file\" border=\"0\"></a></td>\n";
    if ( -e "$base.avi" ) {
      $url1 = "  <img src =\"thumbnails/$file\" border=\"5\"></a></td>\n";
    }
    $url_photoalbum  = "$url0\n   $url1\n";

    # URL for slideshow page
    $url0 = "  <td align=\"center\"><a href=\"slideshow_pages/$file.html\">";
    $url_slideshow =   "$url0\n   $url1\n";

    # if a video file and an image file exist, make sure the link points to the video
    #if ( ( -e "$base.avi" ) or ( -e "$base.AVI" ) or ( -e "$base.WMV" ) or ( -e "$base.wmv" ) ) {
    if ( ( -e "$base.avi" ) or ( -e "$base.AVI" ) ) {
      #@vidfile = `ls $base.avi $base.[Ww][Mm][Vv]`;
      @vidfile = `ls $base.avi`;
      $vid = $vidfile[0];
      chomp $vid;
      print MASTERPAGE "<a href=\"$vid\" border=5><img title=\"video\" src=\"thumbnails/$file\" border=5></a> &nbsp;\n";
    }
    else {
      ($soundfile = $file) =~ s|jpg|wav| ;
      $url_java0 = "<a href=\"javascript:popImage('fullsize/$file', '$soundfile' ,'$file')\">";
      $url_java1 = "<img src =\"thumbnails/$file\" border=\"0\"></a> &nbsp\; \n";
      $url_java  = "$url_java0\n   $url_java1\n";
      print MASTERPAGE "$url_java";
    }
    print PHOTOALBUMPAGE "$url_photoalbum";
    print SLIDESHOWPAGE "$url_slideshow";

    
    close IMAGEPAGE;
  }
}

# end the HTML
print PHOTOALBUMPAGE "\n\n</table>\n";
print PHOTOALBUMPAGE "</center><br><br>\n";
print PHOTOALBUMPAGE "<address>\n";
print PHOTOALBUMPAGE "Generated by <a href=\"http://gis.washington.edu/phurvitz/webphoto.txt\">\n";
print PHOTOALBUMPAGE "webphoto.pl</a>\n";
print PHOTOALBUMPAGE "</address>\n";
print PHOTOALBUMPAGE "</body>";
print PHOTOALBUMPAGE "</html>";
close PHOTOALBUMPAGE;

print SLIDESHOWPAGE "\n\n</table>\n";
print SLIDESHOWPAGE "</center><br><br>\n";
print SLIDESHOWPAGE "<address>\n";
print SLIDESHOWPAGE "Generated by <a href=\"http://gis.washington.edu/phurvitz/webphoto.txt\">\n";
print SLIDESHOWPAGE "webphoto.pl</a>\n";
print SLIDESHOWPAGE "</address>\n";
print SLIDESHOWPAGE "</body>";
print SLIDESHOWPAGE "</html>";
close SLIDESHOWPAGE;

print MASTERPAGE "</center><br><br>\n";
print MASTERPAGE "<address>\n";
print MASTERPAGE "Generated by <a href=\"http://gis.washington.edu/phurvitz/webphoto.txt\">\n";
print MASTERPAGE "webphoto.pl</a>\n";
print MASTERPAGE "</address>\n";
print MASTERPAGE "</body>";
print MASTERPAGE "</html>";
close MASTERPAGE;


# error message
sub error {
  print "\nIt appears a webphoto album or other index.html already exists in this directory.\n";
  print "If you want to overwrite, run with the -o option.\n\n";
}