Fix an (irrelevant) confusion about addEventListener.

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

diff --git a/perl/update-image-cache.pl b/perl/update-image-cache.pl
index 8a19841edf2e8307e6146efc74fa28fc99c2c0aa..f50d3a0b046b5539d820bbe8365a52dbc398845e 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 logger {
+}
 package main;
 use Sesse::pr0n::Common;
 
@@ -101,8 +103,6 @@ while (my $ref = $q->fetchrow_hashref) {
        if (!$regen_mipmaps) {
                @files = grep { !/mipmap/ } @files;
        }
-       my @bothres = ();
-       my @boxres = ();
        my @noboxres = ();
        my $any_old = 0;
        for my $c (@files) {
@@ -110,24 +110,14 @@ while (my $ref = $q->fetchrow_hashref) {
                if ($mtime < $threshold) {
                        $any_old = 1;
                }
-               if ($c =~ /$id-(\d+)-(\d+)\.jpg/ || $c =~ /$id-(-1)-(-1)\.jpg/) {
-                       push @bothres, [$1, $2];
-               } elsif ($c =~ /$id-(\d+)-(\d+)-nobox\.jpg/ || $c =~ /$id-(-1)-(-1)-nobox\.jpg/) {
+               if ($c =~ /$id-(\d+)-(\d+)-nobox\.jpg/ || $c =~ /$id-(-1)-(-1)-nobox\.jpg/) {
                        push @noboxres, [$1, $2];
-               } elsif ($c =~ /$id-(\d+)-(\d+)-box\.png/ || $c =~ /$id-(-1)-(-1)-box\.png/) {
-                       push @boxres, [$1, $2];
                }
        }
        next unless $any_old;
-       unlink (@files);
-       if (scalar @bothres > 0) {
-               Sesse::pr0n::Common::ensure_cached($r, $ref->{'filename'}, $id, $ref->{'width'}, $ref->{'height'}, 'both', 1, sort_res(@bothres));
-       }
+       unlink (@files) or die "Could not delete: $!";
        if (scalar @noboxres > 0) {
-               Sesse::pr0n::Common::ensure_cached($r, $ref->{'filename'}, $id, $ref->{'width'}, $ref->{'height'}, 'nobox', 1, sort_res(@noboxres));
-       }
-       if (scalar @boxres > 0) {
-               Sesse::pr0n::Common::ensure_cached($r, $ref->{'filename'}, $id, $ref->{'width'}, $ref->{'height'}, 'box', 1, sort_res(@boxres));
+               Sesse::pr0n::Common::ensure_cached($r, $ref->{'filename'}, $id, $ref->{'width'}, $ref->{'height'}, sort_res(@noboxres));
        }
        
        my @newfiles = glob("../cache/$dir/$id-*.jpg");