#!/oracle/app/oracle/product/7.3.3/bin/oraperl

##### set Oracle's variables #####
$ENV{'ORACLE_HOME'}='/oracle/app/oracle/product/7.3.3';
$ENV{'ORACLE_SID'}='rabbit';
$orauser="vod";
$orapass="vod";

#### set web server address ####
$WSA = "http://clarissa.npac.syr.edu/vod";
$PROJDIR="/project/K136/VOD";


($clipid,$dummy) =  split(/\&/,$ENV{'QUERY_STRING'});

print "Content-type: TEXT/HTML\n\n";

$lda = &ora_login('', $orauser, $orapass);

# Getting title of the clip
$csr = &ora_open
($lda,"select FNAIL, DATEINSERT from CLIPTABLE where CLIPID=$clipid ");
($fnail, $date) = &ora_fetch($csr);
&ora_close($csr);

print "<img align=center src=\"$fnail\">\n";
print "<h2>Annotations for the clip \"$title\" :</h2><P><HR>\n";
print "$text";

print <<"EndOfHTML";
<HR>
<ADDRESS>Please report problems to NPAC VoD Group
          Marek Podgorny <A Href="mailto:marek@npac.syr.edu">
          &lt;marek@npac.syr.edu&gt;</A><BR>
          Last Modified on Fri Aug 16 12:42:56 EDT 1996
</address>
<A HREF="$WSA">Specify Another Search</A> / 
<A HREF="$WSA/cgi-bin/vnsquery">Playback page</A>
</B></BODY></HTML>
EndOfHTML
