#! /usr/bin/perl -w

#-----------------------------------------------------------
# creates a web photo album from all *.jpg and files in current dir

# 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

# you must have nconvert installed.  Get from
#	http://www.xnview.com/
#
# you must have lynx installed.  Get from
#	http://www.lynx.org/
#
# you must have which and ls installed.  Get from
#	http://www.gnu.org/
#-----------------------------------------------------------

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

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

#-----------------------------------------------------------
# check for lynx and nconvert
if ( "$^O" eq "MSWin32" ) {
  $lynxexists = system "which lynx > NUL";
  if ( "$lynxexists" eq 2048 ) {
    print "lynx does not appear to be installed!  www.lynx.org";
    exit;
  }
}
else {
  $lynxexists = system "which lynx > /dev/null";
  if ( "$lynxexists" eq 0 ) {
    print "lynx does not appear to be installed!  www.lynx.org";
    exit;
  }
}

if ( "$^O" eq "MSWin32" ) {
  $nconvertexists = system "which nconvert > NUL";
  if ( "$nconvertexists" eq 2048 ) {
    print "nconvert does not appear to be installed!  www.xnview.com";
    exit;
  }
}
else {
  $nconvertexists = system "which nconvert > /dev/null";
  if ( "$nconvertexists" eq 0 ) {
    print "nconvert does not appear to be installed!  www.xnview.com";
    exit;
  }
}

if ( "$^O" eq "MSWin32" ) {
  $lsexists = system "which ls > NUL";
  if ( "$lsexists" eq 2048 ) {
    print "ls does not appear to be installed!  www.gnu.org";
    exit;
  }
}
else {
  $lsexists = system "which nconvert > /dev/null";
  if ( "$lsexists" eq 0 ) {
    print "ls does not appear to be installed!  www.gnu.org";
    exit;
  }
}
  

#-----------------------------------------------------------
# source dir?

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

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

#-----------------------------------------------------------
# do any image, or avi files exist?
@fullnamefiles = `ls $srcdir/*.[Jj][Pp]*[Gg] $srcdir/*.[Aa][Vv][Ii]`;

# counts files
$numfiles = @fullnamefiles;
if ( $numfiles eq 0 ) {
  print "\nThere appear to be no images or videos in $srcdir.\n";
  exit;
}

#-----------------------------------------------------------
# overwrite without complaining?
if ($ARGV[0] eq "-o") {
  if (! -e "thumbnails") {
    system "mkdir thumbnails";
  }
  if (! -e "fullsize") {
    system "mkdir fullsize";
  }
  if (! -e "pages") {
    system "mkdir pages";
  }
}
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";
  }

  if (-e "pages") {
    print "\npages directory already exists. \n";
    &error;
    exit;
  }
  else {
    system("mkdir pages");
  }

}
else {
  print "Usage webphoto.pl -o|-n\n";
  print "  (-o = overwrite; -n = no overwrite)\n";
  exit;
}

#-----------------------------------------------------------
# write the headers of the HTML
&write_headers;

#-----------------------------------------------------------
# mangle the list of files 
@basenamefiles = ();
@imagefiles = ();
foreach $file (@fullnamefiles) {
  chomp $file;
  ($base, $path, $type) = fileparse("$file", qr{\..*});
  $filename = "$base$type";
  push @basenamefiles, $filename;
  if ( ( lc ( $type ) eq ".jpg" ) or ( lc ( $type ) eq ".jpeg"  ) )  {
    push @imagefiles, $filename;
  }
}
$numimagefiles = @imagefiles;
#print "\n\n\n@basenamefiles\n\n\n";

#-----------------------------------------------------------
# the guts, as subroutines
$imgcount = 1;
$next = 0;
$filenum = 0;
#print "\n\n\n@fullnamefiles\n\n\n";
foreach $file (@basenamefiles) {
  $prevfile = "";
  $nextfile = "";
  # how far have we gotten?
  print "$imgcount of $numfiles... ";
  $imgcount++;

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


  # if this is an image file
  if ( ( lc ( $type ) eq ".jpg" ) or ( lc ( $type ) eq ".jpeg"  ) )  {

    # which file is this in the list?
    $filenum++;
    # get the previous and next files
    $next = $filenum ;
    $prev = $filenum - 2;
    $prevfile = "$imagefiles[$prev].html";
    if ( "$prevfile" ne "$file.html" ) {

#print "\nCurrent: $file  (@imagefiles) \n";
#print "\nPrev: $prevfile\n";

    }

    if ($next < $numimagefiles) {
      $nextfile = "$imagefiles[$next].html";
#print "\nnext: $next of $numimagefiles;  Nextfile: $nextfile\n";
    }    

  &image;

  }
  else {
    &video;
  }
}
&end_html;
exit;

#-----------------------------------------------------------
sub image {
  # 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, or is not an image.\n";
    exit;
  }
  
  # get the width & height of the image for resizing
  @width = split (/  */, $info[4]);
  $wid = ("$width[3]");
  chop $wid;
  
  @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\" ";
    }
  }
  else {
    print "copying image ... \n";
    system "cp \"$basefile\" fullsize";
  }

  # create a page for each image
  
  # write the individual 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";
  print IMAGEPAGE "</head>\n";
  print IMAGEPAGE "<body>\n";
  print IMAGEPAGE "<center>\n";
  print IMAGEPAGE "<h2>\n";
  print IMAGEPAGE "$file ($filenum of $numimagefiles)\n";
  print IMAGEPAGE "</h2>\n";
 
  # navigation
  print IMAGEPAGE "<a href=\"../index.html\">Index</a>\n";
  if ($next != 1) {
    print IMAGEPAGE "<a href=\"$prevfile\">Previous</a>\n";
  }
  if ($next < $numimagefiles) {
    print IMAGEPAGE "<a href=\"$nextfile\">Next</a>\n";
  }
  print IMAGEPAGE "<br>\n";
  print IMAGEPAGE "<br>\n";

  # the image
  print IMAGEPAGE "<img src=\"../fullsize/$file\" border=\"0\" alt=\"$basefile\"><br>\n";
  print IMAGEPAGE "<br>";
  print IMAGEPAGE "</center>\n";

  # there might be a sound associated with this file
  @base = split ( /\./, "$file" );
  $b = $base[0];
  $wav = "../$b.wav";
  if ( -e "../$b.wav" ) {
    print IMAGEPAGE "<BGSOUND src=\"$wav\" LOOP=\"-1\">\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";
  close IMAGEPAGE;
  
  # the URL of the individual page for the Java page
  #$url0 = "  <td align=\"center\"><a href=\"pages/$file.html\">";
  #$url1 = "  <img src =\"thumbnails/$file\" border=\"0\"></a></td>\n";
  #$url  = "$url0\n   $url1\n";
  $url_java0 = "<a href=\"javascript:popImage('fullsize/$file','$file')\">";
  $url_java1 = "<img src =\"thumbnails/$file\" border=\"0\"></a> &nbsp\; \n";
  $url_java  = "$url_java0\n   $url_java1\n";
  print JAVAPAGE "$url_java";
  
  # the thumbnail on the No Java page
  print NOJAVAPAGE "<a href=\"pages/$file.html\"><img src=\"thumbnails/$file\" alt=\"$basefile\"></a>\n";

}


#-----------------------------------------------------------
sub video {
  # is the webphotomovie.gif here?
  if ( ! -e "thumbnails/webphotomovie.gif" ) {
    system "lynx -dump http://gis.washington.edu/phurvitz/bin/webphotomovie.gif > thumbnails/webphotomovie.gif";
  }
  #print JAVAPAGE "<table>\n";
  #print JAVAPAGE "<tr><td>\n";
  print JAVAPAGE "<a href=\"$basefile\"><img src=\"thumbnails/webphotomovie.gif\" alt=\"$basefile\"></a>\n";
  #print JAVAPAGE "</td></tr>\n";
  #print JAVAPAGE "<tr><td>\n";
  #print JAVAPAGE "<a href=\"$basefile\">$file</a>\n";
  #print JAVAPAGE "</td></tr>\n";
  #print JAVAPAGE "</table>\n";
  print NOJAVAPAGE "<a href=\"$basefile\"><img src=\"thumbnails/webphotomovie.gif\" alt=\"$basefile\"></a>\n";
}

#-----------------------------------------------------------
sub write_headers 
{
  # start writing the index page
  open (NOJAVAPAGE, '>index.html');
  print NOJAVAPAGE "<html>\n";
  print NOJAVAPAGE "<head>\n";
  print NOJAVAPAGE "<title>\n";
  print NOJAVAPAGE "Web Photo Album: $dirname\n";
  print NOJAVAPAGE "</title>\n";
  print NOJAVAPAGE "</head>\n";
  print NOJAVAPAGE "<body bgcolor=\"#FFFFFF\">\n";
  print NOJAVAPAGE "<center>\n";
  print NOJAVAPAGE "<h2>\n";
  print NOJAVAPAGE "Web Photo Album: $dirname\n";
  print NOJAVAPAGE "</h2>\n";
  print NOJAVAPAGE "<p><a href=\"index_java.html\">Jump to Java Version</a></p>\n";
  print NOJAVAPAGE "<p>Click on a thumbnail to start the photo album.</p>\n";
  
  open ( JAVAPAGE, '>index_java.html');
  print JAVAPAGE "<html>\n";
  print JAVAPAGE "<head>\n";
  print JAVAPAGE "<title>\n";
  print JAVAPAGE "Web Photo Album: $dirname\n";
  print JAVAPAGE "</title>\n";
  
  # java stuff for the JAVA page
  print JAVAPAGE "<script>\n";
  print JAVAPAGE "\n";
  print JAVAPAGE "// Script Source: CodeLifter.com\n";
  print JAVAPAGE "// Copyright 2003\n";
  print JAVAPAGE "// Do not remove this notice.\n";
  print JAVAPAGE "\n";
  print JAVAPAGE "// SETUPS:\n";
  print JAVAPAGE "// ===============================\n";
  print JAVAPAGE "\n";
  print JAVAPAGE "// Set the horizontal and vertical position for the popup\n";
  print JAVAPAGE "\n";
  print JAVAPAGE "PositionX = 10;\n";
  print JAVAPAGE "PositionY = 10;\n";
  print JAVAPAGE "\n";
  print JAVAPAGE "// Set these value approximately 20 pixels greater than the\n";
  print JAVAPAGE "// size of the largest image to be used (needed for Netscape)\n";
  print JAVAPAGE "\n";
  print JAVAPAGE "defaultWidth  = 850;\n";
  print JAVAPAGE "defaultHeight = 850;\n";
  print JAVAPAGE "\n";
  print JAVAPAGE "// Set autoclose true to have the window close automatically\n";
  print JAVAPAGE "// Set autoclose false to allow multiple popup windows\n";
  print JAVAPAGE "\n";
  print JAVAPAGE "var AutoClose = true;\n";
  print JAVAPAGE "\n";
  print JAVAPAGE "// Do not edit below this line...\n";
  print JAVAPAGE "// ================================\n";
  print JAVAPAGE "if (parseInt(navigator.appVersion.charAt(0))>=4){\n";
  print JAVAPAGE "var isNN=(navigator.appName==\"Netscape\")?1:0;\n";
  print JAVAPAGE "var isIE=(navigator.appName.indexOf(\"Microsoft\")!=-1)?1:0;}\n";
  print JAVAPAGE "var optNN='scrollbars=no,width='+defaultWidth+',height='+defaultHeight+',left='+PositionX+',top='+PositionY;\n";
  print JAVAPAGE "var optIE='scrollbars=no,width=150,height=100,left='+PositionX+',top='+PositionY;\n";
  print JAVAPAGE "function popImage(imageURL,imageTitle){\n";
  print JAVAPAGE "if (isNN){imgWin=window.open('about:blank','',optNN);}\n";
  print JAVAPAGE "if (isIE){imgWin=window.open('about:blank','',optIE);}\n";
  print JAVAPAGE "with (imgWin.document){\n";
  print JAVAPAGE "writeln('<html><head><title>Loading...</title><style>body{margin:0px;}</style>');writeln('<sc'+'ript>');\n";
  print JAVAPAGE "writeln('var isNN,isIE;');writeln('if (parseInt(navigator.appVersion.charAt(0))>=4){');\n";
  print JAVAPAGE "writeln('isNN=(navigator.appName==\"Netscape\")?1:0;');writeln('isIE=(navigator.appName.indexOf(\"Microsoft\")!=-1)?1:0;}');\n";
  print JAVAPAGE "writeln('function reSizeToImage(){');writeln('if (isIE){');writeln('window.resizeTo(100,100);');\n";
  print JAVAPAGE "writeln('width=100-(document.body.clientWidth-document.images[0].width);');\n";
  print JAVAPAGE "writeln('height=100-(document.body.clientHeight-document.images[0].height);');\n";
  print JAVAPAGE "writeln('window.resizeTo(width,height);}');writeln('if (isNN){');       \n";
  print JAVAPAGE "writeln('window.innerWidth=document.images[\"George\"].width;');writeln('window.innerHeight=document.images[\"George\"].height;}}');\n";
  print JAVAPAGE "writeln('function doTitle(){document.title=\"'+imageTitle+'\";}');writeln('</sc'+'ript>');\n";
  print JAVAPAGE "if (!AutoClose) writeln('</head><body bgcolor=000000 scroll=\"no\" onload=\"reSizeToImage();doTitle();self.focus()\">')\n";
  print JAVAPAGE "else writeln('</head><body bgcolor=000000 scroll=\"no\" onload=\"reSizeToImage();doTitle();self.focus()\" onblur=\"self.close()\" onclick=\"self.close()\">');\n";
  print JAVAPAGE "writeln('<img name=\"George\" src='+imageURL+' style=\"display:block\"></body></html>');\n";
  print JAVAPAGE "close();		\n";
  print JAVAPAGE "}}\n";
  print JAVAPAGE "\n";
  print JAVAPAGE "</script>\n";
  print JAVAPAGE "\n";
  
  print JAVAPAGE "</head>\n";
  print JAVAPAGE "<body bgcolor=\"#FFFFFF\">\n";
  print JAVAPAGE "<center>\n";
  print JAVAPAGE "<h2>\n";
  print JAVAPAGE "Web Photo Album: $dirname\n";
  print JAVAPAGE "</h2>\n";
  print JAVAPAGE "<p><a href=\"index.html\">Jump to Photo Album Version</a></p>\n";
  print JAVAPAGE "Click on a thumbnail to open the fullsize image.<br>\n";
  print JAVAPAGE "After you are finished viewing the larger image opens, click anywhere to close it.<br><br>\n";
  
  

}
  
#-----------------------------------------------------------
sub end_html
{
  # end the HTML
  print NOJAVAPAGE "</center><br><br>\n";
  print NOJAVAPAGE "<address>\n";
  print NOJAVAPAGE "Generated by <a href=\"http://gis.washington.edu/phurvitz/webphoto.txt\">\n";
  print NOJAVAPAGE "webphoto.pl</a>\n";
  print NOJAVAPAGE "</address>\n";
  print NOJAVAPAGE "</body>";
  print NOJAVAPAGE "</html>";
  close NOJAVAPAGE;
  
  print JAVAPAGE "</center><br><br>\n";
  print JAVAPAGE "<address>\n";
  print JAVAPAGE "Generated by <a href=\"http://gis.washington.edu/phurvitz/webphoto.txt\">\n";
  print JAVAPAGE "webphoto.pl</a>\n";
  print JAVAPAGE "</address>\n";
  print JAVAPAGE "</body>";
  print JAVAPAGE "</html>";
  close JAVAPAGE;

}

#-----------------------------------------------------------
# error message
sub error {
  print "I refuse to overwrite and make an error you will regret later.\n";
  print "You will need to delete this manually and run me again\n";
  print "or run with the -o option.\n\n";
}