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 24... Line 24...
24 
'------------ CONSTANTS DECLARATION -----------
 24 
'------------ CONSTANTS DECLARATION -----------
25 
'------------ VARIABLE INIT -------------------
 25 
'------------ VARIABLE INIT -------------------
26 
sbom = Request("sbom")
 26 
sbom = Request("sbom")
27 
'------------ CONDITIONS ----------------------
 27 
'------------ CONDITIONS ----------------------
28 
'----------------------------------------------
 28 
'----------------------------------------------
29 
%>
 - 
 
30 
 
 - 
 
31 
 
 - 
 
32 
 
 - 
 
33 
<%
 - 
 
34 
newline = chr(13) + chr(10)
 29 
newline = chr(13) + chr(10)
35 
 
 30 
 
36 
 
 - 
 
37 
pos = InStrRev(sbom, ".")
 31 
pos = InStrRev(sbom, ".")
38 
bom_version = sbom
32 
bom_version = sbom
39 
bom_lifecycle = 0
 33 
bom_lifecycle = 0
40 
 
 34 
 
41 
If pos <> 0 Then
 35 
If pos <> 0 Then
42 
	bom_version = Mid(sbom,1,pos-1)
 36 
    bom_version = Mid(sbom,1,pos-1)
43 
	bom_lifecycle = Mid(sbom,pos+1,len(sbom)-len(bom_version))
 37 
    bom_lifecycle = Mid(sbom,pos+1,len(sbom)-len(bom_version))
44 
End If
 38 
End If
45 
 
 39 
 
46 
 
 40 
 
47 
'AllHttp =  Request.ServerVariables("ALL_HTTP")
 41 
'AllHttp =  Request.ServerVariables("ALL_HTTP")
48 
'Response.Write(AllHttp)
 42 
'Response.Write(AllHttp)
49 
'pos = InStr(AllHttp, "os_id=")
 43 
'pos = InStr(AllHttp, "os_id=")
50 
'pos2 = Instr(pos+6, AllHttp,"")
 44 
'pos2 = Instr(pos+6, AllHttp,"")
51 
'Response.Write(AllHttp)
 45 
'Response.Write(AllHttp)
52 
'os_id = Mid(AllHttp, pos+6, 4)
 46 
'os_id = Mid(AllHttp, pos+6, 4)
53 
'If (InStr(os_id,"&")) Then
 47 
'If (InStr(os_id,"&")) Then
54 
'	os_id = Mid(os_id,1,3)
 48 
'   os_id = Mid(os_id,1,3)
55 
'End If
 49 
'End If
56 
 
 50 
 
57 
	OraDatabase.Parameters.Add "PROJ_NAME", 		Request("project"),		ORAPARM_INPUT, ORATYPE_VARCHAR2
51 
    OraDatabase.Parameters.Add "PROJ_NAME",         Request("project"),     ORAPARM_INPUT, ORATYPE_VARCHAR2
58 
	OraDatabase.Parameters.Add "BRANCH_NAME", 		Request("release"),		ORAPARM_INPUT, ORATYPE_VARCHAR2
52 
    OraDatabase.Parameters.Add "BRANCH_NAME",       Request("release"),     ORAPARM_INPUT, ORATYPE_VARCHAR2
59 
	OraDatabase.Parameters.Add "BOM_VERSION", 		bom_version,		ORAPARM_INPUT, ORATYPE_NUMBER
 53 
    OraDatabase.Parameters.Add "BOM_VERSION",       bom_version,        ORAPARM_INPUT, ORATYPE_NUMBER
60 
	OraDatabase.Parameters.Add "BOM_LIFECYCLE", 	bom_lifecycle,		ORAPARM_INPUT, ORATYPE_NUMBER
54 
    OraDatabase.Parameters.Add "BOM_LIFECYCLE",     bom_lifecycle,      ORAPARM_INPUT, ORATYPE_NUMBER
61
55
62 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("bom_patches.sql"), ORADYN_DEFAULT )
 56 
    Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("bom_patches.sql"), ORADYN_DEFAULT )
63 
%>
- 
 
64 
 
 - 
 
65 
 
 - 
 
66 
<%
 - 
 
67 
	While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
 57 
    While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
68 
	OraDatabase.Parameters.Add "PV_ID", 	rsQry("pv_id"),		ORAPARM_INPUT, ORATYPE_NUMBER
58 
        OraDatabase.Parameters.Add "PV_ID",     rsQry("pv_id"),     ORAPARM_INPUT, ORATYPE_NUMBER
69 
	Set rsPD = OraDatabase.DbCreateDynaset( GetQuery ("pd_patch.sql"), ORADYN_DEFAULT )
59 
        Set rsPD = OraDatabase.DbCreateDynaset( GetQuery ("pd_patch.sql"), ORADYN_DEFAULT )
70
60
71 
%>
61 
%>
72 
 
 - 
 
73 
<%=rsQry("pkg_name")%><%=Chr(9)%>
 62 
<%=rsQry("pkg_name")%><%=Chr(9)%>
74 
<%=rsQry("pkg_version")%><%=Chr(9)%>
 63 
<%=rsQry("pkg_version")%><%=Chr(9)%>
75 
<%=rsPD("pkg_name")%><%=Chr(9)%>
 64 
<%=rsPD("pkg_name")%><%=Chr(9)%>
76 
<%=rsPD("pkg_version")%><%=Chr(9)%>
 65 
<%=rsPD("pkg_version")%><%=Chr(9)%>
77 
<%=rsQry("os_name")%><%=Chr(9)%>
 66 
<%=rsQry("os_name")%><%=Chr(9)%>
78 
<%=newline%>
 67 
<%=newline%>
- 
 
 68 
<%
79 
 
 69 
 
80 
 
 - 
 
81 
<%
70
82 
 
 - 
 
83
- 
 
84 
	OraDatabase.Parameters.Remove "PV_ID"
71 
        OraDatabase.Parameters.Remove "PV_ID"
85 
		rsPD.Close()
 72 
        rsPD.Close()
86 
		Set rsPD = nothing
 73 
        Set rsPD = nothing
87 
		rsQry.MoveNext
74 
        rsQry.MoveNext
88 
		WEnd
75 
    WEnd
89 
 
 76 
 
90 
	OraDatabase.Parameters.Remove "BOM_LIFECYCLE"
77 
    OraDatabase.Parameters.Remove "BOM_LIFECYCLE"
91 
	OraDatabase.Parameters.Remove "BOM_VERSION"
78 
    OraDatabase.Parameters.Remove "BOM_VERSION"
92 
	OraDatabase.Parameters.Remove "BRANCH_NAME"
79 
    OraDatabase.Parameters.Remove "BRANCH_NAME"
93 
	OraDatabase.Parameters.Remove "PROJ_NAME"
80 
    OraDatabase.Parameters.Remove "PROJ_NAME"
94
81
95 
		rsQry.Close()
 82 
    rsQry.Close()
96 
		Set rsQry = nothing
 83 
    Set rsQry = nothing
97 
 
 - 
 
- 
 
 84 
    Call Destroy_All_Objects
98 
%>
 85 
%>
99 
 
 86 
 
100 
 
 87 
 
101 
 
 88 
 
102 
 
 89