#!/usr/bin/perl
use Pg;
use CGI qw(:standard);
use CGI qw(:cgi-lib);
use CGI::Carp qw(fatalsToBrowser);
###########################################################
# Copyright Paul Barrette and the Trajan Column Project,  #
# 1999.                                                   #
# Interested parties may use parts and/or adapt           #
# this script for their own NON-COMMERCIAL projects       #
# provided that this copywrite notice is kept intact      #
# at the head of the CGI script.                          #
# Thank you.                                              #
# Paul Barrette, barretp@mcmaster.ca                      #
###########################################################
print header;
#ReadParse();
#pass the spiral number and the letter, e.g. 02a
$cartnum=$ARGV[0];

#set some vars for the images below:
if ($cartnum <10){
	$spiralname="images/pics0".$cartnum.".gif";
	$scene = "images/picp0".$cartnum.".gif";
	$numonly=substr $cartnum, 0,1;
}else{
	$spiralname="images/pics".$cartnum.".gif";
	$scene = "images/picp".$cartnum.".gif";
	$numonly=substr $cartnum, 0,2;
}

#get header and footer
$header=`cat stndheader.txt`;
$footer=`cat stndfooter.txt`;

#extract the letter at the end, don't chop it we may need it
$ofst = length $cartnum;
$letter = substr $cartnum, $ofst -1,1;
$capletter=uc $letter;

#build links for the panel map cart1a.htm -cart1d.htm 
$panel1="buildcartoon.cgi?".$numonly."a";
$panel2="buildcartoon.cgi?".$numonly."b";
$panel3="buildcartoon.cgi?".$numonly."c";
$panel4="buildcartoon.cgi?".$numonly."d";

#next and previous panels
if ($numonly > 1 && $numonly < 24) {
	$panel5="buildcartoon.cgi?".($numonly -1)."d";  #previous panel/spiral
	$panel6="buildcartoon.cgi?".($numonly +1)."a";  #next panel/spiral
}elsif ($numonly == 1){
	$panel5="buildcartoon.cgi?24a";  #previous panel/spiral
        $panel6="buildcartoon.cgi?".($numonly +1)."a";  #next panel/spiral
}elsif ($numonly == 24){
        $panel5="buildcartoon.cgi?".($numonly -1)."d";  #previous panel/spiral
        $panel2="buildcartoon.cgi?1a";  #next panel/spiralk NB only one scene in 24
}

#navagation bar
#next or previous spirals
if ($numonly > 1 && $numonly < 24) {
	$previous="buildcartoon.cgi?".($numonly -1)."a";
	$next="buildcartoon.cgi?".($numonly + 1)."a";
	}
elsif ($numonly == 24) {
	$previous="buildcartoon.cgi?23d";
	$next="buildcartoon.cgi?1a";
	}
elsif ($numonly == 1) {
	$previous="buildcartoon.cgi?24a";
	$next="buildcartoon.cgi?2a";	
}

#now find out whether we are a,b,c or d and set the previous & next
#build a hash, check the hash and then launch the appropriate sub handler
%LETTERS = (
	'a' => \&loadA,
	'b' => \&loadB,
	'c' => \&loadC,
	'd' => \&loadD
	);

#check the hash, the block checks for the key letter and fires off the sub assciated with it.
if ($LETTERS{$letter}) {$LETTERS{$letter}->();}

#sub handlers
sub loadA {$nextscene=$panel2; $previousscene=$panel5;}
sub loadB {$nextscene=$panel3; $previousscene=$panel1;}
sub loadC {$nextscene=$panel4; $previousscene=$panel2;}
sub loadD {$nextscene=$panel6; $previousscene=$panel3;}
	
#set up main spiral map here, 23-24 are on the same map!
if ($numonly <23 ){
	#use this map for <23
	$mainspiralmap="<map name=\"spiral\">\n<area coords=\"17,2,147,129\" shape=rect href=\"$panel1\">\n<area coords=\"148,2,276,119\" shape=rect href=\"$panel2\">\n<area coords=\"277,2,405,99\" shape=rect href=\"$panel3\">\n<area coords=\"406,2,534,83\" shape=rect href=\"$panel4\">\n</map>";
}else {
	$mainspiralmap="<MAP NAME=\"spiral\">\n<AREA SHAPE=rect COORDS=\"427,3,543,132\" HREF=\"buildcartoon.cgi?24a\">\n<AREA SHAPE=rect COORDS=\"325,3,427,134\" HREF=\"buildcartoon.cgi?23d\">\n<AREA SHAPE=rect COORDS=\"227,2,326,135\" HREF=\"buildcartoon.cgi?23c\">\n<AREA SHAPE=rect COORDS=\"124,2,227,136\" HREF=\"buildcartoon.cgi?23b\">\n<AREA SHAPE=rect COORDS=\"14,2,123,136\" HREF=\"buildcartoon.cgi?23a\">\n</MAP>";
}

#when we sort out what images are in which panel, set
#$panelmap here
#method:
#1.  call db, sql = "SELECT map from trajmap where spiral=\'$cartnum\'"
#2 figure out whether we can pass it in the same stream as below and extract it
#3 test output for "nomap" = no imagemap available for this panel, otherwise build a map
#set source for panel below to 
#<MAP NAME=panelmap>
#<AREA SHAPE=rect COORDS="x,x,x,x" HREF="buildtrajanpage.cgi?x"> </MAP>
#<IMG USEMAP="#panelmap" SRC="picpxx.gif">


####################################
#CONNECT TO THE DATABASE and grab related images to this spiral
#================================
$sql ="SELECT key,vwdescription,drumnumber,sideofcolumn from traj where drumnumber ~'^$numonly,'";
$sql2 = "SELECT map from trajmap where spiral=\'$cartnum\'";

$conn = Pg::connectdb("dbname=trajan");

#execute the query
Pg::doQuery($conn, $sql, \@ary);
Pg::doQuery($conn, $sql2, \@ary2);
#================================
#build the links for these images
for  $i(0..@ary){
	#build spiral and panel refs
	#strip spaces
	$sideofcolumn=$ary[$i][3];
	$sideofcolumn=~s/ //g;
	if ($sideofcolumn eq "1-2"){ $apanel="a-b";}
	if ($sideofcolumn eq "2-3"){ $apanel="b-c";}
	if ($sideofcolumn eq "3-4"){ $apanel="c-d";}
	if ($sideofcolumn eq "1-4"){ $apanel="a-d";}
	#now set abcd
	if ($sideofcolumn eq "1"){ $apanel="a";}
	if ($sideofcolumn eq "2"){ $apanel="b";}
	if ($sideofcolumn eq "3"){ $apanel="c";}
	if ($sideofcolumn eq "4"){ $apanel="d";}
	
	@assocspirals=split ",", $ary[$i][2];

	############
	#this works well comment out for now until image maps are done
	#if ($ary[$i][2]) {
	#$dbimages.="<OPTION VALUE=\"buildtrajanpage.cgi?$ary[$i][0]\">	$ary[$i][1] (Spiral: $assocspirals[0]$apanel)";
	#}
	########
	if ($ary[$i][2]) {
		$dbimages.= "<A HREF=\"buildtrajanpage.cgi?$ary[$i][0]\">$ary[$i][1] (Spiral: $assocspirals[0]$apanel)</A><BR>";
	}
}

#$selstart="<form><select size=\"1\" onchange=\"window.location.href=this.options[selectedIndex].value; this.selectedIndex=0\">";
#$selend="</select></form>\n";

#test for and build the image map for the panel image
if (!($ary2[$i][0]=~s/nomap/nomap/)){
	$imgsource="$ary2[$i][0]\n<img USEMAP=\"#panelmap\" src=\"$scene\" align=right border=0>";
	}else{
	$imgsource="<img src=\"$scene\" align=right border=0>";
}
#$testmap="$ary2[$i][0]";

print <<eof;
<html>
<head>
<title>Trajan Project - Cartoon View Spiral $cartnum</title>

<link rel="schema.DC" href="http://purl.org/dc">
<meta name="DC.Title" lang="en" content="Trajan Project - Cartoon View Spiral $cartnum">
<meta name="DC.Creator" content="Umholtz, Gretchen; Rockwell, Geoffrey; George, Michele; Barrette, Paul; Beckmann, Martin; Rich, Saul">
<meta name="DC.Subject" lang="en" content="Trajan, Trajan's Column, Roman Architecture, Roman Carving Technique, Sculpture, Roman Army">
<meta name="DC.Description" lang="en" content="The McMaster Trajan's Column WWW site is based on a collection of over 400 images of Trajan's column.  The images are primarily of sculptural details. Users can navigate the images by searching a database or browsing cartoon sketches of the sculptural frieze around the column.">
<meta name="DC.Publisher" content="McMaster University">
<meta name="DC.Contributor" content="Rockwell, Peter; Martini, Claudio; Rockwell, Mary">
<meta name="DC.Date" scheme="WTN8601" content="1999-08-20">
<meta name="DC.Type" content="Interactive.Multimedia">
<meta name="DC.Format" content="text/html">
<meta name="DC.Identifier" content="http://cheiron.humanities.mcmaster.ca/~trajan/index.html">
<meta name="DC.Language" content="English">
<meta name="DC.Rights" content="Image copyright - Peter Rockwell; WWW Site copyright - Umholtz, G., Rockwell, G., George, M., McMaster University">

<SCRIPT LANGUAGE="JavaScript">//<!--
  function picpan() {
  		var newWin=window.open("images/picph$cartnum.gif","panel","status=no,scrollbars=yes,resizable=yes,width=640,height=425")
}

function picspi() {
        var newWin2=window.open("images/picsh$numonly.gif","spiral","status=no,scrollbars=yes,resizable=yes,width=640,height=425")
}

//--></SCRIPT>
</head>


<body bgcolor=white LINK="#993300" VLINK="#330000">
<FORM name=menuform>

<center>
	$header
</center><BR>
<!-- End of Header Row -->

<!--whole spiral EDIT THIS IMAGE NAME-->
	
<center>
	<img src="$spiralname" usemap="#spiral" border=0>
</center><BR>
<center>
	<font size=-1>
		<i>To view different panels, click on A - D above.</i>
	</font>
	$mainspiralmap
</center><P>
	
<center>
	<IMG USEMAP="#middlebar" SRC="decor_img/spiral-hr.jpg" border=0>
	<h3>Spiral Number $numonly, Panel $capletter</h3>
	<P>
	<MAP NAME=middlebar>
	<!--PREVIOUS scene ABCD-->
   <AREA SHAPE=rect COORDS="379,0,417,19" href="$previousscene"> 
   <!--NEXT scene ABCD-->
   <AREA SHAPE=rect COORDS="476,1,512,18" href="$nextscene">  
   <!--PREVIOUS spiral--> 
   <AREA SHAPE=rect COORDS="0,0,35,20" href="$previous">
   <!--NEXT spiral-->
   <AREA SHAPE=rect COORDS="96,0,131,18" href="$next"> 
   </MAP>
</center>

<center>
<TABLE cellspacing=0 cellpadding=0 BORDER=0>
<tr>
	<td>
	<IMG SRC="decor_img/legend.jpg" alt="legend" align=left">
	</td>
	<td>
	<!--spiral imagemap-->
	<MAP NAME=map1>
   <AREA SHAPE=rect COORDS="0,0,28,10" HREF="buildcartoon.cgi?24a">
   <AREA SHAPE=rect COORDS="0,12,28,22" HREF="buildcartoon.cgi?23a">
   <AREA SHAPE=rect COORDS="0,23,28,31" HREF="buildcartoon.cgi?22a">
   <AREA SHAPE=rect COORDS="1,34,28,43" HREF="buildcartoon.cgi?21a">
   <AREA SHAPE=rect COORDS="0,45,28,54" HREF="buildcartoon.cgi?20a">
   <AREA SHAPE=rect COORDS="0,56,28,64" HREF="buildcartoon.cgi?19a">
   <AREA SHAPE=rect COORDS="0,66,28,74" HREF="buildcartoon.cgi?18a">
   <AREA SHAPE=rect COORDS="1,76,28,84" HREF="buildcartoon.cgi?17a">
   <AREA SHAPE=rect COORDS="0,86,28,95" HREF="buildcartoon.cgi?16a">
   <AREA SHAPE=rect COORDS="1,97,28,107" HREF="buildcartoon.cgi?15a">
   <AREA SHAPE=rect COORDS="1,109,28,118" HREF="buildcartoon.cgi?14a">
   <AREA SHAPE=rect COORDS="0,120,28,129" HREF="buildcartoon.cgi?13a">
   <AREA SHAPE=rect COORDS="0,131,28,139" HREF="buildcartoon.cgi?12a">
   <AREA SHAPE=rect COORDS="1,140,28,150" HREF="buildcartoon.cgi?11a">
   <AREA SHAPE=rect COORDS="0,151,28,160" HREF="buildcartoon.cgi?10a">
   <AREA SHAPE=rect COORDS="1,161,28,171" HREF="buildcartoon.cgi?9a">
   <AREA SHAPE=rect COORDS="0,173,28,181" HREF="buildcartoon.cgi?8a">
   <AREA SHAPE=rect COORDS="0,183,28,192" HREF="buildcartoon.cgi?7a">
   <AREA SHAPE=rect COORDS="0,194,27,202" HREF="buildcartoon.cgi?6a">
   <AREA SHAPE=rect COORDS="0,203,28,212" HREF="buildcartoon.cgi?5a">
   <AREA SHAPE=rect COORDS="0,214,28,223" HREF="buildcartoon.cgi?4a">
   <AREA SHAPE=rect COORDS="0,225,28,234" HREF="buildcartoon.cgi?3a">
   <AREA SHAPE=rect COORDS="0,236,28,245" HREF="buildcartoon.cgi?2a">
   <AREA SHAPE=rect COORDS="0,246,28,256" HREF="buildcartoon.cgi?1a">
	</MAP>
	<IMG USEMAP="#map1" SRC="decor_img/gotospiral.jpg" WIDTH=29 HEIGHT=265 border=0>
	</td>
	<td>
	<!--panel image-->
	$imgsource
	</td>
</tr>
</table>
<!-- End of Image Table -->

<TABLE BORDER=0>
<tr>
	<td width=620>
	<center>
	[<a href="#" onClick="picpan()">View Single Panel Only Hi-Rez</a>]
 	[<a href="#" onClick="picspi()">View Entire Spiral Hi-Rez</a>] 	
	<br>
 
 	<!--LINK TO SLIDES -->
 	<P>
	<b>Associated Slides: </b><P>
	$selstart
	$dbimages
	$selend
	<!--$sql-->
	$footer
	</center>
	</td>
	</tr>
</table>
</center>
</form>
</html>
eof



exit;