<%@LANGUAGE="VBSCRIPT"%>
<%
'=====================================================
'|                                                   |
'|			          OSDefault					 	 |
'|                                                   |
'=====================================================
%>
<%
Option explicit
Response.Expires = 0
%>
<!--#include file="common/config.asp"-->
<!--#include file="common/common_subs.asp"-->
<%
'------------ VARIABLE DEFINITION -------------
Dim AllHttp
Dim bom_version, bom_lifecycle,sbom
Dim bom_id
Dim os_id
Dim pos, pos2, pos3, pos4
Dim rsQry, rsPD
Dim newline
'------------ CONSTANTS DECLARATION -----------
'------------ VARIABLE INIT -------------------
sbom = Request("sbom")
'------------ CONDITIONS ----------------------
'----------------------------------------------
%>



<%
newline = chr(13) + chr(10)


pos = InStrRev(sbom, ".")
bom_version = sbom 
bom_lifecycle = 0

If pos <> 0 Then
	bom_version = Mid(sbom,1,pos-1)
	bom_lifecycle = Mid(sbom,pos+1,len(sbom)-len(bom_version))
End If


'AllHttp =  Request.ServerVariables("ALL_HTTP")
'Response.Write(AllHttp)
'pos = InStr(AllHttp, "os_id=")
'pos2 = Instr(pos+6, AllHttp,"")
'Response.Write(AllHttp)
'os_id = Mid(AllHttp, pos+6, 4)
'If (InStr(os_id,"&")) Then
'	os_id = Mid(os_id,1,3)
'End If

	OraDatabase.Parameters.Add "NODE_NAME", 		Request("node"),		ORAPARM_INPUT, ORATYPE_VARCHAR2 
	OraDatabase.Parameters.Add "PROJ_NAME", 		Request("project"),		ORAPARM_INPUT, ORATYPE_VARCHAR2 
	OraDatabase.Parameters.Add "BRANCH_NAME", 		Request("release"),		ORAPARM_INPUT, ORATYPE_VARCHAR2 	
	OraDatabase.Parameters.Add "BOM_VERSION", 		bom_version,		ORAPARM_INPUT, ORATYPE_NUMBER
	OraDatabase.Parameters.Add "BOM_LIFECYCLE", 	bom_lifecycle,		ORAPARM_INPUT, ORATYPE_NUMBER	
	OraDatabase.Parameters.Add "OS_NAME", 			Request("os"),		ORAPARM_INPUT, ORATYPE_VARCHAR2 		
	 	
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("patch_OsId.sql"), ORADYN_DEFAULT )
%>	


<%
	While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
	OraDatabase.Parameters.Add "PV_ID", 	rsQry("pv_id"),		ORAPARM_INPUT, ORATYPE_NUMBER 		
	Set rsPD = OraDatabase.DbCreateDynaset( GetQuery ("pd_patch.sql"), ORADYN_DEFAULT )	
	
%>				

<%=rsQry("pkg_name")%><%=Chr(9)%>
<%=rsQry("pkg_version")%><%=Chr(9)%>
<%=rsPD("pkg_name")%><%=Chr(9)%>
<%=rsPD("pkg_version")%><%=Chr(9)%>
<%=newline%>


<%		

	
	OraDatabase.Parameters.Remove "PV_ID"	
		rsPD.Close()
		Set rsPD = nothing
		rsQry.MoveNext		
		WEnd		  
	OraDatabase.Parameters.Remove "OS_NAME"		
	OraDatabase.Parameters.Remove "BOM_LIFECYCLE"		
	OraDatabase.Parameters.Remove "BOM_VERSION"		
	OraDatabase.Parameters.Remove "RBANCH_NAME"		
	OraDatabase.Parameters.Remove "PROJ_NAME"		
	OraDatabase.Parameters.Remove "NODE_NAME"		
		
		rsQry.Close()
		Set rsQry = nothing

%>









<%
'------------ RUN AFTER PAGE RENDER -----------


'----------------------------------------------
%>