From 59d1059175f6218500e4ef7cec6c91b8bc2171df Mon Sep 17 00:00:00 2001
From: Colin Watson <cjwatson@chiark.greenend.org.uk>
Date: Sun, 2 Feb 2003 16:34:57 +0000
Subject: [PATCH] skeleton-gallery: Script to create a skeleton gallery.xml for
 a directory of photos.

---
 skeleton-gallery | 32 ++++++++++++++++++++++++++++++++
 1 file changed, 32 insertions(+)
 create mode 100755 skeleton-gallery

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
-- 
2.30.2