Gallery2: Upgrade 2012

diff --git a/gal2/bin/gal-mj-upgrade b/gal2/bin/gal-mj-upgrade
new file mode 100755 (executable)
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;