ficken if (! -d $thumbdir) { mkdir($thumbdir) or die("cannot create $thumbdir: $!"); } opendir(my $dirhandle, $directory) or die("Cannot open $directory: $!"); foreach $file (readdir($dirhandle)) { push(@files, $file) if ($file =~ /\.(png|jpe?g)$/i); } closedir($dirhandle); print "Generating thumbnails [ - cached | + generated ]\n"; foreach $file (@files) { print $index <

ficken print_progress; $number++; if (-e "$thumbdir/$file") { print '-'; next; } $image = Image::Imlib2->load($file); ($dx, $dy) = ($image->width, $image->height); if ($dx > $dy) { $thumb = $image->create_scaled_image(150, 0); } else { $thumb = $image->create_scaled_image(0, 150); } $thumb->set_quality(60); $thumb->save("$thumbdir/$file"); chmod(0644, "$thumbdir/$file"); print '+'; } print "\n"; print $index < ficken close($index); chmod(0644, $indexfile); __END__ =head1 NAME gen-xhtml-thumbnails - Generate Thumbnails + Index for a set of images =head1 SYNOPSIS B [I] =head1 DESCRIPTION gen-xhtml-thumbnails will create an F with a list (thumbnails) of all images found if I; the thumbnails will link to the images. The F file will always be created in I. The thumbnails will be saved in F<.thumbs>, also in I. If I is not specified, the current directory is used. Note that only the images in the directory itself will be processed, recursion is not supported.