sub error {
print STDERR $_[1], "\n";
}
+sub logger {
+}
package main;
use Sesse::pr0n::Common;
if (!$regen_mipmaps) {
@files = grep { !/mipmap/ } @files;
}
- my @bothres = ();
- my @boxres = ();
my @noboxres = ();
my $any_old = 0;
for my $c (@files) {
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', 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', sort_res(@noboxres));
- }
- if (scalar @boxres > 0) {
- Sesse::pr0n::Common::ensure_cached($r, $ref->{'filename'}, $id, $ref->{'width'}, $ref->{'height'}, 'box', 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");