#!/bin/tcsh -f
set fulldir = "`pwd`"
set dirtail = $fulldir:t
set dirhead = $fulldir:h
set dirpar = $dirhead:t
set wwwacargs = Greenberg-friends
set rolldescr = rolldescr.html
if ($#argv >= 1) then
set wwwacargs = "$*"
endif
wwwac $wwwacargs
set title = "$dirpar $dirtail"
if (! -e $rolldescr) then
echo $title > $rolldescr
chmod go-r .
chmod go+x .
chmod -x *.jpg *.JPG
chmod +r *.jpg *.JPG
else
set title = "$title = `head -n 1 $rolldescr`"
endif
if (! -e $dirtail.html) ln -s index.html $dirtail.html
echo "\
\
Ronald I. Greenberg's $title" > index.html
echo '\
\
<\!--#include virtual="'$rolldescr'" -->\
Click on picture or exposure number appearing before it to see full size version. Selected pictures have captions at bottom.\
' >> index.html
foreach file ([0-9][^0-9]*.{jpg,JPG,html} /dev/null*)
if ("$file" !~ /dev/null*) mv $file 0$file
end
mved =_edited.jpg =.jpg
mved =_edited.JPG =.JPG
foreach foto (*.jpg *.JPG)
echo >`tty` processing $foto
set froot = $foto:r
set expnum = `echo $froot | sed 's+\([0-9]*\)[hv]+\1+'`
set thumbnail = .$foto
set caption = $froot.html
set fotowrap = .$caption
djpeg -scale 1/8 $foto | cjpeg -optimize > $thumbnail
echo ''$expnum'
' >> index.html
echo '
' > $fotowrap
if (-e $caption) echo '<\!--#include virtual="'$caption'" -->' >> $fotowrap
end
echo '<\!--#include virtual="/~rig/cgi-bin/silentcount/~rig/counts/photos/'$dirpar$dirtail'.txt" -->' >> index.html
echo '<\!--#include virtual="/~rig/include/update-validate.html" -->' >> index.html