#!/usr/local/bin/perl -w
#
#salami for doing a midjpg setup which INCLUDES a database file
#
#
# This one is intended for a suite that has been through midjpg,
# and also has a database. Has inline tiny JPGs, links to medium-sized
# JPGs and links to the huge JPGs stored elsewhere.

# the config file for DJB's new salami. Unlike Rob Hartill's,
# this is actual perl code and most of the names are the same as
# the one for the database forms access "config.ph".
# At a pinch you could copy one of those and hope ...
# Actually you would have to add @sortfields, that is new.
# But perhaps it will be added to the forms access soon.
# and here, field numbers always start at 0, not 1, oh well.

# The filename for the list of accession (sp?) numbers you want
# for the lecture. If this is a normal salami run, comment
# this line out!
#$ACC_FILENAME="numbers";
# The field number for the acc no. Remember, count starting at 0.
#$ACC_FIELDNO=0;

# the database file we want sliced
$DATABASE_FILENAME="ledoux.db";

# the field seperator character in the database
$FIELD_SEPARATOR=",";

# the directory to put the slices in
$directory=".";

# fields to sort by, starting at the most important, to the least
# important. Give the field number (starting at 0) preceded by an
# optional control character. n means numeric field. y means year
# or century field (it counts BC as negative). d means dictionary
# order (ignore case). no control letter gets you ascii order.
# the first sortfield will also get a master ready-index.
@sortfields=("d5", "d4", "d3");

# number of rows of thumbgifs per page
$MAX_ROWS=4;
# number of thumbnails side by side
$THUMBS_ACCROSS=3;

# number of entries on each index page.
$indexlength=16;

# header for index pages
$indexheader="Ledoux and his Circle";

# running header for indexed pages
$runningheader="<TABLE BORDER=1>";
$runningfooter="</TABLE>\n";

# the format to display the thumbnail gifs with.
# FIELD[n] gets the n'th field from the database, starting at 0. <== NB
# FIELD[n/xyz] same, but if the field is empty, xyz instead.
# AUTODIR[n] gets the directory number that would go with FIELD[n]
# using the Official Art History Laserdisk Standard Number Scheme
# BEFORE_THUMBS must have a <TR> and AFTER_THUMBS must have </TR>
# You can add other stuff such as blank lines as well.

# This is the command used to figure out the size of the BIG image.
# So the directory should be where the BIG images are kept.
$JSIZE_COMMAND="/usr/local/bin/jsize < /public/pub/htdocs/extra5/piranesi/AUTODIR[0]/FIELD[0].JPG 2> /dev/null";

$BEFORE_THUMBS="<TR><TD ALIGN=CENTER COLSPAN=$THUMBS_ACCROSS>".
		"<B>Ledoux and his Circle</B></TD></TR><TR>\n";
$THUMB_FORMAT=
"<TD ALIGN=CENTER><TABLE BORDER=1>\n".
"<TR>\n".
# The little inline JPG.
"<TD><IMG SRC=\"/midjpg/piranesi.midjpg/AUTODIR[0]/SFIELD[0].JPG\"></TD>\n".
"<TD>\n".
# Hotlink to the BIG image, give a full URL.
"<A HREF=\"https://rubens.anu.edu.au/extra5/piranesi/AUTODIR[0]/FIELD[0].JPG\">\n".
"BIG</A><BR>\n".
# Hotlink to the medium sized JPG created by midjpg.
"<A HREF=\"/midjpg/piranesi.midjpg/AUTODIR[0]/FIELD[0].JPG\">300</A><BR>\n".
"</TD>\n".
"</TR>\n".
"<TR><TD COLSPAN=2>\n".
# Interesting database fields.
"<B>FIELD[4]</B><BR>FIELD[5] FIELD[1] FIELD[3]<BR>JSIZE</TD>\n".
"</TR></TABLE></TD>\n";

# a fancy example. Adds a blank space after each row. replace <BR>
# with the caption of you choice!
$AFTER_THUMBS="</TR><TR><TD COLSPAN=$THUMBS_ACCROSS><BR></TD></TR>\n";

#$AFTER_THUMBS="</TR>\n";

# Keep empty: semi-obsolete.
$OUTPUT_FORMAT="";

# so require will succeed:
1;