In update-image-cache, do not fail silently on unlink.

[pr0n] / perl / update-image-cache.pl

diff --git a/perl/update-image-cache.pl b/perl/update-image-cache.pl
index 3857ae22db4918d3124a1d9e64c5e55a7d4b23fe..0ed6931bfe63ca4a2fcf648fa3e03202d765360b 100755 (executable)
--- a/perl/update-image-cache.pl
+++ b/perl/update-image-cache.pl
@@ -51,6 +51,8 @@ sub warn {
 sub error {
        print STDERR $_[1], "\n";
 }
 sub error {
        print STDERR $_[1], "\n";
 }

+sub logger {
+}

 package main;
 use Sesse::pr0n::Common;
 
 package main;
 use Sesse::pr0n::Common;
 


@@ -116,7 +118,7 @@ while (my $ref = $q->fetchrow_hashref) {
                }
        }
        next unless $any_old;
                }
        }
        next unless $any_old;

-       unlink (@files);
+       unlink (@files) or die "Could not delete: $!";

        if (scalar @noboxres > 0) {
                Sesse::pr0n::Common::ensure_cached($r, $ref->{'filename'}, $id, $ref->{'width'}, $ref->{'height'}, sort_res(@noboxres));
        }
        if (scalar @noboxres > 0) {
                Sesse::pr0n::Common::ensure_cached($r, $ref->{'filename'}, $id, $ref->{'width'}, $ref->{'height'}, sort_res(@noboxres));
        }