#!/usr/bin/perl

use strict;
use warnings;

use Cwd;

system "gal", "mj-init";
die if $?;

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;