#!/bin/tcsh
# this script creates a list of jpg files in current directory
# Each image is then processed in a foreach loop
# The image size is determined
# several types of thumbnail are created. a label raised and a non labeled raise.
# also vga and 1/2 vga images are also created in their own subdirectory.
# After all the images are created a simple web page is created pointing to the
# different size images.

if ( !( -e thumbs ) ) then
mkdir thumbs
endif
if ( !( -e 640x480 ) ) then
mkdir 640x480
endif
if ( !( -e 160x120 ) ) then
mkdir 160x120
endif
if ( !( -e 320x240 ) ) then
mkdir 320x240
endif

set list = `ls *.jpg`
set port = 768
set port1 = 480
set land = 1024
set land1 = 640

foreach i ($list)
set IMAGE_TYPE = `/usr/X11/bin/identify -ping $i|awk '{print $2}'|awk -Fx '{print $1}'`
set ROOT_IMAGE_NAME = `echo $i |awk -F. '{print $1}'`

if ($IMAGE_TYPE == $land ) then
echo image $i landscape 1024
# making labeled thumbs
montage -pen white -raise 10 -bg black -borderwidth 0 -fg white -geom 100x75 -label $ROOT_IMAGE_NAME $i thumbs/l$i
# making non labeled thumbs
montage -pen white -raise 10 -bg black -borderwidth 0 -fg white -geom 100x75 $i thumbs/g$i
montage -pen white -raise 10 -bg black -borderwidth 0 -fg white -geom 120x90 $i thumbs/g12$i
montage -pen white -raise 10 -bg black -borderwidth 0 -fg white -geom 160x120 $i thumbs/g16$i
# making mini 640x480
montage -geom 640x480 -borderwidth 0 $i 640x480/$ROOT_IMAGE_NAME".jpg"
montage -geom 320x240 -borderwidth 0 $i 320x240/$ROOT_IMAGE_NAME".jpg"
montage -geom 160x120 -borderwidth 0 $i 160x120/$ROOT_IMAGE_NAME".jpg"
else if ($IMAGE_TYPE == $port) then
echo image $i portrait 768
# making labeled thumbs
montage -pen white -raise 10 -bg black -borderwidth 0 -fg white -geom 75x100 -label $ROOT_IMAGE_NAME $i thumbs/l$i
# making non labeled thumbs
montage -pen white -raise 10 -bg black -borderwidth 0 -fg white -geom 75x100 $i thumbs/g$i
montage -pen white -raise 10 -bg black -borderwidth 0 -fg white -geom 90x120 $i thumbs/g12$i
montage -pen white -raise 20 -bg black -borderwidth 0 -fg white -geom 120x160 $i thumbs/g16$i
# making mini 480x640
montage -geom 480x640 -borderwidth 0 $i 640x480/$ROOT_IMAGE_NAME".jpg"
montage -geom 240x320 -borderwidth 0 $i 320x240/$ROOT_IMAGE_NAME".jpg"
montage -geom 120x160 -borderwidth 0 $i 160x120/$ROOT_IMAGE_NAME".jpg"
else if ($IMAGE_TYPE == $port1) then
echo image $i portrait type 480
# making labeled thumbs
montage -pen white -raise 10 -bg black -borderwidth 0 -fg white -geom 75x100 -label $ROOT_IMAGE_NAME $i thumbs/l$i
# making non labeled thumbs
montage -pen white -raise 10 -bg black -borderwidth 0 -fg white -geom 75x100 $i thumbs/g$i
montage -pen white -raise 10 -bg black -borderwidth 0 -fg white -geom 90x120 $i thumbs/g12$i
montage -pen white -raise 20 -bg black -borderwidth 0 -fg white -geom 120x160 $i thumbs/g16$i
montage -geom 240x320 -borderwidth 0 $i 320x240/p$i
montage -geom 120x160 -borderwidth 0 $i 160x120/p$i
else if ($IMAGE_TYPE == $land1 ) then
echo image $i landscape type 640
# making labeled thumbs
montage -pen white -raise 10 -bg black -borderwidth 0 -fg white -geom 100x75 -label $ROOT_IMAGE_NAME $i thumbs/l$i
# making non labeled thumbs
montage -pen white -raise 10 -bg black -borderwidth 0 -fg white -geom 100x75 $i thumbs/g$i
montage -pen white -raise 10 -bg black -borderwidth 0 -fg white -geom 120x90 $i thumbs/g12$i
montage -pen white -raise 10 -bg black -borderwidth 0 -fg white -geom 160x120 $i thumbs/g16$i
montage -geom 320x240 -borderwidth 0 $i 320x240/$i
montage -geom 160x120 -borderwidth 0 $i 160x120/$i
else
echo image $i who knows
# making labeled thumbs
montage -pen white -raise 10 -bg black -borderwidth 0 -fg white -geom 100x75 -label $ROOT_IMAGE_NAME $i thumbs/l$i
# making non labeled thumbs
montage -pen white -raise 10 -bg black -borderwidth 0 -fg white -geom 100x75 $i thumbs/g$i
montage -pen white -raise 10 -bg black -borderwidth 0 -fg white -geom 120x90 $i thumbs/g12$i
montage -pen white -raise 10 -bg black -borderwidth 0 -fg white -geom 160x120 $i thumbs/g16$i
# making mini 640x480
montage -geom 640x480 -borderwidth 0 $i 640x480/$i
montage -geom 320x240 -borderwidth 0 $i 320x240/$i
montage -geom 160x120 -borderwidth 0 $i 160x120/$i
endif
#montage -pen white -raise 10 -bg black -bordercolor black -fg white -geom 100x100 -label $i $i thumbs/r$i
end

# write html for a thumb to full size and table to mini sizes
set list = `ls *.jpg`
echo \ >mini_list.html

echo \ >>mini_list.html
echo \\ mini_list.html created by script makeglassandmini.com \<\/\TITLE\>\<\/HEAD\> >>mini_list.html

echo \ >>mini_list.html
echo \ >>mini_list.html
foreach i ($list)
set ROOT_IMAGE_NAME = `echo $i |awk -F. '{print $1}'`

echo \\\<\/A\> >>mini_list.html
echo \ >>mini_list.html
echo \\\Full XGA.\<\/\A\> >> mini_list.html
echo \<\/th\>\\ VGA 640x480\<\/\A\> >> mini_list.html
echo \<\/th\>\\ 320x240\<\/\A\> >> mini_list.html
echo \<\/th\>\\ 160x120\<\/\A\> >> mini_list.html
echo \<\/th\>\<\/tr\> >> mini_list.html
echo \<\/table\> >>mini_list.html
echo \ >>mini_list.html

end
echo \<\/center\> >>mini_list.html
echo \<\/html\> >>mini_list.html

#build ftp command file
#auto generated ftp command string to place files
#this is created in the directory to be uploaded
# run command is ftp "domain.name" set thisdir = `pwd`
set thissubdir = ` pwd | awk -F/ '{print $NF}' `
echo $thisdir
echo $thissubdir
echo prompt >put_page
echo mkdir $thissubdir >>put_page
echo cd $thissubdir >>put_page
echo pwd >>put_page
echo lcd >>put_page
echo mkdir thumbs >>put_page
echo mkdir 160x120 >>put_page
echo mkdir 640x480 >>put_page
echo mkdir 320x240 >>put_page
echo put mini_list.html >>put_page
echo mput mvc\*.jpg >>put_page
echo # in the thumbs the g16 style is used in the autogenerated webpage >>put_page
echo mput thumbs/g16\*.jpg >>put_page
echo mput 160x120/mvc\*.jpg >>put_page
echo mput 640x480/mvc\*.jpg >>put_page
echo mput 320x240/mvc\*.jpg >>put_page