#!/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>
<script>
top.main.document.bgColor=top.menu.document.bgColor
</script>
<TITLE>Video News Database - Delete an Archive </TITLE>
</head>
<BODY>
<H1>Delete an Archive</H1>
<HR>
<FONT Size="4"> 
Select an archive to be deleted from the CURRENT ARCHIVE LIST.<BR>
<FONT Size="3"> 
<FORM ACTION="$WSA/cgi-bin/delcoll" METHOD="POST">
<SELECT NAME="archiveid" SIZE="10">
EndOfHTML
##### oracle login #####
$lda = &ora_login('', $orauser, $orapass);

$csr = &ora_open($lda, " select distinct archiveid, aname, adesc from archivetable ");

while ( ($archiveid, $aname, $adesc ) = &ora_fetch($csr))
{
    print ("<OPTION VALUE=\"$archiveid\"> $aname : $adesc  \n");

}

&ora_close($csr);
##### oracle logoff ##### 

print <<"EndOfHTML"; 
</SELECT><P>
<INPUT TYPE="Submit" VALUE="DELETE (ARE YOU SURE???)">
<INPUT TYPE="Reset" VALUE="RESET">
</FORM>
<HR>
</BODY>
</HTML>
EndOfHTML

