#!/bin/bash
#
# This script scans the given JPEG files (whose names
# must end in .jpg), generates a thumbnail and a reduced
# version in JPEG of each, and generates an HTML page with all the
# thumbnails and links to the reduced version and the original.
#
# If the image contains PhotoRDF (wrapped in Adobe's XMP), it is used
# to generate a description.
#
# The HTML page with thumbnails is written to the first argument:
#
#    thumbnails index.html *.jpg 
#
# Options:
#
# -t title
#    Use title as the title of the thumbnails page (default:
#    "Thumbnails")
# -l language
#    Add lang=language to the generated HTML pages and translate the
#    generated canned phrases to that language. Currently supported
#    languages: "en" (=English, default), "nl" (=Dutch) and "fr"
#    (=French)
# -n name
#    The name to insert in the copyright message at the bottom
#    (default: "Bert Bos")
# -c percent
#    Try to make thumbnails better by showing only the center of the
#    image. 100 means the whole image is used (default), 80 means the
#    image's four edges are cut off such that only 80% of its original
#    width and height remain
# -p file
#    Insert the contents of file into the index file, before the
#    thumbnails.
# -w number
#    Width or height (whichever is larger) of thumbnails, in pixels
#    (default: 100)
# -s stylesheet
#    URI reference of an external style sheet. By default, the script
#    will insert a <style> element with a hard-coded style.
# -g
#    Group the thumbnails by series (dc:relation), add a subtitle
#    before each group and a menu of series at the top.
# -y
#    Group the thumbnails by year (dc:date), add a subtitle before
#    each group and a menu of years at the top
# -i
#    Interactive: prompts for the title, language and owner's name.
#
# This script relies on the PBM (or ImageMagick) and JPEG tools to be
# installed.
#
# Author: Bert Bos <bert@w3.org>
# Created: 8 July 1999
# Version: $Date: 2008/04/02 22:28:04 $
#
# Copyright (c) 1995-2002 World Wide Web Consortium, (Massachusetts
# Institute of Technology, ERCIM, Keio University). All Rights
# Reserved. See
# http://www.w3.org/Consortium/Legal/copyright-software.html

progname="${0##*/}"

# die -- print error message and exit
function die { echo "$progname: $*" >&2; exit 1; }

# Other parameters

w1=100				# Width of thumbnail
border=4			# Width of image border
smallwd=640			# Max. width of smaller version
smallht=480			# Max. height of smaller version
thdir=thumb			# Name of thumbnail directory
smdir=small			# Name of smaller images directory
pagetitle="Thumbnails"		# Unless overridden by "-t"
language="en"			# Language of generated HTML pages
owner="Bert Bos"		# Copyright holder
email="bert@w3.org"		# Copyright holder's e-mail
preamble=			# Unless overridden by -p
style=				# Unless overridden by -e
interactive=false		# Whether to prompt for title, language, etc.
group=				# Group by series/year/nothing
crop=100
up=".."				# Where the "up" link points to

# Some constants for the interactive dialogs
#
d_backtitle="Thumbnails RDF/XMP"

# Check that we have jpegtopnm/pnmtojpeg, convert, or djpeg/cjpeg.
# (In fact, when convert exists, CJPEG and DJPEG aren't used at all.)
#
if type -t djpeg >/dev/null; then DJPEG="djpeg"
elif type -t convert >/dev/null; then DJPEG="convert - ppm:-"
elif type -t jpegtopnm >/dev/null; then DJPEG="jpegtopnm"
else die "Neither djpeg, jpegtopnm nor convert found."
fi

if type -t cjpeg >/dev/null; then CJPEG=cjpeg
elif type -t convert >/dev/null; then CJPEG="convert - -quality 75 jpeg:-"
elif type -t pnmtojpeg >/dev/null; then CJPEG=pnmtojpeg
else die "Neither cjpeg, pnmtojpeg nor convert found."
fi

# We need wrjpgapp, and either convert or pnmscale
#
if type -t wrjpgapp >/dev/null; then :;
else die "Required program wrjpgapp not found."
fi
if type -t pnmscale >/dev/null || type -p convert >/dev/null; then :;
else die "Neither convert nor pnmscale programs found."
fi

# Constants (RDF field names). The [Dd] is there because between
# rdfpic 2.0 and 2.1, we changed the names of the properties to
# lowercase, as is the convention for RDF.
#
if type -p xmptool >/dev/null; then
  dc='http://purl.org/dc/elements/1.1/'
  tc='http://www.w3.org/2000/PhotoRDF/technical-1-0#'
  dcDescription="${dc}description"
  dcCoverage="${dc}coverage"
  dcDate="${dc}date"
  dcTitle="${dc}title"
  dcIdentifier="${dc}identifier"
  dcCreator="${dc}creator"
  dcRelation="${dc}relation"
  tcCamera="${tc}camera"
  tcLens="${tc}lens"
  tcFilm="${tc}film"
  tcDevelDate="${tc}devel-date"
else
  dcDescription="[Dd]escription"
  dcCoverage="[Cc]overage"
  dcDate="[Dd]ate"
  dcTitle="[Tt]itle"
  dcIdentifier="[Ii]dentifier"
  dcCreator="[Cc]reator"
  dcRelation="[Rr]elation"
  tcCamera="[Cc]amera"
  tcLens="[Ll]ens"
  tcFilm="[Ff]ilm"
  tcDevelDate="[Dd]evel-date"
fi

# Localization
languages=(\
 "en"\
 "nl"\
 "fr"\
 "de")
Legend=(\
 "Legend"\
 "Legenda"\
 "L&eacute;gende"\
 "Legende")
Large=(\
 "large image"\
 "grote foto"\
 "grande photo"\
 "gro&szlig;e Foto")
Small=(\
 "small image (max ${smallwd}&times;${smallht})"\
 "kleine foto (max ${smallwd}&times;${smallht})"\
 "petite photo (${smallwd}&times;${smallht} max)"\
 "kleine Foto")
Raw=(\
 "raw RDF/XMP metadata"\
 "ruwe RDF/XMP metadata"\
 "metadata RDF/XMP cru"\
 "rohe RDF/XMP metadata")
Previous=(\
 "Previous"\
 "Vorige"\
 "Pr&eacute;c&eacute;dent"\
 "Vorige")
Index=(\
 "Index"\
 "Index"\
 "Index"\
 "Index")
Next=(\
 "Next"\
 "Volgende"\
 "Suivant"\
 "N&auml;chste")
Image=(\
 "[image]"\
 "[foto]"\
 "[photo]"\
 "[Foto]")
Date=(\
 "Date:"\
 "Datum:"\
 "Date&nbsp;:"\
 "Datum:")
Place=(\
 "Place:"\
 "Plaats:"\
 "Lieu&nbsp;:"\
 "Ort:")
Series=(\
 "Series:"\
 "Serie:"\
 "S&eacute;rie&nbsp;:"\
 "Serie:")
Number=(\
 "Number:"\
 "Nummer:"\
 "Num&eacute;ro&nbsp;:"\
 "Nummer:")
Creator=(\
 "Photographer:"\
 "Fotograaf:"\
 "Photographe:"\
 "Fotograf:")
Size=(\
 "Size:"\
 "Grootte:"\
 "Taille&nbsp;:"\
 "Gr&ouml;&szlig;e:")
Camera=(\
 "Camera:"\
 "Camera:"\
 "Appareil photo&nbsp;:"\
 "Kamera:")
Lens=(\
 "Lens:"\
 "Lens:"\
 "Objectif&nbsp;:"\
 "Objektiv:")
Film=(\
 "Film:"\
 "Film:"\
 "Pellicule&nbsp;:"\
 "Film:")
DevelDate=(\
 "Development date:"\
 "Ontwikkeldatum:"\
 "Date de developpement&nbsp;:"\
 "Entwiklungsdatum:")

# A directory for temporary files. The directory will be removed when
# the script exits, so no need to remove temporary files after use.
#
TEMPDIR=`mktemp -d` || exit 1
trap "rm -rf $TEMPDIR" 0


# usage -- print usage message and exit
function usage
{
  echo "Usage: $progname [-ihgy] [-t title] [-l language] [-n owner] [-m e-mail] [-c percent] [-p file] [-s styleURL] output jpeg [jpeg...]"
  exit 1
}


# help -- explain the options
function help
{
  echo "$progname -- create thumbnails and description pages for JPEG images"
  echo "Options and arguments:"
  echo "  -l language"
  echo "	Output HTML in the given language. Currently supported"
  echo "	are \"en\" (English), \"fr\" (French), \"nl\" (Dutch) and"
  echo "	\"de\" (German). Default: en"
  echo "  -t title"
  echo "	Title of the generated thumbnails page"
  echo "	Default: \"Thumbnails\""
  echo "  -n name"
  echo "	The name of the copyright owner, which will be printed at"
  echo "	the bottom of the page. If the images do not contain RDF"
  echo "	metadata, a copyright message will be inserted into them"
  echo "	as well."
  echo "	Default: \"Bert Bos\""
  echo "  -c percent"
  echo "	Try to make thumbnails better by showing only the center"
  echo "	of the image. 100 means the whole image is used"
  echo "	(default), 80 means the image's four edges are cut off"
  echo "	such that only 80% of its original width and height"
  echo "	remain"
  echo "  -p file"
  echo "	Insert the contents of file above the thumbnails."
  echo "	Must be HTML that is valid in BODY."
  echo "	Default: none"
  echo "  -w number"
  echo "	Width or height (whichever is larger) of the thumbnails,"
  echo "	in pixels."
  echo "	Default: 100"
  echo "  -s styleURL"
  echo "	URI reference of an external style sheet. If present, all"
  echo "	generated pages (thumbnail page and individual photo pages)"
  echo "	will have a <link rel=stylesheet> with this URI. Otherwise,"
  echo "	the script will insert its own built-in style."
  echo "  -g"
  echo "	Group the thumbnails by series (dc:relation), add a subtitle"
  echo "	before each group and a menu of series at the top."
  echo "  -y"
  echo "	Group the thumbnails by year (dc:date), add a subtitle"
  echo "	before each group and a menu of years at the top."
  echo "	(-g and -y are mutually exclusive.)"
  echo "  -i"
  echo "	Interactive. The user will be prompted for language,"
  echo "	title, name of owner, output file and image files."
  echo "  -h"
  echo "	Help. Shows this text."
  echo "  output"
  echo "	The name of the HTML file which will contain the"
  echo "	thumbnails. Use \"-\" to print to standard output."
  echo "  jpeg [jpeg...]"
  echo "	All remaining arguments are interpreted as JPEG files to"
  echo "	be processed. The program will create a small version"
  echo "	(max. 640x480) in the directory \"small\", unless the"
  echo "	original is already smaller than that. And it will create"
  echo "	a thumbnail (max. 100x100) in the directory \"thumb\". It"
  echo "	also creates one HTML file for each JPEG file with the"
  echo "	small version of the image and the description. If there"
  echo "	is no description in Photo-RDF format inside the JPEG,"
  echo "	the description will consist of just the file name."
  exit;
}


# rdjpgxmp -- extract XMP from a JPEG/JFIF file
if ! type -p rdjpgxmp >/dev/null; then
  function rdjpgxmp
  {
    # tr is needed because of a bug in GNU sed 4.1: "." doesn't match null bytes
    sed '/<?xpacket [^>]*W5M0MpCehiHzreSzNTczkc9d/,/<?xpacket end/!d' "$@" | \
      tr '\000' ' ' | \
      sed -e 's/.*\(<?xpacket begin\)/\1/' -e 's/\(<?xpacket end[^>]*>\).*/\1/'
  }
fi


# extract -- get value of field $1 from embedded XMP $2, escape double quotes
function extract
{
  if type -p xmptool >/dev/null; then
    local h=`xmptool -l $language $1 $2`
    [[ -z "$h" ]] && h=`xmptool $1 $2` # If not found, try any language
    echo "$h" | sed -e 's/"/\&quot;/g'
  else
    sed -n '
     # Collect all lines into hold space
     H
     # At last line:
     ${
      # Get hold space
      g
      # Remove <rdf:Description>, as it may interfere with old <dc:Description>
      s|</\?rdf:Description[^>]*>||g
      # Reset substitution counter
      t here
      :here
      # Keep just the property element
      s|.*\(<[^:>]*:'$1'[^a-z0-9_-].*</[^:>]*:'$1'>\).*|\1|g
      # Quit if there was no such property
      t cont
      q
      :cont
      # Remove everything before wanted language
      s|.*\(<[^>]*xml:lang=.'$language'\)|\1|g
      # Remove everything after first closing tag
      s|</.*||
      # Remove all tags
      s|<[^>]*>||g
      # Collapse white space, escape double quotes
      s|[ \n][ \n]*| |g
      s| $||
      s|^ ||
      s|"|\&quot;|g
      p
     }
     ' $2
  fi
}


# getsize -- get size of file $1 in KB
function getsize
{
  #set -- `ls -s -k "$1"`	# We need the first word of the output
  #echo $1
  set -- `wc -c "$1"`
  expr $1 / 1024
}


# scale -- scale a JPEG image on stdin to fit within $1 x $2 pixels
function scale
{
  if type -t convert >/dev/null; then
    convert -size $1x$2 - -resize $1x$2 -quality 75 -
  else
    $DJPEG | pnmscale -xysize $1 $2 | $CJPEG
  fi
}


# crop_and_scale -- scale the center $1 % of a JPEG image $4 to $2x$3
function crop_and_scale
{
  if type -t convert >/dev/null; then
    local h
    ((h = 50 - $1 / 2))
    convert "$4" -shave ${h}x${h}% -resize $2x$3 -strip -
  else
    local fileinfo=`$DJPEG <"$4" | pnmfile`
    local w=`echo $fileinfo | cut -d, -f2 | cut -d' ' -f2`
    local h=`echo $fileinfo | cut -d, -f2 | cut -d' ' -f4`
    local l=`echo "$w $w $crop * 100 / - 2 / p" | dc`
    local t=`echo "$h $h $crop * 100 / - 2 / p" | dc`
    $DJPEG <"$4" |\
       pnmcut -left $l -right -$l -top $t -bottom -$t |\
       pnmscale -xysize $1 $2 | $CJPEG
  fi
}


# get_dimension -- return the size of a JPEG image on stdin
function get_dimension
{
  if type -p identify >/dev/null; then
    identify -format '%w %h' -
  else
    djpeg | pnmfile | cut -d, -f2 | cut -d' ' -f2,4
  fi
}


# output_header -- Write the header part of the output
function output_header
{
  # Note: 'float: left' causes a bug in Netscape 4 and Opera 3.5 & 3.6
  # (all images are in a single row, instead of as many as needed).
  # You may want to comment it out until there are newer versions of
  # those browsers.

  local wrapht=`expr $border + $h1 + $border`
  local title="$1"
  local preamble="$2"

  echo "<!doctype html public '-//W3C//DTD HTML 4.0//EN'"
  echo "  'http://www.w3.org/TR/REC-html40/strict.dtd'>"
  echo "<html lang=\"$language\">"
  echo "<meta http-equiv=content-type content='text/html; charset=utf-8'>"
  echo "<title>$title</title>"
  if [ -z "$style" ]; then
    echo "<style type=\"text/css\">"
    echo "  .thumb {padding: 6px; margin: 8px}"
    echo "  @media all {"
    echo "    .thumb {"
    echo "      float: left;"
    echo "      width: ${w2}px; height: ${h2}px; overflow: auto;"
    echo "      text-align: center;"
    echo "      /*background: black;*/ /*border: thin inset;*/"
    echo "      font-size: small; overflow: auto}"
    echo "    IMG {border: ${border}px solid white; margin-bottom: 4px}"
    echo "    .imgwrap {width: ${w2}px; display: table-cell;"
    echo "      vertical-align: bottom; padding: 0}"
    echo "  }"
    echo "  @media all {"
    echo "    .imgwrap {height: ${wrapht}px; margin-bottom: 0.5em}"
    echo "    /* Separate @media, because IE4 ignores only 1st rule in @... */"
    echo "  }"
    echo "  BODY {background: #033; color: white}"
    echo "  A {text-decoration: none}"
    echo "  A:link {color: white}"
    echo "  A:visited {color: silver}"
    echo "  .size {background: #060}"
    echo "  DIV.footer {clear: both; border-top: solid; padding-top: 1em}"
    echo "  H3 {margin: 0 0 0.2em 0; color: #FF0}"
    echo "  .rdf {background: #630}"
    #echo "  .legend {font-size: smaller}"
    echo "  ADDRESS {text-align: right}"
    echo "  .legend {float: left; width: 45%}"
    echo "  DT {display: compact}"
    echo "  DD {margin-top: 0.2em; margin-left: 4em}"
    echo "  P, DL {margin: 0}"
    echo "  .num, .date, .place {display: none}"
    echo "  H2 {clear: both; font-size: 100%; border-bottom: thin solid;"
    echo "   border-top: thin solid; padding: 0.5em}"
    echo "  @media print {"
    echo "    HTML, BODY {margin: 0}"
    echo "    .rdf, .legend {display: none}"
    echo "    .num, .date, .place {display: block}"
    echo "    .thumb {float: none; clear: left; text-align: left;"
    echo "      width: auto; height: auto; page-break-inside: avoid}"
    echo "    .imgwrap {display: block; float: left}"
    echo "  }"
    echo "</style>"
  else
    echo "<link rel=stylesheet href=\"$style\">"
  fi
  echo "<link rel=up href=\"$up\">"
  echo
  echo "<body class=index>"
  echo "<h1>$title</h1>"
  if [ -f "$preamble" ]; then
    echo "<div class=preamble>"
    cat "$preamble"
    echo "</div>"
  fi
}


# output_footer -- output copyright message, etc. at the end
function output_footer
{
  echo "<div class=footer>"
  echo "<div class=legend>"
  echo "<p><strong>${Legend[$lang]}:</strong>"
  echo "<dl><dt><span class=size>588&nbsp;KB</span><dd>${Large[$lang]}"
  echo "<dt><span class=size>37&nbsp;Kb</span><dd>${Small[$lang]}"
  echo "<dt><span class=rdf>RDF</span><dd>${Raw[$lang]}</dl>"
  echo "</div>"
  echo "<address>"
  echo "Copyright &copy; "`date +%Y`" <a href=\"mailto:$email\">$owner</a>"
  echo "</address>"
  echo "</div>"
  echo "</body>"
  echo "</html>"
}


# ask_pagetitle -- put up a dialog with an input box for the page title
function ask_pagetitle
{
  local TMP=`mktemp -q -p $TEMPDIR` || die "Cannot create temporary file."
  dialog --backtitle "$d_backtitle"\
   --inputbox "Title for thumbnails page" 10 60 "$pagetitle" 2>$TMP
  case $? in
    0) pagetitle="$(<$TMP)";;	# OK
    1|255) exit;;		# Cancel|ESC
    *) die "Bug! Cannot happen!";;
  esac
}


# ask_owner -- put up a dialog with an input box for the copyright owner
function ask_owner
{
  local TMP=`mktemp -q -p $TEMPDIR` || die "Cannot create temporary file."
  dialog --backtitle "$d_backtitle"\
   --inputbox "Copyright owner" 10 60 "$owner" 2>$TMP
  case $? in
    0) owner="$(<$TMP)";;	# OK
    1|255) exit;;		# Cancel|ESC
    *) die "Bug! Cannot happen!";;
  esac
}


# ask_images -- Ask for the names of all the JPEG images to process
function ask_images
{
  local TMP=`mktemp -q -p $TEMPDIR` || die "Cannot create temporary file."
  dialog --backtitle "$d_backtitle"\
   --inputbox "The JPEG images (e.g., \"*.jpg\")" 10 70 "$images" 2>$TMP
  case $? in
    0) images="$(<$TMP)";;	# OK
    1|255) exit;;		# Cancel|ESC
    *) die "Bug! Cannot happen!";;
  esac
}


# ask_output -- put up a dialog for the name of the generated thumbnails page
function ask_output
{
  local TMP=`mktemp -q -p $TEMPDIR` || die "Cannot create temporary file."
  local again=true
  while [ $again = true ]; do
    dialog --backtitle "$d_backtitle"\
     --inputbox "Output file name (\"-\" for standard out)" 10 60 "$output" 2>$TMP
    case $? in
      0) output="$(<$TMP)";;	# OK
      1|255) exit;;		# Cancel|ESC
      *) die "Bug! Cannot happen!";;
    esac
    if [ -z "$output" ]; then
      dialog --backtitle "$d_backtitle"\
       --msgbox "The file name cannot be empty. If you want output\
       to be printed to standard output, use a single dash (\"-\")"\
       12 60
      again=true
    else
      again=false
    fi
  done
}


# ask_language -- present the choice of output languages
function ask_language
{
  local TMP=`mktemp -q -p $TEMPDIR` || die "Cannot create temporary file."
  local en=off fr=off nl=off
  case "$language" in
    en) en=on;;
    fr) fr=on;;
    nl) nl=on;;
  esac
  dialog --backtitle "$d_backtitle"\
   --radiolist "Language for HTML pages" 12 40 3\
   en "English" $en\
   fr "French" $fr\
   nl "Dutch" $nl 2>$TMP
  case $? in
    0) language="$(<$TMP)";;	# OK
    1|255) exit;;		# Cancel|ESC
    *) die "Bug! Cannot happen!";;
  esac
}


# ask_preamble -- ask for the name of a file to insert
function ask_preamble
{
  local TMP=`mktemp -q -p $TEMPDIR` || die "Cannot create temporary file."
  dialog --backtitle "$d_backtitle"\
   --inputbox "Optional file with text to insert" 10 60 "$preamble" 2>$TMP
  case $? in
    0) preamble="$(<$TMP)";;	# OK
    1|255) exit;;		# Cancel|ESC
    *) die "Bug! Cannot happen!";;
  esac
}


# ask_percentage -- put up a dialog for the percentage crop of thumbnails
function ask_percentage
{
  local TMP=`mktemp -q -p $TEMPDIR` || die "Cannot create temporary file."
  local again=true
  while [ $again = true ]; do
    dialog --backtitle "$d_backtitle"\
     --max-input 3 --trim\
     --inputbox "Percentage of photo shown in thumbnail (100 = everything)" 10 60 "$crop" 2>$TMP
    case $? in
      0) crop="$(<$TMP)";;	# OK
      1|255) exit;;		# Cancel|ESC
      *) die "Bug! Cannot happen!";;
    esac
    case "$crop" in
      [1-9] | [1-9][0-9] | 100) again=false;;
      *) dialog --backtitle "$d_backtitle"\
       --msgbox "The percentage must be between 1 and 100. Values smaller\
       than 100 cause the thumbnail to show only the center part\
       of the photo."\
       12 60
	 again=true;;
    esac
  done
}


# ask_thumbnail_size -- put up a dialog for the size of thumbnails
function ask_thumbnail_size
{
  local TMP=`mktemp -q -p $TEMPDIR` || die "Cannot create temporary file."
  local again=true
  while [ $again = true ]; do
    dialog --backtitle "$d_backtitle"\
     --max-input 3 --trim\
     --inputbox "Size of thumbnails (in pixels)" 10 60 "$w1" 2>$TMP
    case $? in
      0) w1="$(<$TMP)";;	# OK
      1|255) exit;;		# Cancel|ESC
      *) die "Bug! Cannot happen!";;
    esac
    case "$w1" in
      [1-9]|[1-9][0-9]|[1-9][0-9][0-9]|[1-9][0-9][0-9][0-9]) again=false;;
      *) dialog --backtitle "$d_backtitle"\
       --msgbox "The size must be between 1 and 9999."\
       12 60
	 again=true;;
    esac
  done
}


# ask_grouping -- ask if the thumbnails should be grouped
function ask_grouping
{
  local TMP=`mktemp -q -p $TEMPDIR` || die "Cannot create temporary file."
  local none=off series=off year=off
  case "$group" in
    series) series=on;;
    year) year=on;;
    *) none=on;;
  esac
  dialog --backtitle "$d_backtitle"\
   --radiolist "Group thumbnails?" 10 60 3\
   "" "Don't group" $none\
   "series" "By series" $series\
   "year" "By year" $year 2>$TMP
  case $? in
    0) group=$(<$TMP);;		# OK
    1|255) exit;;		# Cancel|ESC
    *) die "Bug! Cannot happen!";;
  esac
}


# ask_style -- ask for the URL of an ecternal style sheet
function ask_style
{
  local TMP=`mktemp -q -p $TEMPDIR` || die "Cannot create temporary file."
  dialog --backtitle "$d_backtitle"\
   --inputbox "Optional external style sheet" 10 60 "$style" 2>$TMP
  case $? in
    0) style="$(<$TMP)";;	# OK
    1|255) exit;;		# Cancel|ESC
    *) die "Bug! Cannot happen!";;
  esac
}


# Parse options

while getopts "hgyit:l:n:m:c:w:p:s:" flag; do
  case $flag in
    "i") interactive=true;;
    "t") pagetitle="$OPTARG";;
    "l") language="$OPTARG";;
    "n") owner="$OPTARG";;
    "m") email="$OPTARG";;
    "c") crop="$OPTARG";;
    "w") w1="$OPTARG";;
    "p") preamble="$OPTARG";;
    "s") style="$OPTARG";;
    "g") group=series;;
    "y") group=year;;
    "h") help;;
    "?") usage;;
  esac
done

# Parse the name of the HTML file to output to

$interactive || [[ "${!OPTIND}" != "" ]] || usage
output="${!OPTIND}"
shift $OPTIND
images="$*"

# Check if the dialog program is present.
#
DIALOG=`type -p dialog 2>/dev/null`

# If interactive, prompt for all parameters. Loop until user is
# satisfied.
#
while $interactive; do
  if [ -x "$DIALOG" ]; then
    ask_pagetitle
    ask_language
    ask_owner
    ask_output
    ask_images
    ask_percentage
    ask_thumbnail_size
    ask_preamble
    ask_style
    ask_grouping
    if dialog --backtitle "$d_backtitle" --yesno\
     "Are these correct?\n\
     Title = \"$pagetitle\"\n\
     Language = \"$language\"\n\
     Owner = \"$owner\"\n\
     Preamble = \"$preamble\"\n\
     Style sheet = \"$style\"\n\
     Output = \"$output\"\n\
     Group by = ${group:-(none)}" 15 72; then
      interactive=false
    fi

  else				# No dialog, use read instead
    read -e -p "Page title? [$pagetitle] "
    [[ -z "$REPLY" ]] || pagetitle="$REPLY"
    read -e -p "Language? [$language] "
    [[ -z "$REPLY" ]] || language="$REPLY"
    read -e -p "Owner? [$owner] "
    [[ -z "$REPLY" ]] || owner="$REPLY"
    read -e -p "Preamble? [$preamble] "
    [[ -z "$REPLY" ]] || preamble="$REPLY"
    read -e -p "Style URL? [$style] "
    [[ -z "$REPLY" ]] || style="$REPLY"
    read -e -p "Output file? ${output:+[$output]} "
    [[ -z "$REPLY" ]] || output="$REPLY"
    read -e -p "Images? [$images] "
    [[ -z "$REPLY" ]] || images="$REPLY"
    if [ -z "$output" ]; then
      echo
      echo "** Sorry, the output file must be specified."
      echo "** Use \"-\" if you want to print to standard output."
      echo
    else
      echo
      echo "Page title : $pagetitle"
      echo "Language   : $language"
      echo "Owner      : $owner"
      echo "Output     : $output"
      echo "Images     : $images"
      echo
      read -e -p "Is this OK? [Y] "
      if [ "$REPLY" = "y" -o "$REPLY" = "Y" -o "$REPLY" = "" ];then
	interactive=false
      fi
    fi
  fi
done

# Sizes that depend on the thumbnail size

w2=`expr $w1 + 50`
h1=$w1
h2=`expr \( $h1 + 102 \) + \( 2 \* $border \)`

# Redirect generated HTML output to file, unless it is "-" (stdout)

[[ "$output" = "-" ]] || exec >"$output"

# Create a temporary file to hold the text for the copyright

TMP=`mktemp -q -p $TEMPDIR` || die "Cannot create temporary file."
echo "Copyright &copy; "`date +%Y`" $owner <$email>" >$TMP
RDFFILE=`mktemp -q -p $TEMPDIR` || die "Cannot create temporary file."
TMP2=`mktemp -q -p $TEMPDIR` || die "Cannot create temporary file."
TMP3=`mktemp -q -p $TEMPDIR` || die "Cannot create temporary file."

# Translate name of the language into an index into language array

typeset -i lang
((lang = ${#languages[*]} - 1))
while [ "${languages[$lang]}" != "$language" -a $lang -gt 0 ]; do
  ((lang = $lang - 1))
done

# Create the directories for the thumbnails and the reduced JPEGs

[[ -d $thdir ]] || mkdir $thdir
[[ -d $smdir ]] || mkdir $smdir

# Write the header of the HTML file.

output_header "$pagetitle" "$preamble"

# Sort by series and by date

if [ "$group" ]; then
  set -- $images
  echo -e "Sorting\c" >&2

  for f; do
    echo -e ".\c" >&2
    if rdjpgxmp "$f" >$RDFFILE; then
      case "$group" in
	series) echo -e `extract "$dcRelation" $RDFFILE\
	   | tr -s '\r\n\t' ' '`"\t$f" >>$TMP2;;
        year) echo -e `extract "$dcDate" $RDFFILE\
	   | tr -s '\r\n\t' ' '\
	   | sed -e 's/.*\([0-9][0-9][0-9][0-9]\).*/\1/'`"\t$f" >>$TMP2;;
        *) die "Bug! Cannot happen!";;
      esac
    else
      echo -e "@@@\t$f" >>$TMP2
    fi
  done

  # New list of images, sorted by group

  images=`sort -b -d -f $TMP2 | cut -f2`

  # Make a menu of groups

  echo "<ul>"
  sort -b -d -f -u -t '	' -k 1,1 $TMP2 | cut -f1 | cat -n | \
    sed -e 's/^\( *[0-9]*	\)@@@$/\1.../' \
    -e 's/^ *\([0-9][0-9]*\)	/ <li><a href="#s\1">/' \
    -e 's/$/<\/a>/'
  echo "</ul>"
  echo >&2
fi

# Loop over all arguments

unset mainpage
typeset -i groupcount=1
prevgroup="	"
set -- $images
while [ $# -gt 0 ]; do

  prev="$mainpage"		# For "prev" link
  f="$1"			# Image to process
  if [ -z "$2" ]; then unset next; else next=`basename "$2" .jpg`.html; fi
  mainpage=`basename "$f" .jpg`.html # HTML page for small image
  shift

  echo -e "Processing $f \c" >&2

  h=`basename "$f" .jpg`	# Basename of original image
  g="$thdir/${h}"		# Basename of thumbnail
  j="${g}.jpg"			# Full name of thumbnail
  smallbase="$smdir/${h}"	# Basename of 640x480 version
  smallname="$smallbase.jpg"	# Full name of 640x480 version

  typeset -i size=`getsize "$f"`
  echo -e "(${size} KB), \c" >&2

  # Check for PhotoRDF

  unset description title date place series number camera lens film develdate\
   creator
  if rdjpgxmp "$f" >$RDFFILE; then
    description=`extract "$dcDescription" $RDFFILE`
    title=`extract "$dcTitle" $RDFFILE`
    date=`extract "$dcDate" $RDFFILE`
    place=`extract "$dcCoverage" $RDFFILE`
    series=`extract "$dcRelation" $RDFFILE`
    number=`extract "$dcIdentifier" $RDFFILE`
    creator=`extract "$dcCreator" $RDFFILE`
    camera=`extract "$tcCamera" $RDFFILE`
    lens=`extract "$tcLens" $RDFFILE`
    film=`extract "$tcFilm" $RDFFILE`
    develdate=`extract "$tcDevelDate" $RDFFILE`
  fi
  [[ -z "$description" ]] && description=`basename $f`

  # Generate small version, unless an up-to-date version already exists
  # Copy the PhotoRDF if it exists, or add a standard copyright

  echo -e "small \c" >&2

  if [ -z "$title" ]; then
    cp $TMP $TMP3
  else
    echo -e "http://ns.adobe.com/xap/1.0/\000\c" >$TMP3
    cat $RDFFILE >>$TMP3
  fi
  if [[ ! -f "$smallname" || "$f" -nt "$smallname" ]]; then
    scale $smallwd $smallht <"$f" | wrjpgapp -cfile $TMP3 >"$smallname"
  fi

  typeset -i smallsize=`getsize "$smallname"`
  echo -e "(${smallsize} KB), \c" >&2

  # Generate thumbnail unless an up-to-date version already exists

  echo "thumbnail" >&2

  if [[ ! -f "$j" || "$f" -nt "$j" ]]; then
    crop_and_scale $crop $w1 $h1 $smallname >$j
  fi
  fileinfo=`get_dimension <"$j"`
  thumbwd=`echo $fileinfo | cut -d' ' -f1`
  thumbht=`echo $fileinfo | cut -d' ' -f2`

  # Find out if $smallname is indeed smaller than $f. Store the name
  # and size of the smaller of the two in $mainname and $mainsize, and
  # compute the name of an HTML file $mainpage
  #
  if [ $smallsize -lt $size ]; then
    mainname="$smallname"
    mainsize=$smallsize
  else
    mainname="$f"
    mainsize=$size
  fi

  # Write an HTML page for the small version, with links to prev, next
  # and thumbnails and to the large image

  (
    echo "<!doctype html public '-//W3C//DTD HTML 4.0//EN'"
    echo "  'http://www.w3.org/TR/REC-html40/strict.dtd'>"
    echo
    echo "<html lang=\"$language\">"
    echo "<meta http-equiv=content-type content='text/html; charset=utf-8'>"

    # Header

    echo -e "<title>\c"
    if [ -z "$title" ]; then echo -e "$description\c"; else echo -e "$title\c"; fi
    echo "</title>"
    [[ -z "$prev" ]] || echo "<link rel=prev href=\"$prev\">"
    [[ -z "$next" ]] || echo "<link rel=next href=\"$next\">"
    echo "<link rel=up href=\"$output\">"
    [[ -z "$title" ]] || echo "<link rel=meta href=\"$f;application%2Frdf%2Bxml\">"
    if [ -z "$style" ]; then
      echo "<style type=\"text/css\">"
      echo "	body {background: #033; color: white}"
      echo "	h1, p {text-align: center}"
      echo "	h1 {color: #FF0}"
      echo "	table {margin: 1em auto}"
      echo "	th {text-align: right}"
      echo "	td {text-align: left}"
      echo "	tr {vertical-align: baseline}"
      echo "	img {border: thick solid white}"
      echo "	.rdf {background: #630; color: white}"
      echo "	.nav {width: 1em; border: thin solid; padding: 0.2em; float: left}"
      echo "	a {text-decoration: none}"
      echo "	a[rel=meta] {float: right}"
      echo "	a:link {color: inherit /*#00F*/}"
      echo "	.nav {color: inherit /*#999*/}"
      echo "	a:visited {color: inherit /*#80F*/}"
      echo "	a:active {background: #FFF}"
      echo "	a:hover {background: #FCC}"
      echo "	@media print { .nav {display: none} }"
      echo "</style>"
    else
      echo "<link rel=stylesheet href=\"$style\">"
    fi
    echo

    # Body

    echo "<body class=photo>"
    if [ -z "$prev" ]; then
      echo "<span class=nav>&#9664;</span>"
    else
      echo "<a class=nav rel=prev accesskey=P href=\"$prev\""
      echo "	title=\"${Previous[$lang]}\">&#9664;</a>"
    fi
    echo "<a class=nav rel=up accesskey=I href=\"$output\""
    echo "	title=\"${Index[$lang]}\">&#9679;</a>"
    if [ -z "$next" ]; then
      echo "<span class=nav>&#9654;</span>"
    else
      echo "<a class=nav rel=next accesskey=N href=\"$next\""
      echo "	title=\"${Next[$lang]}\">&#9654;</a>"
    fi
    if [ ! -z "$title" ]; then
      echo "<a class=nav rel=meta accesskey=R href=\"$f;application%2Frdf%2Bxml\""
      echo "	title=\"${Raw[$lang]}\">&#9670;</a>"
    fi
    echo
    echo -e "<h1>\c"
    if [ -z "$title" ]; then echo -e "$descriptionf\c"; else echo -e "$title\c"; fi
    echo "</h1>"
    echo
    echo "<p><a accesskey=M href=\"$f\"><img alt=\"${Image[$lang]}\""
    echo "	src=\"$mainname\"></a>"
    echo
    echo "<p class=\"desc\">$description"
    echo
    echo "<table>"
    [[ -z "$date" ]] || echo "<tr><th>${Date[$lang]}<td>$date"
    [[ -z "$place" ]] || echo "<tr><th>${Place[$lang]}<td>$place"
    [[ -z "$series" ]] || echo "<tr><th>${Series[$lang]}<td>$series"
    [[ -z "$number" ]] || echo "<tr><th>${Number[$lang]}<td>$number"
    [[ -z "$creator" ]] || echo "<tr><th>${Creator[$lang]}<td>$creator"
    [[ -z "$camera" ]] || echo "<tr><th>${Camera[$lang]}<td>$camera"
    [[ -z "$lens" ]] || echo "<tr><th>${Lens[$lang]}<td>$lens"
    [[ -z "$film" ]] || echo "<tr><th>${Film[$lang]}<td>$film"
    [[ -z "$develdate" ]] || echo "<tr><th>${DevelDate[$lang]}<td>$develdate"
    echo "<tr><th>${Size[$lang]}<td>$size&nbsp;KB"
    echo "</table>"

  ) > "$mainpage"

  # If images are grouped, insert a group title, if needed

  case "$group" in
    series) h="$series";;
    year) h=`echo \"$date\"|sed -e 's/.*\([0-9][0-9][0-9][0-9]\).*/\1/'`;;
    *) h="$prevgroup";;
  esac
  if [ "$h" != "$prevgroup" ]; then
    [[ "$prevgroup" == "	" ]] || echo "</div><!--series-->"
    echo
    echo "<div class=series id=s$groupcount>"
    echo "<h2>$h</h2>"
    ((groupcount++))
    prevgroup="$h"
  fi

  # Output the HTML code for the thumbnail.
  # Link it to page with the small image

  echo
  echo "<div class=thumb>"
  echo " <div class=imgwrap>"
  echo "  <p><a href=\"$mainpage\"><img"
  echo "   src=\"$j\""
  echo "   alt=\"${Image[$lang]}\""
  [[ -z "$title" ]] || echo "   title=\"$title\""
  echo "   width=$thumbwd height=$thumbht></a>"
  echo " </div>"
  [[ -z "$title" ]] || echo " <h3>$title</h3>"
  echo " <p><a href=\"$f\"><span class=size>${size}&nbsp;KB</span></a> -"

  # Don't link to the small version if the small version is actually larger

  if [ $smallsize -lt $size ]; then
    echo " <a href=\"$smallname\"><span class=size>${smallsize}&nbsp;KB</span></a> -"
  else
    rm "$smallname"
  fi

  # ToDo: if the description (or any other field) is a URL, make a link

  echo " $description"

  # Add the number and the date (will only be visible when printed)

  [[ -z "$number" ]] || echo " <span class=num>($number)</span>"
  [[ -z "$date" ]] || echo " <span class=date>$date</span>"
  [[ -z "$place" ]] || echo " <span class=place>$place</span>"

  # If the PhotoRDF exists, make a URL that can retrieve it (Jigsaw only)

  [[ -z "$title" ]] || echo "<a class=rdf href=\"$f;application%2Frdf%2Bxml\">RDF</a>"

  echo "</div>"
done

[[ "$group" ]] && echo "</div><!--series-->"

output_footer

# Local Variables:
# mode: ksh
# End: