#!/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 - Modify Server Properties</TITLE>
</head>
<BODY>
<H1>Modify Server Properties</H1>
<HR>
<b>Select one from CURRENT SERVER LIST.</b><BR>
<FORM ACTION="$WSA/cgi-bin/modserver" METHOD="POST">
<SELECT NAME="serverid" SIZE="10">

EndOfHTML
##### oracle login #####
$lda = &ora_login('', $orauser, $orapass);

$csr = &ora_open($lda, " select distinct serverid, sname, ipaddress, platform from servertable ");

while ( ($serverid, $sname, $ipaddress, $platform ) = &ora_fetch($csr))
{
    print ("<OPTION VALUE=\"$serverid\"> $sname : $ipaddress : $platform \n");

}

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

print <<"EndOfHTML"; 
</SELECT><P>
<INPUT TYPE="Submit" VALUE="MODIFY">
<INPUT TYPE="RESET" VALUE = "RESET">
</FORM>
<HR>
</BODY>
</HTML>
EndOfHTML

