From: Martin Mares <mj@ucw.cz>
Date: Thu, 27 Dec 2012 22:31:54 +0000 (+0100)
Subject: Gallery2: Upgrade 2012
X-Git-Url: http://mj.ucw.cz/gitweb/?a=commitdiff_plain;h=45edeb070735dd3d2839fa70bd6874b147cc2d2c;p=gallery.git

Gallery2: Upgrade 2012
---

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;