From: Colin Watson <cjwatson@chiark.greenend.org.uk>
Date: Sun, 2 Feb 2003 16:34:57 +0000 (+0000)
Subject: skeleton-gallery: Script to create a skeleton gallery.xml for a directory of
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~cjwatson/git?p=bin.git;a=commitdiff_plain;h=59d1059175f6218500e4ef7cec6c91b8bc2171df

skeleton-gallery: Script to create a skeleton gallery.xml for a directory of
photos.
---

diff --git a/skeleton-gallery b/skeleton-gallery
new file mode 100755
index 0000000..0d4a319
--- /dev/null
+++ b/skeleton-gallery
@@ -0,0 +1,32 @@
+#! /bin/sh
+set -e
+
+exec >gallery.xml
+
+cat <<EOF
+<gallery title="" perpage=""
+         authorname="Colin Watson" authoremail="cjwatson@flatline.org.uk">
+EOF
+
+index=0
+
+for x in *.jpg; do
+    index=$(($index + 1))
+    if [ "$index" -ne 1 ]; then
+	echo
+    fi
+    printf '  <photo id="%d"' "$index"
+    identify "$x" | \
+	perl -ne '/(\d+)x(\d+)/ and print qq{ width="$1" height="$2"}'
+    cat <<EOF
+>
+    <p></p>
+  </photo>
+EOF
+done
+
+cat <<EOF
+</gallery>
+
+<!-- vim: set tw=76 sts=2 sw=2 et: -->
+EOF