OpenIndex
view release on metacpan or search on metacpan
OpenIndex.pm view on Meta::CPAN
$list{$file}{sizenice} = size_string($list{$file}{size});
$list{$file}{sizenice} =~ s/\s*//;
}
$list{$file}{mod} = (stat _)[9];
$list{$file}{modnice} = ht_time($list{$file}{mod}, "%d-%b-%Y %H:%M", 0);
$list{$file}{modnice} =~ s/\s/ /g;
$list{$file}{mode} = write_mod((stat _)[2]);
$list{$file}{type} = $subr->content_type;
if(($list{$file}{type} =~ m:^image/:o) &&
($cfg->{options} & THUMBNAILS ) &&
Apache->module("Image::Magick")) {
if ($iconfig->{cache_ok}) {
($list{$file}{icon},$list{$file}{width},$list{$file}{height}) = get_thumbnail($r, $file, $list{$file}{mod}, $list{$file}{type}, @accept);
}
}
$list{$file}{height} ||= $cfg->{icon_height};
$list{$file}{width} ||= $cfg->{icon_width};
# icons size might be calculated on the fly and cached...
my $icon = Apache::Icon->new($subr);
$list{$file}{icon} ||= $icon->find;
if (-d _) {
OpenIndex.pm view on Meta::CPAN
}
sub get_thumbnail {
my ($r, $filename, $mod, $content, @accept) = @_;
my $accept = join('|', @accept);
my $dir = $r->filename;
#these should sound better.
my $cachedir = $iconfig->{cache_dir};
my $xresize;
my $yresize;
my $img = Image::Magick->new;
my($imgx, $imgy, $img_size, $img_type) = split(',', $img->Ping($dir . $filename));
#Is the image OK?
return "/icons/broken.gif" unless ($imgx && $imgy);
if (($content =~ /$content/) && ($img_type =~ /JPE?G|GIF|PNG/i)) {
if ($dir =~ /$cachedir\/$/) { #We know that what we'll generate will be seen.
return $filename, $imgx, $imgy #Avoiding recursive thumbnails from Hell
}
return undef if $img_size > $iconfig->{thumb_max_size}; #The image is way too big to try to process...
if(defined $iconfig->{thumb_scale_width} ||
defined $iconfig->{thumb_scale_height}) {
OpenIndex.pm view on Meta::CPAN
__END__
=head1 NAME
Apache::OpenIndex - Perl Open Index manager for a Apache Web server
=head1 SYNOPSIS
PerlModule Apache::Icon
PerlModule Apache::OpenIndex
(PerlModule Apache::Language) optional
(PerlModule Image::Magick) optional
=head1 DESCRIPTION
OpenIndex provides a file manager for a web sites through a web
browser. It is a extensive rewrite of the Apache::AutoIndex.pm
module which in turn was a remake of the autoindex Apache
module. OpenIndex can provide the same functionality as
AutoIndex.pm and can be used to both navigate and manage the web
site.
OpenIndex.pm view on Meta::CPAN
For each directory containing pictures, there will be a
.thumbnails directory created in it that will hold the thumbnails.
Each time the directory is accessed, and if thumbnail generation
is active, small thumbnails will be produced, shown beside each
image name, instead of the normal , generic, image icon.
That can be done in 2 ways. In the case the image is pretty
small, no actual thumbnail will be created. Instead the image
will resize the HEIGHT and WIDTH attributes of the IMG tag.
If the image is big enough, Image::Magick will resize it and
save (cache) it in the .thumbnails directory for the next
requests.
Changing configuration options will correctly refresh the cached
thumbnails. Also, if the original image is modified, the
thumbnail will be updated accordingly. Still, the browser might
screw things up if it preserves the cached images.
=head2 Thumbnail DIRECTIVES
OpenIndex.pm view on Meta::CPAN
Some minor changes to the thumbnails options will still have the
thumbnails regenerated. This should be avoided by checking the
attributes of the already existing thumbnail.
Some form of garbage collection should be performed on thumbnail
cache or the directories will fill up.
=head1 SEE ALSO
perl(1), L<Apache>(3), L<Apache::Icon>(3), L<Image::Magick>(3) .
L<Apache::AutoIndex>(3)
=head1 SUPPORT
Please send any questions or comments to the Apache modperl
mailing list <modperl@apache.org> or to me at <perler@xorgate.com>
=head1 NOTES
This code was made possible by :
Apache::OpenIndex - Perl Open Index manager for a Apache Web server
SYNOPSIS
PerlModule Apache::Icon
PerlModule Apache::OpenIndex
(PerlModule Apache::Language) optional
(PerlModule Image::Magick) optional
DESCRIPTION
OpenIndex provides a file manager for a web sites through a web
browser. It is a extensive rewrite of the Apache::AutoIndex.pm
module which in turn was a remake of the autoindex Apache
module. OpenIndex can provide the same functionality as
AutoIndex.pm and can be used to both navigate and manage the web
site.
For each directory containing pictures, there will be a
.thumbnails directory created in it that will hold the thumbnails.
Each time the directory is accessed, and if thumbnail generation
is active, small thumbnails will be produced, shown beside each
image name, instead of the normal , generic, image icon.
That can be done in 2 ways. In the case the image is pretty
small, no actual thumbnail will be created. Instead the image
will resize the HEIGHT and WIDTH attributes of the IMG tag.
If the image is big enough, Image::Magick will resize it and
save (cache) it in the .thumbnails directory for the next
requests.
Changing configuration options will correctly refresh the cached
thumbnails. Also, if the original image is modified, the
thumbnail will be updated accordingly. Still, the browser might
screw things up if it preserves the cached images.
Thumbnail DIRECTIVES
Some minor changes to the thumbnails options will still have the
thumbnails regenerated. This should be avoided by checking the
attributes of the already existing thumbnail.
Some form of garbage collection should be performed on thumbnail
cache or the directories will fill up.
SEE ALSO
perl(1), L<Apache>(3), L<Apache::Icon>(3), L<Image::Magick>(3) .
L<Apache::AutoIndex>(3)
SUPPORT
Please send any questions or comments to the Apache modperl
mailing list <modperl@apache.org> or to me at <perler@xorgate.com>
NOTES
This code was made possible by :
( run in 0.449 second using v1.01-cache-2.11-cpan-beeb90c9504 )