Apache-Gallery
view release on metacpan or search on metacpan
lib/Apache/Gallery.pm view on Meta::CPAN
}
);
}
# Debian bug #619625 <http://bugs.debian.org/619625>
elsif (-f $thumbfilename && $thumbfilename =~ /$doc_pattern/i && $thumbfilename !~ /$img_pattern/i && ! -e $thumbfilename . ".ignore") {
my $type = lc($1);
my $stat = stat($thumbfilename);
my $size = $stat->size;
my $filetype;
if ($thumbfilename =~ m/\.(mpe?g|avi|mov|asf|wmv)$/i) {
$filetype = "video-$type";
} elsif ($thumbfilename =~ m/\.(txt|html?)$/i) {
$filetype = "text-$type";
} elsif ($thumbfilename =~ m/\.(mp3|ogg|wav)$/i) {
$filetype = "sound-$type";
} elsif ($thumbfilename =~ m/$doc_pattern/i) {
$filetype = "application-$type";
} else {
$filetype = "unknown";
}
# Debian bug #348724 <http://bugs.debian.org/348724>
# not images
my $filetitle = $file;
$filetitle =~ s/_/ /g if $r->dir_config('GalleryUnderscoresToSpaces');
$tpl_vars{FILES} .=
$templates{file}->fill_in(HASH => {%tpl_vars,
FILEURL => uri_escape($fileurl, $escape_rule),
ALT => "Size: $size Bytes",
FILE => $filetitle,
TYPE => $type,
FILETYPE => $filetype,
}
);
}
# Debian bug #619625 <http://bugs.debian.org/619625>
elsif (-f $thumbfilename && ! -e $thumbfilename . ".ignore") {
my ($width, $height, $type) = imgsize($thumbfilename);
next if $type eq 'Data stream is not a known image file format';
my @filetypes = qw(JPG TIF PNG PPM GIF);
next unless (grep $type eq $_, @filetypes);
my ($thumbnailwidth, $thumbnailheight) = get_thumbnailsize($r, $width, $height);
my $imageinfo = get_imageinfo($r, $thumbfilename, $type, $width, $height);
my $cached = get_scaled_picture_name($thumbfilename, $thumbnailwidth, $thumbnailheight);
my $rotate = readfile_getnum($r, $imageinfo, $thumbfilename.".rotate");
# Debian bug #348724 <http://bugs.debian.org/348724>
# HTML <img> tag, alt attribute
my $filetitle = $file;
$filetitle =~ s/_/ /g if $r->dir_config('GalleryUnderscoresToSpaces');
my %file_vars = (FILEURL => uri_escape($fileurl, $escape_rule),
FILE => $filetitle,
DATE => $imageinfo->{DateTimeOriginal} ? $imageinfo->{DateTimeOriginal} : '', # should this really be a stat of the file instead of ''?
SRC => uri_escape($uri."/.cache/$cached", $escape_rule),
HEIGHT => (grep($rotate==$_, (1, 3)) ? $thumbnailwidth : $thumbnailheight),
WIDTH => (grep($rotate==$_, (1, 3)) ? $thumbnailheight : $thumbnailwidth),
SELECT => $select_mode?'<input type="checkbox" name="selection" value="'.$file.'"> ':'',);
$tpl_vars{FILES} .= $templates{picture}->fill_in(HASH => {%tpl_vars,
%file_vars,
},
);
if ($media_rss_enabled) {
my ($content_image_width, undef, $content_image_height) = get_image_display_size($cgi, $r, $width, $height);
my %item_vars = (
THUMBNAIL => uri_escape($uri."/.cache/$cached", $escape_rule),
LINK => uri_escape($fileurl, $escape_rule),
TITLE => $file,
CONTENT => uri_escape($uri."/.cache/".$content_image_width."x".$content_image_height."-".$file, $escape_rule)
);
$tpl_vars{ITEMS} .= $templates{rss_item}->fill_in(HASH => {
%item_vars
});
}
}
}
}
else {
$tpl_vars{FILES} = "No files found";
$tpl_vars{BROWSELINKS} = "";
}
# Generate prev and next directory menu items
$filename =~ m/(.*)\/.*?$/;
my $parent_filename = $1;
$r->document_root =~ m/(.*)\/$/;
my $root_path = $1;
print STDERR "$filename vs $root_path\n";
if ($filename ne $root_path) {
unless (opendir (PARENT_DIR, $parent_filename)) {
show_error ($r, 500, $!, "Unable to access parent directory $parent_filename: $!");
return $::MP2 ? Apache2::Const::OK() : Apache::Constants::OK();
}
# Debian bug #619625 <http://bugs.debian.org/619625>
my @neighbour_directories = grep { !/^\./ && -d "$parent_filename/$_" && ! -e "$parent_filename/$_" . ".ignore" } readdir (PARENT_DIR);
my $dirsortby;
if (defined($r->dir_config('GalleryDirSortBy'))) {
$dirsortby=$r->dir_config('GalleryDirSortBy');
} else {
$dirsortby=$r->dir_config('GallerySortBy');
}
if ($dirsortby && $dirsortby =~ m/^(size|atime|mtime|ctime)$/) {
@neighbour_directories = map(/^\d+ (.*)/, sort map(stat("$parent_filename/$_")->$dirsortby()." $_", @neighbour_directories));
} else {
@neighbour_directories = sort @neighbour_directories;
}
closedir(PARENT_DIR);
my $neightbour_counter = 0;
foreach my $neighbour_directory (@neighbour_directories) {
lib/Apache/Gallery.pm view on Meta::CPAN
}
if ($prevpicture and $displayprev) {
my ($orig_width, $orig_height, $type) = imgsize($path.$prevpicture);
my ($thumbnailwidth, $thumbnailheight) = get_thumbnailsize($r, $orig_width, $orig_height);
my $imageinfo = get_imageinfo($r, $path.$prevpicture, $type, $orig_width, $orig_height);
my $cached = get_scaled_picture_name($path.$prevpicture, $thumbnailwidth, $thumbnailheight);
my %nav_vars;
$nav_vars{URL} = uri_escape($prevpicture, $escape_rule);
$nav_vars{FILENAME} = $prevpicture;
$nav_vars{WIDTH} = $width;
$nav_vars{PICTURE} = uri_escape(".cache/$cached", $escape_rule);
$nav_vars{DIRECTION} = "« <u>p</u>rev";
$nav_vars{ACCESSKEY} = "P";
$tpl_vars{BACK} = $templates{navpicture}->fill_in(HASH => \%nav_vars);
}
else {
$tpl_vars{BACK} = " ";
}
$nextpicture = $pictures[$i+1];
if ($r->dir_config("GalleryWrapNavigation")) {
$nextpicture = $pictures[$i == $#pictures ? 0 : $i+1];
}
if ($nextpicture) {
my ($orig_width, $orig_height, $type) = imgsize($path.$nextpicture);
my ($thumbnailwidth, $thumbnailheight) = get_thumbnailsize($r, $orig_width, $orig_height);
my $imageinfo = get_imageinfo($r, $path.$nextpicture, $type, $thumbnailwidth, $thumbnailheight);
my $cached = get_scaled_picture_name($path.$nextpicture, $thumbnailwidth, $thumbnailheight);
my %nav_vars;
$nav_vars{URL} = uri_escape($nextpicture, $escape_rule);
$nav_vars{FILENAME} = $nextpicture;
$nav_vars{WIDTH} = $width;
$nav_vars{PICTURE} = uri_escape(".cache/$cached", $escape_rule);
$nav_vars{DIRECTION} = "<u>n</u>ext »";
$nav_vars{ACCESSKEY} = "N";
$tpl_vars{NEXT} = $templates{navpicture}->fill_in(HASH => \%nav_vars);
$tpl_vars{NEXTURL} = uri_escape($nextpicture, $escape_rule);
}
else {
$tpl_vars{NEXT} = " ";
$tpl_vars{NEXTURL} = '#';
}
}
}
my $foundcomment = 0;
if (-f $path . '/' . $picfilename . '.comment') {
my $comment_ref = get_comment($path . '/' . $picfilename . '.comment');
$foundcomment = 1;
$tpl_vars{COMMENT} = $comment_ref->{COMMENT} . '<br />' if $comment_ref->{COMMENT};
$tpl_vars{TITLE} = $comment_ref->{TITLE} if $comment_ref->{TITLE};
} elsif ($r->dir_config('GalleryCommentExifKey')) {
my $comment = decode("utf8", $imageinfo->{$r->dir_config('GalleryCommentExifKey')});
$tpl_vars{COMMENT} = encode("iso-8859-1", $comment);
} else {
$tpl_vars{COMMENT} = '';
}
my @infos = split /, /, $r->dir_config('GalleryInfo') ? $r->dir_config('GalleryInfo') : 'Picture Taken => DateTimeOriginal, Flash => Flash';
my $foundinfo = 0;
my $exifvalues;
foreach (@infos) {
my ($human_key, $exif_key) = (split " => ")[0,1];
my $value = $imageinfo->{$human_key};
if (defined($value)) {
$foundinfo = 1;
if ($exif_mode eq 'namevalue') {
my %info_vars;
$info_vars{KEY} = $human_key;
$info_vars{VALUE} = $value;
$tpl_vars{INFO} .= $templates{info}->fill_in(HASH => \%info_vars);
}
if ($exif_mode eq 'variables') {
$tpl_vars{"EXIF_".uc($exif_key)} = $value;
}
if ($exif_mode eq 'values') {
$exifvalues .= "| ".$value." ";
}
}
}
if ($exif_mode eq 'values') {
if (defined($exifvalues)) {
$tpl_vars{EXIFVALUES} = $exifvalues;
}
else {
$tpl_vars{EXIFVALUES} = "";
}
}
if ($foundcomment and !$foundinfo) {
$tpl_vars{INFO} = "";
}
if ($exif_mode ne 'namevalue') {
$tpl_vars{INFO} = "";
}
if ($exif_mode eq 'namevalue' && $foundinfo or $foundcomment) {
$tpl_vars{PICTUREINFO} = $templates{pictureinfo}->fill_in(HASH => \%tpl_vars);
unless (defined($exifvalues)) {
$tpl_vars{EXIFVALUES} = "";
}
}
else {
$tpl_vars{PICTUREINFO} = $templates{nopictureinfo}->fill_in(HASH => \%tpl_vars);
}
# Fill in sizes and determine if any are smaller than the
lib/Apache/Gallery.pm view on Meta::CPAN
return $::MP2 ? Apache2::Const::OK() : Apache::Constants::OK();
}
$width = $cgi->param('width');
my $cookie = new CGI::Cookie(-name => 'GallerySize', -value => $width, -expires => '+6M');
$r->headers_out->{'Set-Cookie'} = $cookie;
} elsif ($cookies{'GallerySize'} && (grep $cookies{'GallerySize'}->value == $_, @sizes)) {
$width = $cookies{'GallerySize'}->value;
} else {
$width = $sizes[0];
}
my $scale;
my $image_width;
if ($orig_width<$orig_height) {
$scale = ($orig_height ? $width/$orig_height: 1);
$image_width=$width*$orig_width/$orig_height;
}
else {
$scale = ($orig_width ? $width/$orig_width : 1);
$image_width = $width;
}
my $height = $orig_height * $scale;
$image_width = floor($image_width);
$width = floor($width);
$height = floor($height);
return ($image_width, $width, $height, $original_size);
}
sub get_imageinfo {
my ($r, $file, $type, $width, $height) = @_;
my $imageinfo = {};
if ($type eq 'Data stream is not a known image file format') {
# should never be reached, this is supposed to be handled outside of here
log_error("Something was fishy with the type of the file $file\n");
} else {
# Some files, like TIFF, PNG, GIF do not have EXIF info
# embedded but use .thm files instead.
$imageinfo = get_imageinfo_from_thm_file($file, $width, $height);
# If there is no .thm file and our file is a JPEG file we try to extract the EXIf
# info using Image::Info
unless (defined($imageinfo) && (grep $type eq $_, qw(JPG))) {
# Only for files that natively keep the EXIF info in the same file
$imageinfo = image_info($file);
}
}
unless (defined($imageinfo->{width}) and defined($imageinfo->{height})) {
$imageinfo->{width} = $width;
$imageinfo->{height} = $height;
}
my @infos = split /, /, $r->dir_config('GalleryInfo') ? $r->dir_config('GalleryInfo') : 'Picture Taken => DateTimeOriginal, Flash => Flash';
foreach (@infos) {
my ($human_key, $exif_key) = (split " => ")[0,1];
if (defined($exif_key) && defined($imageinfo->{$exif_key})) {
my $value = "";
if (ref($imageinfo->{$exif_key}) eq 'Image::TIFF::Rational') {
$value = $imageinfo->{$exif_key}->as_string;
}
elsif (ref($imageinfo->{$exif_key}) eq 'ARRAY') {
foreach my $element (@{$imageinfo->{$exif_key}}) {
if (ref($element) eq 'ARRAY') {
foreach (@{$element}) {
$value .= $_ . ' ';
}
}
elsif (ref($element) eq 'HASH') {
$value .= "<br />{ ";
foreach (sort keys %{$element}) {
$value .= "$_ = " . $element->{$_} . ' ';
}
$value .= "} ";
}
else {
$value .= $element;
}
$value .= ' ';
}
}
else {
my $exif_value = $imageinfo->{$exif_key};
if ($human_key eq 'Flash' && $exif_value =~ m/\d/) {
my %flashmodes = (
"0" => "No",
"1" => "Yes",
"9" => "Yes",
"16" => "No (Compulsory) Should be External Flash",
"17" => "Yes (External)",
"24" => "No",
"25" => "Yes (Auto)",
"73" => "Yes (Compulsory, Red Eye Reducing)",
"89" => "Yes (Auto, Red Eye Reducing)"
);
$exif_value = defined $flashmodes{$exif_value} ? $flashmodes{$exif_value} : 'unknown flash mode';
}
$value = $exif_value;
}
if ($exif_key eq 'MeteringMode') {
my $exif_value = $imageinfo->{$exif_key};
if ($exif_value =~ /^\d+$/) {
my %meteringmodes = (
'0' => 'unknown',
'1' => 'Average',
'2' => 'CenterWeightedAverage',
'3' => 'Spot',
'4' => 'MultiSpot',
'5' => 'Pattern',
'6' => 'Partial',
'255' => 'Other'
);
$exif_value = defined $meteringmodes{$exif_value} ? $meteringmodes{$exif_value} : 'unknown metering mode';
lib/Apache/Gallery.pm view on Meta::CPAN
} else {
$value = int($value + 0.5) . "mm";
}
}
}
if ($exif_key eq 'ShutterSpeedValue') {
if ($value =~ /^((?:\-)?\d+)\/(\d+)$/) {
$value = eval { $1 / $2 };
if ($@) {
$value = $@;
} else {
eval {
$value = 1/(exp($value*log(2)));
if ($value < 1) {
$value = "1/" . (int((1/$value)));
} else {
$value = int($value*10)/10;
}
};
if ($@) {
$value = $@;
} else {
$value = $value . " sec";
}
}
}
}
if ($exif_key eq 'ApertureValue') {
if ($value =~ /^(\d+)\/(\d+)$/) {
$value = eval { $1 / $2 };
if ($@) {
$value = $@;
} else {
# poor man's rounding
$value = int(exp($value*log(2)*0.5)*10)/10;
$value = "f" . $value;
}
}
}
if ($exif_key eq 'FNumber') {
if ($value =~ /^(\d+)\/(\d+)$/) {
$value = eval { $1 / $2 };
if ($@) {
$value = $@;
} else {
$value = int($value*10+0.5)/10;
$value = "f" . $value;
}
}
}
$imageinfo->{$human_key} = $value;
}
}
if ($r->dir_config('GalleryUseFileDate') &&
($r->dir_config('GalleryUseFileDate') eq '1'
|| !$imageinfo->{"Picture Taken"} )) {
my $st = stat($file);
$imageinfo->{"DateTimeOriginal"} = $imageinfo->{"Picture Taken"} = scalar localtime($st->mtime) if $st;
}
return $imageinfo;
}
sub get_imageinfo_from_thm_file {
my ($file, $width, $height) = @_;
my $imageinfo = undef;
# Windows based file extensions are often .THM, so check
# for both .thm and .THM
my $unix_file = $file;
my $windows_file = $file;
$unix_file =~ s/\.(\w+)$/.thm/;
$windows_file =~ s/\.(\w+)$/.THM/;
if (-e $unix_file && -f $unix_file && -r $unix_file) {
$imageinfo = image_info($unix_file);
$imageinfo->{width} = $width;
$imageinfo->{height} = $height;
}
elsif (-e $windows_file && -f $windows_file && -r $windows_file) {
$imageinfo = image_info($windows_file);
$imageinfo->{width} = $width;
$imageinfo->{height} = $height;
}
return $imageinfo;
}
sub readfile_getnum {
my ($r, $imageinfo, $filename) = @_;
my $rotate = 0;
print STDERR "orientation: ".$imageinfo->{Orientation}."\n";
# Check to see if the image contains the Orientation EXIF key,
# but allow user to override using rotate
if (!defined($r->dir_config("GalleryAutoRotate"))
|| $r->dir_config("GalleryAutoRotate") eq "1") {
if (defined($imageinfo->{Orientation})) {
print STDERR $imageinfo->{Orientation}."\n";
if ($imageinfo->{Orientation} eq 'right_top') {
$rotate=1;
}
elsif ($imageinfo->{Orientation} eq 'left_bot') {
$rotate=3;
}
}
}
if (open(FH, "<$filename")) {
my $temp = <FH>;
chomp($temp);
close(FH);
unless ($temp =~ /^\d$/) {
$rotate = 0;
}
lib/Apache/Gallery.pm view on Meta::CPAN
=head1 DESCRIPTION
Apache::Gallery creates an thumbnail index of each directory and allows
viewing pictures in different resolutions. Pictures are resized on the
fly and cached. The gallery can be configured and customized in many ways
and a custom copyright image can be added to all the images without
modifying the original.
=head1 CONFIGURATION
In your httpd.conf you set the global options for the gallery. You can
also override each of the options in .htaccess files in your gallery
directories.
The options are set in the httpd.conf/.htaccess file using the syntax:
B<PerlSetVar OptionName 'value'>
Example: B<PerlSetVar GalleryCacheDir '/var/cache/www/'>
=over 4
=item B<GalleryAutoRotate>
Some cameras, like the Canon G3, can detect the orientation of a
the pictures you take and will save this information in the
'Orientation' EXIF field. Apache::Gallery will then automatically
rotate your images.
This behavior is default but can be disabled by setting GalleryAutoRotate
to 0.
=item B<GalleryCacheDir>
Directory where Apache::Gallery should create its cache with scaled
pictures. The default is /var/cache/www/ . Here, a directory for each
virtualhost or location will be created automatically. Make sure your
webserver has write access to the CacheDir.
=item B<GalleryTemplateDir>
Full path to the directory where you placed the templates. This option
can be used both in your global configuration and in .htaccess files,
this way you can have different layouts in different parts of your
gallery.
No default value, this option is required.
=item B<GalleryInfo>
With this option you can define which EXIF information you would like
to present from the image. The format is: '<MyName => KeyInEXIF,
MyOtherName => OtherKeyInEXIF'
Examples of keys: B<ShutterSpeedValue>, B<ApertureValue>, B<SubjectDistance>,
and B<Camera>
You can view all the keys from the EXIF header using this perl-oneliner:
perl C<-e> 'use Data::Dumper; use Image::Info qw(image_info); print Dumper(image_info(shift));' filename.jpg
Default is: 'Picture Taken => DateTimeOriginal, Flash => Flash'
=item B<GallerySizes>
Defines which widths images can be scaled to. Images cannot be
scaled to other widths than the ones you define with this option.
The default is '640 800 1024 1600'
=item B<GalleryThumbnailSize>
Defines the width and height of the thumbnail images.
Defaults to '100x75'
=item B<GalleryThumbnailSizeLS>
If set to '1', B<GalleryThumbnailSize> is the long and the short side of
the thumbnail image instead of the width and height.
Defaults to '0'.
=item B<GalleryCopyrightImage>
Image you want to blend into your images in the lower right
corner. This could be a transparent png saying "copyright
my name 2001".
Optional.
=item B<GalleryWrapNavigation>
Make the navigation in the picture view wrap around (So Next
at the end displays the first picture, etc.)
Set to 1 or 0, default is 0
=item B<GalleryAllowOriginal>
Allow the user to download the Original picture without
resizing or putting the CopyrightImage on it.
Set to 1 or 0, default is 0
=item B<GallerySlideshowIntervals>
With this option you can configure which intervals can be selected for
a slideshow. The default is '3 5 10 15 30'
=item B<GallerySortBy>
Instead of the default filename ordering you can sort by any
stat attribute. For example size, atime, mtime, ctime.
=item B<GalleryDirSortBy>
Set this variable to sort directories differently than other items,
can be set to size, atime, mtime and ctime; setting any other value
will revert to sorting by name.
=item B<GalleryMemoize>
Cache EXIF data using Memoize - this will make Apache::Gallery faster
when many people access the same images, but it will also cache EXIF
data until the current Apache child dies.
=item B<GalleryUseFileDate>
Set this option to 1 to make A::G show the files timestamp
instead of the EXIF value for "Picture taken".
=item B<GallerySelectionMode>
Enable the selection mode. Select images with checkboxes and
get a list of filenames.
=item B<GalleryEXIFMode>
You can choose how Apache::Gallery should display EXIF info
from your images.
The default setting is 'namevalue'. This setting will make
Apache::Gallery print out the names and values of the EXIF values
you configure with GalleryInfo. The information will be parsed into
$INFO in pictureinfo.tpl.
You can also set it to 'values' which will make A::G parse
the configured values into the var $EXIFVALUES as 'value | value | value'
If you set this option to 'variables' the items you configure in GalleryInfo
will be available to your templates as $EXIF_<KEYNAME> (in all uppercase).
That means that with the default setting "Picture Taken => DateTimeOriginal,
Flash => Flash" you will have the variables $EXIF_DATETIMEORIGINAL and
$EXIF_FLASH available to your templates. You can place them
anywhere you want.
=item B<GalleryRootPath>
Change the location of gallery root. The default is ""
=item B<GalleryRootText>
Change the name that appears as the root element in the menu. The
default is "root:"
=item B<GalleryMaxThumbnailsPerPage>
This options controls how many thumbnails should be displayed in a
page. It requires $BROWSELINKS to be in the index.tpl template file.
=item B<GalleryImgFile>
Pattern matching the files you want Apache::Gallery to view in the
index as thumbnails.
The default is '\.(jpe?g|png|tiff?|ppm)$'
=item B<GalleryDocFile>
Pattern matching the files you want Apache::Gallery to view in the index
as normal files. All other filetypes will still be served by Apache::Gallery
but are not visible in the index.
The default is '\.(mpe?g|avi|mov|asf|wmv|doc|mp3|ogg|pdf|rtf|wav|dlt|txt|html?|csv|eps)$'
=item B<GalleryTTFDir>
To use the GalleryCopyrightText feature you must set this option to the
directory where your True Type fonts are stored. No default is set.
Example:
PerlSetVar GalleryTTFDir '/usr/share/fonts/'
=item B<GalleryTTFFile>
To use the GalleryCopyrightText feature this option must be set to the
name of the True Type font you wish to use. Example:
PerlSetVar GalleryTTFFile 'verdanab.ttf'
=item B<GalleryTTFSize>
Configure the size of the CopyrightText that will be inserted as
copyright notice in the corner of your pictures.
Example:
PerlSetVar GalleryTTFSize '10'
=item B<GalleryCopyrightText>
( run in 1.241 second using v1.01-cache-2.11-cpan-39bf76dae61 )