#!/usr/local/bin/perl -w

# 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="plans.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=("d3", "d1", "d2","d4", "d5", "d7", "d1");

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

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

# header for index pages
$indexheader="<h2>Plans of Rome</h2>";

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

#The following pasted in by MG 26 Oct 99 as an experiment...
# 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 < /raid2/newimages/htdocs/bytype/prints/piranesi/AUTODIR[7]/FIELD[7].JPG 2> /dev/null";


# 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.
$BEFORE_THUMBS="<TR><TD ALIGN=CENTER COLSPAN=$THUMBS_ACCROSS>".
		"<B>Plans of Rome</B></TD></TR><TR>\n";
$THUMB_FORMAT=
"<TD ALIGN=CENTER><TABLE BORDER=1>\n".
  "<TR>".
    "<TD><IMG SRC=\"./AUTODIR[7]/FIELD[7].PNG\"></TD>\n".
    "<TD>".
"<A HREF=\"./AUTODIR[7]/FIELD[7].JPG\">BIG</A><BR>\n".


# Hotlink to zoom
"<A HREF=\"http://rubens2.anu.edu.au/cgi-bin/david/mkmap/htdocs/bytype/prints/piranesi/AUTODIR[7]/FIELD[7].JPG\">\n".
"ZOOM</A><BR>\n".

#"<A HREF=\"/cgi-bin/jreduce.pl/new/classics.museum/AUTODIR[10]/FIELD[10].JPG/2\">1/2</A><BR>\n".
#"<A HREF=\"/cgi-bin/jreduce.pl/new/classics.museum/AUTODIR[10]/FIELD[10].JPG/4\">1/4</A><BR>\n".
#"<A HREF=\"/cgi-bin/jreduce.pl/new/classics.museum/AUTODIR[10]/FIELD[10].JPG/8\">1/8</A><BR>\n".
    "</TD>\n".
  "</TR>".
  "<TR><TD COLSPAN=2>".
"<B>FIELD[1] FIELD[2]</B><BR>FIELD[3]<BR>FIELD[4]<BR>FIELD[5]<BR> imagesize: JSIZE</TD>".
"</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";

$OUTPUT_FORMAT="";

# so require will succeed:
1;