#!/usr/bin/perl -wT use strict; my $image_type = $ENV{HTTP_ACCEPT} =~ m|image/png| ? "png" : "jpeg"; my( $basename ) = $ENV{PATH_INFO} =~ /\/(\w+)/; my $image_path = "$ENV{DOCUMENT_ROOT}/images/$basename.$image_type"; #print < # # Here is what I found # # #

Parameter Values

#
#
#  HTTP_ACCEPT:		$ENV{HTTP_ACCEPT}
#  image_type:		$image_type
#  PATH_INFO:		$ENV{PATH_INFO}
#  basename:		$basename
#  DOCUMENT_ROOT:	$ENV{DOCUMENT_ROOT}
#  image_path:		$image_path
#
#
# # #END_OF_HTML my $image; unless ( $basename and -B $image_path and open $image, '<', $image_path ) { print "Location: /errors/not_found.html\n\n"; exit; } my $buffer; print "Content-type: image/$image_type\n\n"; binmode $image; while ( read( $image, $buffer, 16_384 ) ) { print $buffer; }