File Coverage

blib/lib/Apache/Image.pm

Criterion	Covered	Total	%
statement	7	9	77.7
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	10	12	83.3

package Apache::Image;
use warnings;
use strict;
use Apache2::RequestRec ();
use Apache2::RequestIO ();
use Apache2::Const -compile => qw(OK NOT_FOUND HTTP_MOVED_TEMPORARILY);
use Apache2::TrapSubRequest;

# XXX - Bug with getting uri/path_info
# 	If /z/image exists it works
# 	If /z/image does not, it is all broken
# 	If /z/image/thubnail exists it drops the first part of path info !
# 	all bad

# XXX We should use Image::Thumbnail !!!
use Image::Magick;

use Carp;
use version; our $VERSION = qv('0.0.4');

# TODO Can this be made to be Apaceh 1.3 (mod_perl 1) ? If not document the reason

sub handler {
	my $r = shift;

	# URI (original) & Configuration
	my $uri=$r->path_info;

	# Get the size from config
	my $MaxSize=$r->dir_config("ImageMaxSize") || 50;

	# Force this size? Or only resize if larger?
	my $Force=$r->dir_config("ImageForce") || 0;

        # Get our image from Apache
        my $image;
        my $subr = $r->lookup_uri($uri);
	# XXX Do other things like POST data etc.
	$subr->args($r->args);
        $subr->run_trapped(\$image);

	# XXX Check not found or other error
	# XXX Check the Pragma and Expiry times for caching and setting local expiry times

        # Check mime type is image (else return based on mime type)
        if ($subr->content_type !~ m|^image/([^\s]+)|) {
                # print STDERR "Not a valid type for $rest " .  $subr->content_type . "\n";
		# XXX Get this from configuration
                $r->internal_redirect("/z/resource/thumbnail/unknown.jpg");
		# TODO Support mime type mapping to files (can we use Apache for this?)
		# TODO Future - Support creation of Thumbnails from other sources
                return Apache2::Const::OK;
        }

	# XXX Caching - Write entries to a directory and use internal redirect
	# to get them - only problem may be that a tif wants to be a jpg
	# thumbnail
	# $r->internal_redirect("/unknown.jpg");

        # Process the image into a thumbnail and output
        my $im = Image::Magick->new;
        $im->BlobToImage($image);

	# Resize if Force or Too big !
	if ($Force || ($im->Get('width') > $MaxSize) || ($im->Get('height') > $MaxSize)) {
		$im->Scale(geometry => $MaxSize . 'x' . $MaxSize);
	}

	# XXX Is it always ?
        $r->content_type('image/jpg');
        $r->rflush();
        print $im->ImageToBlob();

	# XXX Save to cache (files to redirect to) (internal Apache caching)

        return Apache2::Const::OK;
}


1; # Magic true value required at end of module
__END__