#!/usr/bin/perl
#
# $Id: show.pl,v 1.2 2000/01/26 23:52:29 tim Exp $
#
# Display a MrSID Image with controls for changing it's size and
# zoom percentage.
# The page this image is displayed in is based on a template
# provided by the owner of the image.
require "config.pl";
require "getInfo.pl";
require "cgi-lib.pl";
# Relative path to the script which will display the image.
$imagescript = "./image_jpeg.pl";
# This script.
$formAction = "show.pl";
# Make the output unbuffered.
$| = 1;
# Get the form data.
$rc = &ReadParse;
if (!(defined ($in{client}) && defined ($in{image}))) {
# Required params are missing from the request.
print "Content-type: text/html\n\n";
print "MrSID Extension\n";
print "ERROR 101 = Either a category or an image filename or both ";
print "are missing from the request. \n";
print "";
exit (0);
}
$client = $in{client};
$image = $in{image};
# If this is the first time, initialize the information about
# the image.
if (!(defined ($in{levels}))) {
&SetDefaultValues;
}
# Get the form data into nicer variables.
$levels = $in{levels};
$level = $in{level};
$lastlevel = $in{lastlevel};
$fullheight = $in{fullheight};
$fullwidth = $in{fullwidth};
$originx = $in{originx};
$originy = $in{originy};
$size = $in{size};
# The x,y of the user's click is adjusted by the origin of the
# image to account for cases when only part of the full image
# is displayed.
$x = (int ($in{"image.x"}) * (2 ** $lastlevel)) + $originx;
$y = (int ($in{"image.y"}) * (2 ** $lastlevel)) + $originy;
$numsizes = scalar (@sizes);
# Some error checking.
if ($size >= $numsizes) { $size = $numsizes - 1; }
if ($size < 0) { $size = 0; }
# Get the image height & width requested by the user.
($height, $width) = &SizeToHW ($size);
# Figure out the height and width of the image at this
# zoom level.
$scaledheight = int ($fullheight / (2 ** $level)) + 1;
$scaledwidth = int ($fullwidth / (2 ** $level)) + 1;
# If the image size (at the current zoom level) is smaller
# than what the user requested, use the image size. Also,
# change the x & y to keep the image centered.
if ($height > $scaledheight) {
$height = $scaledheight;
$y = int ($fullheight / 2);
}
if ($width > $scaledwidth) {
$width = $scaledwidth;
$x = int ($fullwidth / 2);
}
# Figure out the origin of the image (the x,y of the
# upper left hand corner).
$originx = $x - (($width / 2) * (2 ** $level));
$originy = $y - (($height / 2) * (2 ** $level));
# If the origin point is outside the image, re-adjust the
# center of the image so it is not. This avoids having
# black space around the image.
if ($originx < 0) {
$x += abs ($originx);
$originx = 0;
}
if ($originy < 0) {
$y += abs ($originy);
$originy = 0;
}
# Figure out the x,y of the lower right hand corner.
$lrx = $x + (($width / 2) * (2 ** $level));
$lry = $y + (($height / 2) * (2 ** $level));
# If the lower right hand corner is outside the image, re-adjust
# the center of the image so it is not. This avoids having
# black space around the image.
if ($lrx > $fullwidth) {
$x -= $lrx - $fullwidth;
}
if ($lry > $fullheight) {
$y -= $lry - $fullheight;
}
# Output the Page.
&ShowImagePage;
exit (0);
#########################################################
# End of mainline
#########################################################
sub ShowImagePage {
# Open and send out the beginning of the template.
$template= "../$client/$imageTemplateFile";
$rc = open (TEMPLATE, $template);
if (!$rc) {
print "Content-Type: text/html\n\n";
print "unable to open '$templateFile', $!\n";
exit (0);
}
print "Content-Type: text/html\n";
print "\n";
while () {
# Look for the "IMAGEHERE" string, this marks where the
# dynamic data goes.
if (/IMAGEHERE/) { last; }
print;
}
# The dynamic portion consists of the image at current size, level & etc.,
# a selector for the next size, and the next level.
# Maintains state between requests.
# print "