print "... OK\n";
}
+print "Cleaning up stale files\n";
+for my $f (<$photo_dir/*.jpg>) {
+ my ($vv, $dd, $id) = File::Spec->splitpath($f);
+ $id =~ s{\..*$}{};
+ unless (defined $meta->{photo}->{$id}) {
+ print "$id: removing\n";
+ unlink $f;
+ }
+}
+
print "Writing meta-data\n";
$gal->write_meta($photo_meta, $meta);