X-Git-Url: http://mj.ucw.cz/gitweb/?a=blobdiff_plain;f=gal2%2Fbin%2Fgal-gen;h=94c291b5da8a198ef5106f067bdfaca413d445d6;hb=ddef16d56ceb08e6916bf8195a326b545a965164;hp=6c767d83bec756f67d5c3119435c6fd6cc5314cb;hpb=2a26a73a91a5debcd879f59ae578d3a637bb82ed;p=gallery.git

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