#!/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>Video News Database - Clone a Clip </TITLE>
<script>
document.bgColor=top.menu.document.bgColor
function getCookie(Name) {
	var search = Name + "="
	if(document.cookie.length > 0){
		var offset = document.cookie.indexOf(search)
		if (offset != -1) {
			offset += search.length
			var end = document.cookie.indexOf(";", offset)
			if (end == -1)
				end = document.cookie.length
			return unescape(document.cookie.substring(offset, end))
		}
	}
}
</script>
</head>
<BODY>
<script>
var aid = getCookie("CurrentArchive")
</script>
<FORM NAME="selc" ACTION="$WSA/cgi-bin/addclipform" METHOD="POST">
<INPUT TYPE="hidden" NAME="archiveid">
<INPUT TYPE="Submit" VALUE="Submitting query... - please, wait!" NAME="button1">
</FORM>
<SCRIPT>
document.selc.archiveid.value = aid
document.selc.button1.click()
</SCRIPT>
</BODY>
</HTML>
EndOfHTML

