--- scripts/pgallery/src/pgallery.sh	2012/08/28 08:43:05	1.4
+++ scripts/pgallery/src/pgallery.sh	2012/08/29 14:44:04	1.17
@@ -5,7 +5,7 @@
 # can do whatever you want with this stuff. If we meet some day, and you think
 # this stuff is worth it, you can buy me a beer in return Aron Schlesinger
 #
-# $Paefchen: scripts/pgallery/src/pgallery.sh,v 1.3 2012/08/28 08:27:25 as Exp $
+# $Paefchen: scripts/pgallery/src/pgallery.sh,v 1.16 2012/08/29 14:15:50 as Exp $
 #
 
 ARG_TITLE="PGallery"
@@ -19,13 +19,21 @@ ARG_INDEX="index.html"
 ARG_DIR="."
 ARG_UPDATE=1
 ARG_COPYRIGHT="&copy; $(date +%Y)"
+ARG_INFOFILE=""
+ARG_MAILTO=""
+ARG_MAILFROM="PGallery <${USER}@${HOST}>"
+ARG_URL=
+ARG_EXIF="0x920a 0x829d 0x829a ISO 0x8827 / 0x010f - 0x0110"
 
 BIN_CONVERT="/usr/local/bin/convert"
 BIN_EXIFAUTOTRAN="/usr/local/bin/exifautotran"
 BIN_IMGINFO="/usr/local/bin/imginfo"
+BIN_SENDMAIL="/usr/sbin/sendmail"
+BIN_EXIFTRAN="/usr/local/bin/exiftran"
+BIN_EXIF="/usr/local/bin/exif"
 
 MKAKEFILE=".htmakefile"
-VERSION="pgallery-1"
+VERSION="pgallery-1.3"
 
 #
 # usage()
@@ -35,15 +43,19 @@ usage()
 	cat <<USAGE
 usage $0: ( [-f <files>] | [-s <suffix>] ) [-d <dir>] [-n <name>]
                 [-t <thumbnail_size>] [-u <thumbnail_quality>]
-                [-b <big_size>] [-c <big_quality>]
-                [-i <index>] [-C <copyright>] [-U] | -h | -v
+                [-b <big_size>] [-c <big_quality>] [-l link] [-e <exif>]
+                [-i <index>] [-C <copyright>] [-F <mailfrom>] [-T <mailto>]
+                [-U] | -h | -v
 Options:
   -b size       size from big images in pixel (default: $ARG_BIGSIZE)
   -c quality    quality from big images 0-100% (default: $ARG_BIGQALITY)
   -d dir        gallery dir (default: $ARG_DIR)
+  -e exif       list of tags in hex. (default: $ARG_EXIF)
+                see: http://www.exiv2.org/tags.html
   -f files      gallery images
   -h            this page
   -i name       index file name (default: $ARG_INDEX)
+  -l url        gallery link
   -n name       page title (default: $ARG_TITLE)
   -s suffix     list of suffix. if no \`\`-f'' defined, used to find images
                 in \`\`-d'' directoy. case insensitive
@@ -52,6 +64,13 @@ Options:
   -u quality    quality from thumbnail images 0-100% (default: $ARG_BIGQALITY)
   -v            print version
   -C copyright  copyright (html) string (default: $ARG_COPYRIGHT)
+  -F from       mail sender (default: $ARG_MAILFROM)
+  -I file       info text file for pgallery. info file paras prefered.
+                the syntax of the file is MAKE(1)
+                supported variable: TITLE COPYRIGHT INDEX FILETYPES TNSIZE URL
+                                    TNQALITY BIGSIZE BIGQALITY MAILTO MAILFROM
+                                    EXIF
+  -T mailto     send update infos to this address. if not set, no mail delivery
   -U            no update, new calculation of all images.
                 normally only new and modified images will calculated
 USAGE
@@ -75,14 +94,15 @@ get_my_path()
 html_header()
 {
 	cat <<HTML
+<?xml version="1.0" encoding="utf-8"?>
 <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
-"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+	"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
 <html xmlns="http://www.w3.org/1999/xhtml">
 <head>
 	<title>$ARG_TITLE</title>
-		<meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-1" />
-		<style type="text/css">
-		<!--
+	<meta http-equiv="content-type" content="text/html; charset=utf-8" />
+	<style type="text/css">
+	<!--
 body {
 	background-color: #464646;
 	background-image: url("data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAFgAAABYB\
@@ -141,6 +161,7 @@ HLaErzv/wD99ABmjNZk0AAAAABJRU5ErkJggg==");
 	font-family: Geneva,Arial,sans-serif;
 	font-size: 12px;
 	text-shadow: 1px 1px 1px #000;
+	color: #808080;
 }
 div.tn {
 	float: left;
@@ -225,20 +246,21 @@ div.box {
 	width: ${ARG_BIGSIZE}px;
 	margin: auto;
 }
-div.box div.c {
+div.box div.d {
 	width: ${ARG_BIGSIZE}px;
-	text-align: right;
+	padding: 5px;
+	text-align: center;
+}
+div.box div.i {
+	width: ${ARG_BIGSIZE}px;
 	font-size: 90%;
-	color: #808080;
 	height: 25px;
 	line-height: 25px;
 	position: relative;
-	left: 4px;
 }
 body > div.c {
 	text-align: center;
 	font-size: 90%;
-	color: #808080;
 	height: 25px;
 	line-height: 25px;
 	position: relative;
@@ -319,39 +341,52 @@ HTML
 #
 html_img()
 {
-	img=$1
-	link=$2
-	linkb=$3
-	linkn=$4
+	orig=$1
+	num=$2
+	all=$3
+	img=$4
+	link=$5
+	linkb=$6
+	linkn=$7
 
 	info=$($BIN_IMGINFO -f $img)
 	width=$(echo $info | awk '{print $3}')
 	height=$(echo $info | awk '{print $4}')
 
+	desc=$(get_exif_desc $orig)
+	if [ "$desc" != "" ]
+	then
+		desc="<div class='d'>$desc</div>"
+	fi
+
 	if [ "$linkb" != "" ]
 	then
-		hlinkb="<a href='$linkb'>zur�ck</a>"
+		hlinkb="<a href='$linkb'>prev</a>"
 		olinkb="<a class='left' style='height:${height}px' href='$linkb'></a>"
 	fi
 
 	if [ "$linkn" != "" ]
 	then
-		hlinkn="<a href="$linkn">weiter</a>"
+		hlinkn="<a href="$linkn">next</a>"
 		olinkn="<a class='right' style='height:${height}px' href='$linkn'></a>"
 	fi
 
 	cat <<HTML
 <div class="box">
 	<div class="nav">
-		<div class="top"><a href="$link">Index</a></div>
+		<div class="top">
+			<a href="$link">index</a>&nbsp;&nbsp;&nbsp;|&nbsp;&nbsp;&nbsp;<a href="$orig">original</a>&nbsp;&nbsp;&nbsp;|&nbsp;&nbsp;&nbsp;$num/$all
+		</div>
 		<div class="left">$hlinkb</div>
 		<div class="right">$hlinkn</div>
 	</div>
 	<div class="big">
 		<img alt="$img" width="$width" height="$height" src="$img" />
 	</div>
-	<div class="c">
-		$ARG_TITLE $ARG_COPYRIGHT
+	$desc
+	<div class="i">
+		<div class="left">$(get_exif_info $orig)</div>
+		<div class="right">$ARG_TITLE $ARG_COPYRIGHT</div>
 	</div>
 	<div class="over" style='height:${height}px'>
 		$olinkb
@@ -370,7 +405,107 @@ err()
 	exit 1
 }
 
+#
+# mysendmail()
+#
+mysendmail()
+{
+	subject=$1
+	(
+		cat <<MAIL
+From: $ARG_MAILFROM
+To: $ARG_MAILTO
+Subject: $subject
+Content-Type: text/plain; charset=iso-8859-1
+X-Mailer: $VERSION
 
+$(cat)
+MAIL
+	) | $BIN_SENDMAIL -t
+}
+
+#
+# get_exif_desc()
+#
+get_exif_desc()
+{
+	img=$1
+	$BIN_EXIF --ifd=0 --tag=0x010e -m $img 2> /dev/null | while read line
+	do
+		echo "$line<br />"
+	done
+}
+
+#
+# get_exif_ts()
+#
+get_exif_ts()
+{
+	img=$1
+	date=$($BIN_EXIF --ifd=EXIF --tag=0x9003 -m $img 2> /dev/null)
+	if [ "$date" = "" ]
+	then
+		echo "-1"
+		return 1
+	fi
+	date -j -f "%Y:%m:%d %T" "$date" "+%s"
+}
+
+#
+# get_exif_date()
+#
+get_exif_date()
+{
+	img=$1
+	ts=$(get_exif_ts $img) && date -r $ts "+%d.%m.%Y %H:%M" || echo ""
+}
+
+#
+# get_exif_value()
+#
+get_exif_value()
+{
+	img=$1
+	hex=$2
+	$BIN_EXIFTRAN -d $img | grep $hex | sed -E 's/^.{45}//'
+}
+
+#
+# get_exif_info()
+#
+get_exif_info()
+{
+	img=$1
+
+	exifinfo=
+	created=$(get_exif_date $img) && exifinfo="$created / "
+
+	for exif in $ARG_EXIF
+	do
+		if echo $exif | grep -q -E '0x[[:alnum:]]{4}'
+		then
+			exifinfo="$exifinfo$(get_exif_value $img $exif) "
+		else
+			exifinfo="$exifinfo$exif "
+		fi
+	done
+	echo $exifinfo | sed -E -e 's/ mm /mm /' -e 's/ se(c|k)./s/' -e 's/ ISO / ISO/' -e 's/ ISO(\/| )/ \1/'
+}
+
+#
+# is_in_list()
+#
+is_in_list()
+{
+	list=$1
+	value=$2
+	for entry in $list
+	do
+		test "$entry" = "$value" && return 0
+	done
+	return 1
+}
+
 # parse args
 while [ "$1" != "" ]
 do
@@ -378,60 +513,90 @@ do
 	shift
 	case $arg in
 		-h)
-			usage
-			;;
+			usage;;
 		-n)
 			ARG_TITLE=$1
-			shift
-			;;
+			shift;;
 		-t)
 			ARG_TNSIZE=$1
-			shift
-			;;
+			shift;;
 		-u)
 			ARG_TNQALITY=$1
-			shift
-			;;
+			shift;;
 		-b)
 			ARG_BIGSIZE=$1
-			shift
-			;;
+			shift;;
 		-c)
 			ARG_BIGQALITY=$1
-			shift
-			;;
+			shift;;
 		-f)
 			ARG_FILES=$1
-			shift
-			;;
+			shift;;
+		-l)
+			ARG_URL=$1
+			shift;;
 		-s)
 			ARG_FILETYPES=$1
-			shift
-			;;
+			shift;;
 		-d)
 			ARG_DIR=$1
-			shift
-			;;
+			shift;;
+		-e)
+			ARG_EXIF=$1
+			shift;;
 		-C)
 			ARG_COPYRIGHT=$1
-			shift
-			;;
+			shift;;
+		-F)
+			ARG_MAILFROM=$1
+			shift;;
+		-I)
+			ARG_INFOFILE=$1
+			shift;;
+		-T)
+			ARG_MAILTO=$1
+			shift;;
 		-U)
-			ARG_UPDATE=0
-			;;
+			ARG_UPDATE=0;;
 		-v)
 			echo $VERSION
-			exit
-			;;
+			exit;;
 		*)
 			echo "unknown argument $arg"
 			exit
 	esac
 done
 
+# go to gallery directory
 MY=$(get_my_path)
 cd "$ARG_DIR" || exit 1
 
+# parese info file
+if [ "$ARG_INFOFILE" != "" ]
+then
+	test -f $ARG_INFOFILE || err "info file not found \`\`$ARG_INFOFILE''"
+	for n in TITLE COPYRIGHT INDEX FILETYPES TNSIZE TNQALITY BIGSIZE \
+		BIGQALITY MAILTO MAILFROM URL EXIF
+	do
+		v=$(make -f $ARG_INFOFILE -V$n)
+		test "$v" = "" && continue
+		eval "ARG_$n='$v'"
+	done	
+fi
+
+# paras from iso to utf-8
+for n in $(set | awk -F= '{print $1}')
+do
+	echo "$n" | grep -q '^ARG_' || continue
+	eval "$n=\"\$(echo \"\$$n\" | iconv -f ISO-8859-1 -t UTF-8)\""
+done
+
+# fix url
+if [ "$ARG_URL" != "" ]
+then
+	echo "$ARG_URL" | grep -q '/$' || ARG_URL="${ARG_URL}/"
+fi
+
 # if no images defined, find files
 if [ "$ARG_FILES" = "" -a "$ARG_FILETYPES" != "" ]
 then
@@ -457,6 +622,55 @@ echo 
 
 test $(echo $FLIST | wc -w) -eq 0 && err "error: no image found in \`\`$ARG_DIR''"
 
+# use exif createtime to order images
+FLIST=$(
+	(
+		for file in $FLIST
+		do
+			echo "$(get_exif_ts $file) $file"
+		done
+	) | sort -n | awk '{print $2}'
+)
+
+# find new and to update images
+FLIST_NEW=
+FLIST_UPDATE=
+echo "all: tns" > $MKAKEFILE
+targets=""
+for file in $FLIST
+do
+	tn="${file}.tn.jpg"
+	if [ ! -f $tn ]
+	then
+		FLIST_NEW="$FLIST_NEW $file"
+		continue
+	fi
+
+	targets="$targets $tn"
+	(
+		cat <<MAKE
+$tn: $file
+	@echo ${file}
+MAKE
+	) >> $MKAKEFILE
+done
+echo "tns: $targets" >> $MKAKEFILE
+FLIST_UPDATE=$(make -f $MKAKEFILE)
+rm $MKAKEFILE
+
+# update and no new and update images found
+if [ $ARG_UPDATE -eq 1 -a "$FLIST_NEW" = "" -a "$FLIST_UPDATE" = "" ]
+then
+	echo nothing to do
+	exit 1
+fi
+
+if [ $ARG_UPDATE -eq 1 ]
+then
+	echo new images: $FLIST_NEW
+	echo update images: $FLIST_UPDATE
+fi
+
 # Create make file to rotate und convert all big and thumbnails.
 # Is needed to define the new real image sizes.
 echo "all: tns" > $MKAKEFILE
@@ -476,7 +690,7 @@ do
 	fi
 
 	(
-	cat <<MAKE
+		cat <<MAKE
 $target
 	$BIN_EXIFAUTOTRAN $file
 	$BIN_CONVERT -verbose -thumbnail ${ARG_TNSIZE}x${ARG_TNSIZE} -quality $ARG_TNQALITY $file $tn
@@ -489,9 +703,27 @@ echo "tns: $targets" >> $MKAKEFILE
 make -f $MKAKEFILE
 rm $MKAKEFILE
 
-# create single html files
+# create html index
 index=""
+for file in $FLIST
+do
+	tn="${file}.tn.jpg"
+	imglink="${file}.html"
+	index="$index $(html_tn $tn $imglink)"
+done
+echo create html index
+(
+	html_header
+	echo $index
+	echo "<div class='clear'></div>"
+	echo "<div class='c'>$ARG_TITLE $ARG_COPYRIGHT</div>"
+	html_footer
+) > $ARG_INDEX
+
+# create single html files
+#test $ARG_UPDATE -eq 1 && FLIST="$FLIST_NEW $FLIST_UPDATE"
 i=0
+all=$(echo $FLIST | wc -w)
 echo -n "create single html files "
 for file in $FLIST
 do
@@ -499,7 +731,12 @@ do
 	i=$(($i + 1))
 	j=$(($i + 1))
 
-	tn="${file}.tn.jpg"
+	# is update mod and no new images founded
+	if [ $ARG_UPDATE -eq 1 -a "$FLIST_NEW" = "" ]
+	then
+		is_in_list "$FLIST_UPDATE" "$file" || continue
+	fi
+
 	big="${file}.big.jpg"
 	imglink="${file}.html"
 
@@ -511,21 +748,61 @@ do
 	test "$linkn" != "" && linkn="$linkn.html"
 
 	echo -n .
-	index="$index $(html_tn $tn $imglink)"
 	(
 		html_header
-		html_img $big $ARG_INDEX "$linkb" "$linkn"
+		html_img $file $i $all $big $ARG_INDEX "$linkb" "$linkn"
 		html_footer
 	) > $imglink
 done
 echo
 
-# create html index
-echo create html index
-(
-	html_header
-	echo $index
-	echo "<div class='clear'></div>"
-	echo "<div class='c'>$ARG_TITLE $ARG_COPYRIGHT</div>"
-	html_footer
-) > $ARG_INDEX
+# .htaccess
+if [ -f .htaccess ]
+then
+	grep -q 'AddCharset UTF-8 .html' < .htaccess || echo "AddCharset UTF-8 .html" >> .htaccess
+else
+	echo "AddCharset UTF-8 .html" > .htaccess
+fi
+
+test "$ARG_MAILTO" = "" && exit 0
+
+# send info mail
+if [ "$FLIST_NEW" != "" -o "$FLIST_UPDATE" != "" ]
+then
+	echo "send mail to $ARG_MAILTO"
+	(
+		echo "Hallo,"
+		echo
+		echo -n "the gallery $ARG_TITLE has been updated"
+		if [ "$ARG_URL" != "" ]
+		then
+			echo ":"
+			echo $ARG_URL
+		else
+			echo "."
+		fi
+
+		suffix=
+		test "$ARG_URL" != "" && suffix=.html
+
+		if [ "$FLIST_NEW" != "" ]
+		then
+			echo
+			echo "add pictures:"
+			for file in $FLIST_NEW
+			do
+				echo "- ${ARG_URL}${file}${suffix}"
+			done
+		fi
+
+		if [ "$FLIST_UPDATE" != "" ]
+		then
+			echo
+			echo "update pictures:"
+			for file in $FLIST_UPDATE
+			do
+				echo "- ${ARG_URL}${file}${suffix}"
+			done
+		fi
+	) | mysendmail "PGallery Update: $ARG_TITLE"
+fi
