Subversion Repositories DevTools

<%@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, include
Dim bom_id
Dim os_id
Dim pos, pos2, pos3, pos4
Dim rsQry, rsPD
Dim newline
'------------ CONSTANTS DECLARATION -----------
'------------ VARIABLE INIT -------------------
sbom = Request("sbom")
include = Request("include")
'------------ 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 "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   
        If include = "patches" Then     
                Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("bom_patches.sql"), ORADYN_DEFAULT )
        ElseIf include = "products" Then
                Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("products_less_patches.sql"), ORADYN_DEFAULT )
        Else
                Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("bom_allproducts_script.sql"), ORADYN_DEFAULT )
        End If  
%>      


<%

        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)%>
<%If NOT IsNull(rsQry("is_patch")) Then%>
<%=rsPD("pkg_name")%><%=Chr(9)%>
<%=rsPD("pkg_version")%><%=Chr(9)%>
<%End If%>
<%=rsQry("os_name")%><%=Chr(9)%>
<%=newline%>


<%              

        
        OraDatabase.Parameters.Remove "PV_ID"   
                rsPD.Close()
                Set rsPD = nothing
                rsQry.MoveNext          
                WEnd    
                  

        OraDatabase.Parameters.Remove "BOM_LIFECYCLE"           
        OraDatabase.Parameters.Remove "BOM_VERSION"             
        OraDatabase.Parameters.Remove "BRANCH_NAME"             
        OraDatabase.Parameters.Remove "PROJ_NAME"                               
                
                rsQry.Close()
                Set rsQry = nothing

%>









<%
'------------ RUN AFTER PAGE RENDER -----------


'----------------------------------------------
%>