From 0fc1f207cd081eec3d0eee93172372b409f74436 Mon Sep 17 00:00:00 2001
From: Martin Mares <mj@ucw.cz>
Date: Thu, 27 Dec 2012 23:16:25 +0100
Subject: [PATCH] Gallery2: Let gal gen remove stale files

---
 gal2/bin/gal-gen | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/gal2/bin/gal-gen b/gal2/bin/gal-gen
index 6c767d8..94c291b 100755
--- a/gal2/bin/gal-gen
+++ b/gal2/bin/gal-gen
@@ -119,5 +119,15 @@ for my $f (@$orig_list) {
 	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);
-- 
2.39.2