#!/bin/csh -f
set ipp = 20; #Image Per a Page
switch($argv[1])
case '-s':
set subdirectory = "small_size";
set head = "sm"
set file_name = index
breaksw;
default:
case '-m':
set subdirectory = "middle_size";
set head = "md"
set file_name = mindex
breaksw;
endsw
set a = 0
set b = 0
set c = 1
echo "" > $file_name$b.html
echo "
" >> $file_name$b.html
echo "" >> $file_name$b.html
echo "Images" >> $file_name$b.html
echo "" >> $file_name$b.html
echo "" >> $file_name$b.html
echo "" >> $file_name$b.html
set tphoto = ( $subdirectory/* )
######## print "Index ..."
set d = 0
@ n = $#tphoto / $ipp + 1
echo "" >> $file_name$b.html
echo "Index" >> $file_name$b.html
while( $d < $n )
echo \$d \ >> $file_name$b.html
@ d = $d + 1
end
echo "
" >> $file_name$b.html
echo "
" >> $file_name$b.html
foreach i ( $tphoto )
@ a = $a + 1
set bigimage=`echo $i | sed -e 's;'$subdirectory'/'$head'_;;'`
echo $bigimage
if ( -f $bigimage ) then
echo \ >> $file_name$b.html
echo \ >> $file_name$b.html
echo \ >> $file_name$b.html
else
echo \ >> $file_name$b.html
endif
if ( $a == $ipp ) then
@ c = $b + 1
echo "
" >> $file_name$b.html
######## print "Index ..."
set d = 0
@ n = $#tphoto / $ipp + 1
echo "Index" >> $file_name$b.html
while( $d < $n )
echo \$d \ >> $file_name$b.html
@ d = $d + 1
end
echo "
" >> $file_name$b.html
echo \next\ >> $file_name$b.html
echo "
" >> $file_name$b.html
echo "" >> $file_name$b.html
echo "" >> $file_name$b.html
@ c = $b
@ b = $b + 1
@ a = 0
echo "" > $file_name$b.html
echo "" >> $file_name$b.html
echo "" >> $file_name$b.html
echo "Images" >> $file_name$b.html
echo "" >> $file_name$b.html
echo "" >> $file_name$b.html
echo "" >> $file_name$b.html
echo "" >> $file_name$b.html
echo \previous\ >> $file_name$b.html
echo "
" >> $file_name$b.html
######## print "Index ..."
set d = 0
@ n = $#tphoto / $ipp + 1
echo "Index" >> $file_name$b.html
while( $d < $n )
echo \$d \ >> $file_name$b.html
@ d = $d + 1
end
echo "
" >> $file_name$b.html
echo "
" >> $file_name$b.html
endif
end
echo "
" >> $file_name$b.html
######## print "Index ..."
set d = 0
@ n = $#tphoto / $ipp + 1
echo "Index" >> $file_name$b.html
while( $d < $n )
echo \$d \ >> $file_name$b.html
@ d = $d + 1
end
echo "" >> $file_name$b.html
echo "" >> $file_name$b.html
echo "" >> $file_name$b.html