diff options
Diffstat (limited to 'include')
-rwxr-xr-x | include/gen-xhtml-thumbnails | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/include/gen-xhtml-thumbnails b/include/gen-xhtml-thumbnails index ee8087a..220e4fc 100755 --- a/include/gen-xhtml-thumbnails +++ b/include/gen-xhtml-thumbnails @@ -27,7 +27,7 @@ sub print_progress { $| = 1; open(my $index, '>', $indexfile); -print $index <<ficken; +print $index <<EOD; <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN" "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd"> <html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en"> @@ -37,7 +37,7 @@ print $index <<ficken; <link rel="stylesheet" type="text/css" href="foo.css"/> </head> <body><div> -ficken +EOD if (! -d $thumbdir) { mkdir($thumbdir) or die("cannot create $thumbdir: $!"); @@ -51,10 +51,10 @@ closedir($dirhandle); print "Generating thumbnails [ - cached | + generated ]\n"; -foreach $file (@files) { -print $index <<ficken; +foreach $file (sort(@files)) { +print $index <<EOD; <a href="$file"><img src=".thumbs/$file"/></a> -ficken +EOD print_progress; $number++; @@ -76,10 +76,10 @@ ficken } print "\n"; -print $index <<ficken; +print $index <<EOD; </div></body> </html> -ficken +EOD close($index); chmod(0644, $indexfile); |