Subversion Repositories DevTools

Rev

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

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