From 81c765319249d86c7cbeb2c57d4a39dffb0f98c9 Mon Sep 17 00:00:00 2001 From: Daniel Friesel Date: Mon, 28 Dec 2009 11:57:30 +0100 Subject: Move gen-xhtml-thumbnails to bin/ --- bin/gen-xhtml-thumbnails | 124 +++++++++++++++++++++++++++++++++++++++++++ include/gen-xhtml-thumbnails | 124 ------------------------------------------- 2 files changed, 124 insertions(+), 124 deletions(-) create mode 100755 bin/gen-xhtml-thumbnails delete mode 100755 include/gen-xhtml-thumbnails diff --git a/bin/gen-xhtml-thumbnails b/bin/gen-xhtml-thumbnails new file mode 100755 index 0000000..7b25023 --- /dev/null +++ b/bin/gen-xhtml-thumbnails @@ -0,0 +1,124 @@ +#!/usr/bin/perl +# Copyright © 2009 by Daniel Friesel +# License: WTFPL +use strict; +use warnings; +use Image::Imlib2; +use constant { + DEFAULT_FILEMODE => oct(644), + THUMB_MAX_DIM => 150, + THUMB_QUALITY => 60, +}; + +my $directory = shift || '.'; +my $thumbdir = "$directory/.thumbs"; +my $indexfile = "$directory/index.xhtml"; +my ($dx, $dy); +my @files; +my $number = 0; +local $| = 1; + +sub print_progress { + if (($number % 60) == 0) { + if ($number) { + printf(" %4d/%d\n", $number, scalar(@files)); + } + printf('[%3d%%] ', $number * 100 / @files); + } elsif (($number % 10) == 0) { + print ' '; + } + return; +} + +open(my $index, '>', $indexfile) or die("Cannot open $indexfile for writing: $!"); + +print $index <<'EOD'; + + + + + + +

+EOD + +if (! -d $thumbdir) { + mkdir($thumbdir) or die("cannot create $thumbdir: $!"); +} + +opendir(my $dirhandle, $directory) or die("Cannot open directory $directory: $!"); + +foreach my $file (readdir($dirhandle)) { + if ($file =~ / \. ( png | jp e? g ) $ /ix) { + push(@files, $file); + } +} + +closedir($dirhandle); + +print "Generating thumbnails [ - cached | + generated ]\n"; + +foreach my $file (sort(@files)) { + my $image = Image::Imlib2->load($file); + my $thumb; + + printf {$index} ( + '

', + THUMB_MAX_DIM * 1.1, + THUMB_MAX_DIM * 1.1, + ); + print {$index} " $\"$file\"$

\n"; + print_progress; + $number++; + + if (-e "$thumbdir/$file") { + print '-'; + next; + } + + ($dx, $dy) = ($image->width, $image->height); + + if ($dx > $dy) { + $thumb = $image->create_scaled_image(THUMB_MAX_DIM, 0); + } else { + $thumb = $image->create_scaled_image(0, THUMB_MAX_DIM); + } + + $thumb->set_quality(THUMB_QUALITY); + $thumb->save("$thumbdir/$file"); + + chmod(DEFAULT_FILEMODE, "$thumbdir/$file"); + print '+'; +} +print "\n"; + +print $index <<'EOD'; +

+ +EOD + +close($index) or die("Cannot close $indexfile: $!"); +chmod(DEFAULT_FILEMODE, $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. diff --git a/include/gen-xhtml-thumbnails b/include/gen-xhtml-thumbnails deleted file mode 100755 index 7b25023..0000000 --- a/include/gen-xhtml-thumbnails +++ /dev/null @@ -1,124 +0,0 @@ -#!/usr/bin/perl -# Copyright © 2009 by Daniel Friesel -# License: WTFPL -use strict; -use warnings; -use Image::Imlib2; -use constant { - DEFAULT_FILEMODE => oct(644), - THUMB_MAX_DIM => 150, - THUMB_QUALITY => 60, -}; - -my $directory = shift || '.'; -my $thumbdir = "$directory/.thumbs"; -my $indexfile = "$directory/index.xhtml"; -my ($dx, $dy); -my @files; -my $number = 0; -local $| = 1; - -sub print_progress { - if (($number % 60) == 0) { - if ($number) { - printf(" %4d/%d\n", $number, scalar(@files)); - } - printf('[%3d%%] ', $number * 100 / @files); - } elsif (($number % 10) == 0) { - print ' '; - } - return; -} - -open(my $index, '>', $indexfile) or die("Cannot open $indexfile for writing: $!"); - -print $index <<'EOD'; - - - - - - -

-EOD - -if (! -d $thumbdir) { - mkdir($thumbdir) or die("cannot create $thumbdir: $!"); -} - -opendir(my $dirhandle, $directory) or die("Cannot open directory $directory: $!"); - -foreach my $file (readdir($dirhandle)) { - if ($file =~ / \. ( png | jp e? g ) $ /ix) { - push(@files, $file); - } -} - -closedir($dirhandle); - -print "Generating thumbnails [ - cached | + generated ]\n"; - -foreach my $file (sort(@files)) { - my $image = Image::Imlib2->load($file); - my $thumb; - - printf {$index} ( - '

', - THUMB_MAX_DIM * 1.1, - THUMB_MAX_DIM * 1.1, - ); - print {$index} " $\"$file\"$

\n"; - print_progress; - $number++; - - if (-e "$thumbdir/$file") { - print '-'; - next; - } - - ($dx, $dy) = ($image->width, $image->height); - - if ($dx > $dy) { - $thumb = $image->create_scaled_image(THUMB_MAX_DIM, 0); - } else { - $thumb = $image->create_scaled_image(0, THUMB_MAX_DIM); - } - - $thumb->set_quality(THUMB_QUALITY); - $thumb->save("$thumbdir/$file"); - - chmod(DEFAULT_FILEMODE, "$thumbdir/$file"); - print '+'; -} -print "\n"; - -print $index <<'EOD'; -

- -EOD - -close($index) or die("Cannot close $indexfile: $!"); -chmod(DEFAULT_FILEMODE, $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. -- cgit v1.2.3