$real_show_last = $pdfweb::config::show_last;
}
+# This is probably the simplest place to clean up files that we no longer
+# need having around.
+for my $t (@thumbnails[$pdfweb::config::show_last..$#thumbnails]) {
+ if (-M $t > $pdfweb::config::minimum_age) {
+ (my $base = $t) =~ s/\.png$//;
+ my @to_delete = <$base*>;
+
+ warn "Deleting " . join(', ', @to_delete);
+ unlink @to_delete;
+ }
+}
+
# Sorry, no HTML templating. I didn't want to pull in yet another
# dependency :-)
close DESC;
if (length($desc) > 30) {
- $desc = substr($desc, 0, 30) . " ...";
+ # Is this <abbr> abuse?
+ $desc = HTML::Entities::encode_entities(substr($desc, 0, 30)) . " <abbr title=\"" .
+ HTML::Entities::encode_entities($desc)
+ . "\">...</abbr>";
+ } else {
+ $desc = HTML::Entities::encode_entities($desc);
}
- $desc = HTML::Entities::encode_entities($desc);
my $time = (stat($t))[9];
my $date = POSIX::strftime("%Y-%m-%d %H:%M", localtime($time));