From 45edeb070735dd3d2839fa70bd6874b147cc2d2c Mon Sep 17 00:00:00 2001
From: Martin Mares <mj@ucw.cz>
Date: Thu, 27 Dec 2012 23:31:54 +0100
Subject: [PATCH] Gallery2: Upgrade 2012

---
 gal2/bin/gal-mj-upgrade | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)
 create mode 100755 gal2/bin/gal-mj-upgrade

diff --git a/gal2/bin/gal-mj-upgrade b/gal2/bin/gal-mj-upgrade
new file mode 100755
index 0000000..cc31898
--- /dev/null
+++ b/gal2/bin/gal-mj-upgrade
@@ -0,0 +1,25 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use Cwd;
+
+my $photos_root = $ENV{HOME} . '/photos';
+
+my $album = $ARGV[0];
+if (!defined $album) {
+	my $cwd = getcwd;
+	$cwd =~ m{/photos/(.*)} or die "Cannot identify album from current directory, need to specify maunally.\n";
+	$album = $1;
+}
+
+open I, "index.cgi" or die;
+open S, "|-", "gal scan" or die;
+while (<I>) {
+	/^img\(/ or next;
+	/# .*(IMG_.*\.JPG) / or die;
+	print S "$photos_root/$album/$1\n";
+}
+close S or die;
+close I;
-- 
2.39.2