use lib '/home/mj/web/gal2';
use UCW::Gallery;
-use File::Spec;
use Image::Magick;
use IO::Handle;
use File::Spec;
my $photo_dir = $UCW::Gallery::CF{'PhotoDir'};
if (-d $photo_dir) {
- print "Using existing output directory $photo_dir\n";
+ print "Using existing output directory: $photo_dir\n";
} else {
- print "Creating output directory $photo_dir\n";
+ print "Creating output directory: $photo_dir\n";
File::Path::mkpath($photo_dir) or die "Unable to create $photo_dir: $!\n";
}
$old_meta = UCW::Gallery::ReadMeta($photo_meta);
# use Data::Dumper; print "Read old meta: ", Dumper($old_meta), "\n";
}
-my $meta = { 'photo' => {} };
+my $meta = { 'photo' => {}, 'sequence' => [] };
for my $f (@$orig_list) {
my $id = $f->{id};
my $rotate = $f->{orientation};
my $xfrm = $f->{xfrm};
+ push @{$meta->{sequence}}, $id;
print "$id: ";
my $p = new Image::Magick;