#!/usr/bin/perl
#
# $Id: image.pl,v 1.3 2004/03/22 09:45:04 jeffo Exp $
#
# Source File: image.pl

require 'sitecfg.pl';
require 'testlib.pl';

&app_initialize;

if (&get_session($FORM{'tid'})) {
	$imgfile = join($pathsep, $testgraphic, $FORM{'img'});
	@filesegs = split(/./, $FORM{'img'});
	$fext = $filesegs[$#filesegs];
	print "Content-Type: $CONTENT_TYPES{$fext}\n\n";
	open (IMGFILE, "<$imgfile");
	binmode(IMGFILE);
	$fsize = (stat(IMGFILE))[7];
	read(IMGFILE, $img, $fsize);
	close IMGFILE;
	binmode(STDOUT);
	print $img;
}