# Directory for PDF output.
our $outputdir = "/home/cassarossa/itk/sesse/public_html/pdf/output";
+# How many thumbnails to show in the “last uploaded” page.
+our $show_last = 20;
+
1;
use warnings;
require './config.pm';
-my $num_last = 20;
-
# Find the latest N PNG thumbnails. Somewhat ineffective, but I assume
# we'll get to that later :-)
my @thumbnails = (sort { -M $a <=> -M $b } <$pdfweb::config::outputdir/*.png>);
-my $real_num_last = scalar @thumbnails;
-if ($real_num_last > $num_last) {
- $real_num_last = $num_last;
+my $real_show_last = scalar @thumbnails;
+if ($real_show_last > $pdfweb::config::show_last) {
+ $real_show_last = $pdfweb::config::show_last;
}
# Sorry, no HTML templating. I didn't want to pull in yet another
<meta name="MSSmartTagsPreventParsing" content="TRUE" />
</head>
<body>
- <h1>Last $real_num_last uploads</h1>
+ <h1>Last $real_show_last uploads</h1>
<p><a href="http://pdf.sesse.net/">Back to the converter</a></p>
EOF
-for my $t (@thumbnails[0..$num_last-1]) {
+for my $t (@thumbnails[0..$pdfweb::config::show_last-1]) {
(my $descname = $t) =~ s/\.png$/.desc/;
open DESC, "<$descname"
or next;