/usr/bin/wg-thumbnailer is in webgui 7.9.33-1.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 | #!/usr/bin/perl
#-------------------------------------------------------------------
# WebGUI is Copyright 2001-2009 Plain Black Corporation.
#-------------------------------------------------------------------
# Please read the legal notices (docs/legal.txt) and the license
# (docs/license.txt) that came with this distribution before using
# this software.
#-------------------------------------------------------------------
# http://www.plainblack.com info@plainblack.com
#-------------------------------------------------------------------
use strict;
use File::Basename ();
use File::Spec;
my $webguiRoot;
BEGIN {
$webguiRoot = '/usr/share/webgui';
unshift @INC, File::Spec->catdir($webguiRoot, 'lib');
}
#-----------------------------------------
# A little utility to generate WebGUI
# thumbnails.
#-----------------------------------------
use File::stat;
use File::Find ();
use Getopt::Long;
use Pod::Usage;
use Image::Magick;
use WebGUI::Utility;
my $thumbnailSize;
my $onlyMissingThumbnails;
my $help;
my $path;
my $ok = GetOptions(
'size=i'=>\$thumbnailSize,
'missing'=>\$onlyMissingThumbnails,
'help'=>\$help,
'path=s'=>\$path
);
pod2usage( verbose => 2 ) if $help;
pod2usage() unless $path;
$thumbnailSize ||= 50; ##set default
File::Find::find(\&findThumbs, $path);
#-----------------------------------------
sub findThumbs {
##Remember, by default we are chdir'ed to the directory with the files in it.
##Skip directories
return if -d $_;
##Only Thumbnail files that we should.
return unless shouldThumbnail($_);
createThumbnail($_, $File::Find::dir);
return 1; ##Just for cleanliness
}
#-----------------------------------------
# createThumbnail(filename,path)
#-----------------------------------------
sub createThumbnail {
my ($image, $x, $y, $r, $n, $type);
my ($fileName, $fileDir) = @_;
print "Nailing: $fileDir/$fileName\n";
$image = Image::Magick->new;
$image->Read($fileName);
($x, $y) = $image->Get('width','height');
$r = $x>$y ? $x / $thumbnailSize : $y / $thumbnailSize;
$image->Scale(width=>($x/$r),height=>($y/$r)) if ($r > 0);
if (isIn($type, qw(tif tiff bmp))) {
$image->Write('thumb-'.$fileName.'.png');
} else {
$image->Write($_[1].'/thumb-'.$fileName);
}
}
sub shouldThumbnail {
my ($fileName) = @_;
my $fileType = getType($fileName);
##I am a thumbnail, skip me
return 0 if $fileName =~ m/thumb-/;
##I am not a graphics file, skip me
return 0 if !isIn($fileType, qw(jpg jpeg gif png tif tiff bmp));
##My thumbnail already exists and I was told not to do it again
return 0 if ($onlyMissingThumbnails && -e 'thumb-'.$fileName);
return 1;
}
#-----------------------------------------
# getType(filename)
#-----------------------------------------
sub getType {
my ($fileName) = @_;
my ($extension) = $fileName =~ m/(\w+)$/;
return lc($extension);
}
__END__
=head1 NAME
thumbnailer - Create thumbnails for WebGUI's uploaded graphic files
=head1 SYNOPSIS
thumbnailer --path path
[--size thumbnailSize]
[--missing]
thumbnailer --help
=head1 DESCRIPTION
This WebGUI utility script generates thumbnails for WebGUI's uploaded
graphic files. The script finds all the graphic files recursively
starting from the specified path; it will skip those files that already
have thumbnails, and create PNG thumbnails for the rest.
Files with JPG, JPEG, GIF, PNG, TIF, TIFF and BMP extensions are
regarded as graphic files.
The thumbnails are created using L<Image::Magick>
for image transformations.
=over
=item B<--path path>
Specifies the absolute B<path> to WebGUI's uploads directory.
This parameter is required.
=item B<--size thumbSize>
Specify the size in pixels of the largest dimension of the thumbanils.
If left unspecified, it defaults to 50 pixels.
=item B<--missing>
Use this option to create thumbnails only for those images that are
missing thumbnails.
=item B<--help>
Shows this documentation, then exits.
=back
=head1 AUTHOR
Copyright 2001-2009 Plain Black Corporation.
=cut
|