Nginx-Module-Gallery

 view release on metacpan or  search on metacpan

META.yml  view on Meta::CPAN

    ExtUtils::MakeMaker:  0
build_requires:
    ExtUtils::MakeMaker:  0
requires:
    Digest::MD5:     0
    File::Basename:  0
    File::Find:      0
    File::Path:      0
    File::Spec:      0
    File::Temp:      0
    Image::Magick:   0
    MIME::Base64:    0
    MIME::Types:     0
    Mojo::Template:  0
    nginx:           


    URI::Escape:     0
no_index:
    directory:
        - t
        - inc
generated_by:       ExtUtils::MakeMaker version 6.57_05

Makefile.PL  view on Meta::CPAN

	'Mojo::Template'   => 0,
	'MIME::Base64'     => 0,
	'MIME::Types'      => 0,
	'File::Spec'       => 0,
	'File::Basename'   => 0,
	'File::Path'       => 0,
	'File::Temp'       => 0,
	'File::Find'       => 0,
	'Digest::MD5'      => 0,
	'URI::Escape'      => 0,
	'Image::Magick'    => 0,
    },
    LICENSE         => 'GPLv3',
    AUTHOR          => [
        'Dmitry E. Oboukhov <unera@debian.org>,',
        'Roman V. Nikolaev <rshadow@rambler.ru>',
    ],
);

lib/Nginx/Module/Gallery.pm  view on Meta::CPAN

use Mojo::Template;
use MIME::Types;
use File::Spec;
use File::Basename;
use File::Path qw(make_path);
use File::Temp qw(tempfile);
use File::Find;
use Digest::MD5 'md5_hex';
use URI::Escape qw(uri_escape);
use Image::Magick;

# MIME definition objects
our $mimetypes = MIME::Types->new;
our $mime_unknown   = MIME::Type->new(
    simplified  => 'unknown/unknown',
    type        => 'x-unknown/x-unknown'
);

# Default mime for thumbnails
our $mime_png   = $mimetypes->mimeTypeOf( 'png' );

lib/Nginx/Module/Gallery.pm  view on Meta::CPAN

Get raw thumbnail data for image file by it`s $path

=cut

sub _get_image_thumb($)
{
    my ($path) = @_;

    # Get image and attributes
    my $image = Image::Magick->new;
    $image->Read($path);
    my ($image_width, $image_height, $image_size) =
        $image->Get("width", "height", "filesize");

    # Save image on disk:
    # Remove any sequences (for GIF)
    for (my $x = 1; $image->[$x]; $x++) {
        undef $image->[$x];
    }
    # Remove original comments, EXIF, etc.

t/000-use.t  view on Meta::CPAN

use lib qw(lib ../lib);

use Test::More tests => 5;

require_ok 'Nginx';
require_ok 'Digest::MD5';
require_ok 'Mojo::Template';
require_ok 'MIME::Base64';
require_ok 'MIME::Types';
require_ok 'File::Path';
require_ok 'Image::Magick';