Subversion Repositories DevTools

Rev

Rev 5513 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5513 Rev 5958
Line 1... Line 1...
1 
<%@LANGUAGE="VBSCRIPT"%>
 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
 2 
<%
3 
'=====================================================
 3 
'=====================================================
4 
'|                                                   |
 4 
'|                                                   |
5 
'|			          OSDefault					 	 |
 5 
'|                    OSDefault                      |
6 
'|                                                   |
 6 
'|                                                   |
7 
'=====================================================
 7 
'=====================================================
8 
%>
 8 
%>
9 
<%
 9 
<%
10 
Option explicit
 10 
Option explicit
Line 26... Line 26...
26 
sbom = Request("sbom")
 26 
sbom = Request("sbom")
27 
include = Request("include")
 27 
include = Request("include")
28 
'------------ CONDITIONS ----------------------
 28 
'------------ CONDITIONS ----------------------
29 
'----------------------------------------------
 29 
'----------------------------------------------
30 
%>
 30 
%>
31 
 
 - 
 
32 
 
 - 
 
33 
 
 - 
 
34 
<%
 31 
<%
35 
newline = chr(13) + chr(10)
 32 
newline = chr(13) + chr(10)
36 
 
 33 
 
37 
 
 - 
 
38 
pos = InStrRev(sbom, ".")
 34 
pos = InStrRev(sbom, ".")
39 
bom_version = sbom
35 
bom_version = sbom
40 
bom_lifecycle = 0
 36 
bom_lifecycle = 0
41 
 
 37 
 
42 
If pos <> 0 Then
 38 
If pos <> 0 Then
43 
	bom_version = Mid(sbom,1,pos-1)
 39 
    bom_version = Mid(sbom,1,pos-1)
44 
	bom_lifecycle = Mid(sbom,pos+1,len(sbom)-len(bom_version))
 40 
    bom_lifecycle = Mid(sbom,pos+1,len(sbom)-len(bom_version))
45 
End If
 41 
End If
46 
 
 42 
 
47 
 
 - 
 
48 
 
 - 
 
49 
 
 - 
 
50 
'AllHttp =  Request.ServerVariables("ALL_HTTP")
 43 
'AllHttp =  Request.ServerVariables("ALL_HTTP")
51 
'Response.Write(AllHttp)
 44 
'Response.Write(AllHttp)
52 
'pos = InStr(AllHttp, "os_id=")
 45 
'pos = InStr(AllHttp, "os_id=")
53 
'pos2 = Instr(pos+6, AllHttp,"")
 46 
'pos2 = Instr(pos+6, AllHttp,"")
54 
'Response.Write(AllHttp)
 47 
'Response.Write(AllHttp)
55 
'os_id = Mid(AllHttp, pos+6, 4)
 48 
'os_id = Mid(AllHttp, pos+6, 4)
56 
'If (InStr(os_id,"&")) Then
 49 
'If (InStr(os_id,"&")) Then
57 
'	os_id = Mid(os_id,1,3)
 50 
'   os_id = Mid(os_id,1,3)
58 
'End If
 51 
'End If
59 
 
 52 
 
60 
	OraDatabase.Parameters.Add "PROJ_NAME", 		Request("project"),		ORAPARM_INPUT, ORATYPE_VARCHAR2
53 
    OraDatabase.Parameters.Add "PROJ_NAME",         Request("project"),     ORAPARM_INPUT, ORATYPE_VARCHAR2
61 
	OraDatabase.Parameters.Add "BRANCH_NAME", 		Request("release"),		ORAPARM_INPUT, ORATYPE_VARCHAR2
54 
    OraDatabase.Parameters.Add "BRANCH_NAME",       Request("release"),     ORAPARM_INPUT, ORATYPE_VARCHAR2
62 
	OraDatabase.Parameters.Add "BOM_VERSION", 		bom_version,		ORAPARM_INPUT, ORATYPE_NUMBER
 55 
    OraDatabase.Parameters.Add "BOM_VERSION",       bom_version,        ORAPARM_INPUT, ORATYPE_NUMBER
63 
	OraDatabase.Parameters.Add "BOM_LIFECYCLE", 	bom_lifecycle,		ORAPARM_INPUT, ORATYPE_NUMBER
56 
    OraDatabase.Parameters.Add "BOM_LIFECYCLE",     bom_lifecycle,      ORAPARM_INPUT, ORATYPE_NUMBER
64 
	If include = "patches" Then
57 
    If include = "patches" Then
65 
		Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("bom_patches.sql"), ORADYN_DEFAULT )
 58 
        Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("bom_patches.sql"), ORADYN_DEFAULT )
66 
	ElseIf include = "products" Then
 59 
    ElseIf include = "products" Then
67 
		Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("products_less_patches.sql"), ORADYN_DEFAULT )
 60 
        Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("products_less_patches.sql"), ORADYN_DEFAULT )
68 
	Else
 61 
    Else
69 
		Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("bom_allproducts_script.sql"), ORADYN_DEFAULT )
 62 
        Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("bom_allproducts_script.sql"), ORADYN_DEFAULT )
70 
	End If
63 
    End If
71 
%>
- 
 
72 
 
 - 
 
73 
 
 - 
 
74 
<%
 - 
 
75 
 
 64 
 
76 
	While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
 65 
    While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
77 
	OraDatabase.Parameters.Add "PV_ID", 	rsQry("pv_id"),		ORAPARM_INPUT, ORATYPE_NUMBER
66 
        OraDatabase.Parameters.Add "PV_ID",     rsQry("pv_id"),     ORAPARM_INPUT, ORATYPE_NUMBER
78 
	Set rsPD = OraDatabase.DbCreateDynaset( GetQuery ("pd_patch.sql"), ORADYN_DEFAULT )
67 
        Set rsPD = OraDatabase.DbCreateDynaset( GetQuery ("pd_patch.sql"), ORADYN_DEFAULT )
79
68
80 
%>
69 
%>
81 
 
 - 
 
82 
<%=rsQry("pkg_name")%><%=Chr(9)%>
 70 
<%=rsQry("pkg_name")%><%=Chr(9)%>
83 
<%=rsQry("pkg_version")%><%=Chr(9)%>
 71 
<%=rsQry("pkg_version")%><%=Chr(9)%>
84 
<%If NOT IsNull(rsQry("is_patch")) Then%>
 72 
<%If NOT IsNull(rsQry("is_patch")) Then%>
85 
<%=rsPD("pkg_name")%><%=Chr(9)%>
 73 
<%=rsPD("pkg_name")%><%=Chr(9)%>
86 
<%=rsPD("pkg_version")%><%=Chr(9)%>
 74 
<%=rsPD("pkg_version")%><%=Chr(9)%>
87 
<%End If%>
 75 
<%End If%>
88 
<%=rsQry("os_name")%><%=Chr(9)%>
 76 
<%=rsQry("os_name")%><%=Chr(9)%>
89 
<%=newline%>
 77 
<%=newline%>
90 
 
 - 
 
91 
 
 - 
 
92 
<%
78 
<%
93 
 
 - 
 
94
- 
 
95 
	OraDatabase.Parameters.Remove "PV_ID"
79 
        OraDatabase.Parameters.Remove "PV_ID"
96 
		rsPD.Close()
 80 
        rsPD.Close()
97 
		Set rsPD = nothing
 81 
        Set rsPD = nothing
98 
		rsQry.MoveNext
82 
        rsQry.MoveNext
99 
		WEnd
83 
        WEnd
100
84
101 
 
 - 
 
102 
	OraDatabase.Parameters.Remove "BOM_LIFECYCLE"
85 
    OraDatabase.Parameters.Remove "BOM_LIFECYCLE"
103 
	OraDatabase.Parameters.Remove "BOM_VERSION"
86 
    OraDatabase.Parameters.Remove "BOM_VERSION"
104 
	OraDatabase.Parameters.Remove "BRANCH_NAME"
87 
    OraDatabase.Parameters.Remove "BRANCH_NAME"
105 
	OraDatabase.Parameters.Remove "PROJ_NAME"
88 
    OraDatabase.Parameters.Remove "PROJ_NAME"
106
89
107 
		rsQry.Close()
 90 
    rsQry.Close()
108 
		Set rsQry = nothing
 91 
    Set rsQry = nothing
109 
 
 - 
 
- 
 
 92 
    Call Destroy_All_Objects()
110 
%>
 93 
%>
111 
 
 94 
 
112 
 
 95 
 
113 
 
 96 
 
114 
 
 97