${1}

#!/bin/ksh AWK=nawk INDEXTYPE=overview #INDEXTYPE=list TITLETEXT="Bilder" HEADERTEXT="Bilder" IMAGETEXT="Bild" PREVTEXT="Föregående" NEXTTEXT="Nästa" OVERVIEWTEXT="Översikt" ABOUTTEXT="Innehåll" IMAGE="$1" DIR="`dirname $SCRIPT_FILENAME`" if [ -f ${DIR}/header.txt ]; then HEADERTEXT="`cat ${DIR}/header.txt`" fi header() { cat < ${1}

Åtvidabergs TK / Bilder EOF if [ "$2" != "" ]; then echo "$2" fi cat <

EOF } footer() { cat <

EOF } if [ "$IMAGE" = "" ]; then header ${TITLETEXT} if [ "$INDEXTYPE" = "list" ]; then cat <${HEADERTEXT} EOF for D in `(cd "${DIR}" ; ls -d ???)`; do cat < EOF done cat < EOF else cat <${HEADERTEXT}

${IMAGETEXT}	${ABOUTTEXT}
EOF if [ -f "${DIR}/${D}/thumbnail.jpg" ]; then cat < EOF else cat <${D} EOF fi cat <	EOF if [ -f "${DIR}"/$D/about.txt ]; then cat "${DIR}"/$D/about.txt fi cat <

EOF (( col=0 )) for D in `(cd "${DIR}" ; ls -d ???)`; do if [ $col = 0 ]; then cat < EOF fi cat < EOF if [ -f "${DIR}/${D}/thumbnail.jpg" ]; then cat <${D}

EOF if [ -f "${DIR}"/$D/about.txt ]; then echo '' cat "${DIR}"/$D/about.txt echo '' fi else cat <${D} EOF fi cat < EOF (( col=col+1 )) if [ "$col" = 5 ]; then (( col=0 )) cat < EOF fi done cat < EOF fi footer exit 0 fi if [ ! -d "$DIR/$IMAGE" ]; then header "No such image" cat <No such image The image specified does not exist EOF footer exit 0 fi PREV="`$AWK -v no=$IMAGE 'END {printf "%03d\n", no-1}' < /dev/null`" NEXT="`$AWK -v no=$IMAGE 'END {printf "%03d\n", no+1}' < /dev/null`" header "${IMAGETEXT} ${IMAGE}" cat <${IMAGETEXT} ${IMAGE}

EOF if [ -d "$DIR/$PREV" ]; then cat <[${PREVTEXT}] EOF fi cat <[${OVERVIEWTEXT}] EOF if [ -d "$DIR/$NEXT" ]; then cat <[${NEXTTEXT}] EOF fi if [ -f "$IMAGE/lores.jpg" ]; then cat <

EOF else cat <

EOF fi if [ -f "$DIR/$IMAGE/about.txt" ]; then echo '
' cat $DIR/$IMAGE/about.txt fi cat < Klicka på bilden för fullstorlek (tex för utskrift).

EOF footer exit 0

Åtvidabergs TK:s fotoarkiv