#!/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";




print ("Content-type: TEXT/HTML\n\n");
print <<"EndOfHTML"; 
<html>
<head>
<title>NPAC Video News Database Server</title>
</head>
<body bgcolor="moccasin">
<center><img src="$WSA/gifs/VOD_Logo.gif" ALT="VoD_logo">
</CENTER>
<table border=4 width=100%>
<tr><td align=center>
<FONT SIZE="+2">NPAC <FONT SIZE="+1"> <FONT SIZE="+2">V<FONT SIZE="+1">IDEO
<FONT SIZE="+2">O<FONT SIZE="+1">N <FONT SIZE="+2">D<FONT SIZE="+1">EMAND
<FONT SIZE="+2">P<FONT SIZE="+1">ROJECT
 <br>
</td></tr></table>
<br>
<hr>

<FORM ACTION="vnsquery" method="POST">
<P><b>Find all movie clips associated with the following keyword(s):</b> <BR>
Submitting an empty query will display the list of all available clips.
<BR><B
<FONT Size="4">Search Keywords: <FONT Size="3"> 
<INPUT NAME="captions" SIZE=40>
<INPUT TYPE="submit" value="SUBMIT">
<INPUT TYPE="reset" value="RESET"><BR>
<br>Search in:
<INPUT TYPE="radio" NAME="scope" VALUE="Captions" >Captions
<INPUT TYPE="radio" NAME="scope" VALUE="Titles">Titles
<INPUT TYPE="radio" NAME="scope" VALUE="Annotations">Annotations
<INPUT TYPE="radio" NAME="scope" VALUE="AllFields">All Fields
<P>

<CENTER>
<TABLE Border WIDTH=98%>
<TR>
<TD align=center><FONT COLOR="red" Size="+1"><B>Archives</B></FONT></TD>
<TD align=center><FONT COLOR="blue" Size="+1"><b>Encodings</B></FONT></TD>
</TR>
<TR><TD>
EndOfHTML

# Oracle login

$lda = &ora_login('', $orauser, $orapass);
$csr = &ora_open
($lda, "select distinct ARCHIVEID, ANAME, ADESC from ARCHIVETABLE
        order by ANAME ");
$html = "<table border=0>";
print " $html ";
while ( ($archiveid, $aname, $adesc ) = &ora_fetch($csr)) {
  $html  = "<tr><td>";
  $html .= "<input type = \"checkbox\" name=\"archive\" value=\"$archiveid\">";
  $html .= "<b> $aname</b> ";
  $html .= "</td><td>";
  $html .= " $adesc ";
  $html .= "</td></tr>";
  print "$html";
}
$html = "</table>";
print " $html ";

&ora_close($csr);

# Oracle logoff 
&ora_logoff($lda);

print <<"EndOfHTML";
</TD>
<TD><b>
<input type="checkbox" name="encoding" value="MPEG1"> MPEG1 <BR>
<input type="checkbox" name="encoding" value="MPEG2"> MPEG2 <BR>
<input type="checkbox" name="encoding" value="AVI"> AVI/Indeo<BR>
<input type="checkbox" name="encoding" value="QT"> QuickTime <BR>
<input type="checkbox" name="encoding" value="H263"> H.263 <BR>
</b></TD>
</TR>
</TABLE></CENTER>
</FORM>
<HR>
<A HREF="$WSA"> VoD Project Home Page </A>
<HR>
<ADDRESS>Please report problems to NPAC VoD Group</ADDRESS>
<ADDRESS> Marek Podgorny <A Href="mailto:marek@npac.syr.edu">
          &lt;marek@npac.syr.edu&gt;</A><BR>
          Last Modified on Wed Nov  6 23:33:42 EST 1996
</address>
</body>
</html>
EndOfHTML




