The contact.perl script was used to read
a list of files from stdin (most likely as the output of ls
)
and make a series of interlaced/transparent
GIFs and imagemap files.
makeitfit
variable
contact.perl
variables by having
appropriate
perl commands in the file .contact.perlrc
in the current
(searched first)
or HOME
directory.
ls -C
output.
netpbm
programs are used rather than
pbmplus
programs.
To make a series of image maps of the beer images avalable in our environment I did something like this:
mkdir /tmp/work cd /tmp/work setenv TMPDIR . ls /ftp/pub/beermats/*.{gif,jpg} | contact.perl
The contact.perl script then makes as many all*.gif
and
all*.map
files as
it needs to contain small copies of the images; and makes an
index.html
, text.html
, and map.html
file with the hypertext references.
You'll then need to copy the files into one of your public_html
directories and update your imagemap
configuration file. This
is what I'd do (following from above):
set ddir=~/public_html/beermats chmod 644 * cp -p * $ddir cd $ddir foreach i (all*.map) echo $i echo `basename $i .map` : $ddir/$i >> imagemap.conf end
makeitfit
algorythm is very basic. It
assumes that the images in the imagemap are roughly square.
/tmp
or TMPDIR.
shift
, unshift
, and
push
on my brain.
ls -C
.
.html
files.
The following variables may be useful in the .contact.perlrc
file:
/usr/local/X11R6/xc/fonts/bdf/75dpi/helvBO12.bdf
http://www.csi.uottawa.ca
$SERVER/ftppub/beermats
cgi-bin/imagemap/~user/dirpath
contact.perl
to find
the best values for PICW
and PICH
for the
values of WIDTH
and HEIGHT
.
$makeitfit = 1; $BW = 0; $WW = 0; $addtext2pic = 0; $WIDTH = 500; $HEIGHT = 450; $SERVER = "http://www.csi.uottawa.ca"; $CGIIMAGEMAP = "cgi-bin/imagemap/~kwhite/beermats"; $LOCPREFIX = "$SERVER/ftppub/beermats";