1 files changed, 15 insertions, 0 deletions
diff --git a/tools/clean-up-thumbnail-cache.sh b/tools/clean-up-thumbnail-cache.sh
new file mode 100755
index 0000000..490e317
--- /dev/null
+++ b/tools/clean-up-thumbnail-cache.sh
@@ -0,0 +1,15 @@
+#!/bin/sh -e
+# Remove thumbnails with URIs pointing to at this moment non-existing files.
+make pnginfo
+
+pnginfo=$(pwd)/pnginfo cache_home=${XDG_CACHE_HOME:-$HOME/.cache}
+for size in normal large x-large xx-large; do
+	cd "$cache_home/thumbnails/$size" 2>/dev/null || continue
+	find . -name '*.png' -print0 | PNGINFO_SKIP_TRAILING=1 xargs -0 "$pnginfo" \
+		| jq -r '.info.texts."Thumb::URI"' | grep '^file://' \
+		| grep -v '^file:///run/media/[^/]*/NIKON/' \
+		| perl -MURI -MURI::Escape -MDigest::MD5 -lne \
+			'print Digest::MD5->new()->add($_)->hexdigest . ".png"
+				if !stat(uri_unescape(URI->new($_)->path))' \
+		| xargs rm
+done