#! /usr/bin/perl -w

#-----------------------------------------------------------
# creates a web photo album from all *.jpg and *.gif 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/
#-----------------------------------------------------------

# to make getting the basename of the dir easy
use File::Basename;
use File::Copy;
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;
}

# list of jpeg and gif files in current dir
@files = `ls $srcdir*.[Jj][Pp][Gg] $srcdir*.gif`;
$numfiles = @files;

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

# create thumbnails
$imgcount = 1;
foreach $imgfile (@files) {
  # how far have we gotten?
  print "$imgcount of $numfiles... ";
  $imgcount++;

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

  # 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";
  }
}


# mangle the list of files 
@filez = ();
foreach $file (@files) {
  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");
}

# start writing the index page
open(SLIDESHOWPAGE, '>index_slideshow.html');
print SLIDESHOWPAGE "<html>\n";
print SLIDESHOWPAGE "<head>\n";
print SLIDESHOWPAGE "<title>\n";
print SLIDESHOWPAGE "Web Photo Album: $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 Photo Album: $dirname\n";
print SLIDESHOWPAGE "</h2>\n";
print SLIDESHOWPAGE "<p><a href=\"index.html\">Jump to Java Version</a></p>\n";
print SLIDESHOWPAGE "<p>Click on a thumbnail to start the photo album.</p>\n";
print SLIDESHOWPAGE "<table>\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  = 800;\n";
print MASTERPAGE "defaultHeight = 800;\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_slideshow.html\">Jump to Photo Album Version</a></p>\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++;
  # get the previous and next files
  $next = $next + 1;
  $prev = $next - 2;
  $prevfile = "$filez[$prev].html";
  if ($next < $numfiles) {
    $nextfile = "$filez[$next].html";
  }

  # 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 $numfiles)\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 < $numfiles) {
    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\"><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";
  print IMAGEPAGE "<BGSOUND src=\"$wav\" LOOP=\"-1\">\n";

  print IMAGEPAGE "<address>\n";
  print IMAGEPAGE "Generated by <a href=\"webphoto.pl\">\n";
  print IMAGEPAGE "webphoto.pl</a>\n";
  print IMAGEPAGE "</address>\n";
  print IMAGEPAGE "</body>\n";
  print IMAGEPAGE "</html>\n";
  
  # the URL of the individual 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";
  ($soundfile = $file) =~ s|[Jj][Pp][Gg]|wav| ;
  $url_java0 = "<a href=\"javascript:popImage('fullsize/$file', '$soundfile' ,'')\">";
  $url_java1 = "<img src =\"thumbnails/$file\" border=\"0\"></a> &nbsp\; \n";
  $url_java  = "$url_java0\n   $url_java1\n";
  print MASTERPAGE "$url_java";

  # start creating the table structure
  if ($count eq 0) {
    print SLIDESHOWPAGE "<tr>\n";
    print SLIDESHOWPAGE "$url";
    $count = $count + 1;
  }
  elsif (($count < 3) ) {
    print SLIDESHOWPAGE "$url";
    $count = $count + 1;
  }
  else {
    print SLIDESHOWPAGE "$url";
    print SLIDESHOWPAGE "</tr>\n";
    $count = 0;
  }
  #$count = $count + 1;
  close IMAGEPAGE;
}

# end the HTML
print SLIDESHOWPAGE "\n\n</table>\n";
print SLIDESHOWPAGE "</center><br><br>\n";
print SLIDESHOWPAGE "<address>\n";
print SLIDESHOWPAGE "Generated by <a href=\"webphoto.pl\">\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=\"webphoto.pl\">\n";
print MASTERPAGE "webphoto.pl</a>\n";
print MASTERPAGE "</address>\n";
print MASTERPAGE "</body>";
print MASTERPAGE "</html>";
close MASTERPAGE;


# 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";
}