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
    Call Destroy_All_Objects()
%>









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


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