From: Martin Mares <mj@ucw.cz>
Date: Thu, 27 Dec 2012 22:16:25 +0000 (+0100)
Subject: Gallery2: Let gal gen remove stale files
X-Git-Url: http://mj.ucw.cz/gitweb/?a=commitdiff_plain;h=0fc1f207cd081eec3d0eee93172372b409f74436;p=gallery.git

Gallery2: Let gal gen remove stale files
---

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);