'
echo ' | '
echo ' '
indexes=(*/index.html)
for (a in `{seq 1 $#indexes}) {
pagetitle=`{grep '' $indexes($a) | sed 's/<title>(.*)<.title>/\1/'}
if (! ~ $pagetitle '') {
if (! ~ $a 1) {
echo '|'
}
echo '<a href="'^$indexes($a)^'">'
echo $pagetitle
echo '</a>'
}
}
echo ' </center>'
echo ' </td>'
echo ' </tr>'
echo ' </table>'
echo ' </body>'
echo '</html>'
}
gtitle='Picture Gallery'
yesindex='0'
yesthumb='0'
yestopindex='0'
while(~ $1 -*) {
switch($1){
case -t
yesthumb='1'
case -i
yesindex='1'
case -T
shift
gtitle=$1
case -g
yestopindex='1'
case *
}
shift
}
if (~ $yestopindex '1') {
> _index.html
mktopindex $gtitle $gtitle >> _index.html
exit
}
jpegs=(`{ls -t *.jpg | grep -v '^piggythmb_'})
# thumbs='piggythmb_'^$jpegs
thumbs='piggythmb_'^`{seq $#jpegs}^'.jpg'
pages=`{echo $#jpegs ' 8 + 9 / p' | dc}
if (~ $yesthumb '1') {
for (i in `{seq $#jpegs}) {
mkthumb $jpegs($i) $thumbs($i)
}
}
for (x in `{seq $pages}) {
ptitle='Gallery '^$x^' of '^$pages
outfile='page_'^$x^'.html'
>$outfile
mkheader $gtitle $ptitle $x >> $outfile
range=`{echo $x ' 1 - 9 * 1 + p ' $x ' 9 * p' | dc}
if (test $range(2) -gt $#jpegs) {
range=($range(1) $#jpegs)
}
for (i in `{seq $range(1) 3 $range(2)}) {
j = `{echo $i ' 2 + p' | dc}
if (test $j -gt $range(2)) {
j = $range(2)
}
mkrow $i $j >> $outfile
}
mkfooter >> $outfile
}
if (~ $yesindex '1') {
> _index.html
mkindex $gtitle $gtitle >> _index.html
}
|