#!/usr/local/bin/perl -w # #salami for doing a midjpg setup which INCLUDES a database file # and gives a zoom link in its output. # # # 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="/public/db_htdocs/italren/renpaintsculp.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=("d0","d3", "d4", "d5"); # number of rows of thumbgifs per page $MAX_ROWS=5; # number of thumbnails side by side $THUMBS_ACCROSS=3; # number of entries on each index page. $indexlength=20; # header for index pages $indexheader="Italian Renaissance Art"; # running header for indexed pages $runningheader="
\n". " | \n".
# Hotlink to zoom
"\n".
"ZOOM \n". # Hotlink to the BIG image, give a full URL. "\n". "BIG \n". # Hotlink to the medium sized JPG created by midjpg. "300 \n". " | \n".
"
\n".
# Interesting database fields.
"FIELD[3] FIELD[0] (FIELD[1]-FIELD[2] FIELD[4] JSIZE | \n".
"