WebSVN – DevTools – Blame – /ManagerSuite/Deployment_Manager/branches/dpurdie/rep_escrow.asp

Rev	Author	Line No.	Line
25	rsolanki	1	`<%@LANGUAGE="VBSCRIPT"%>`
		2	`<%`
		3	`'=====================================================`
		4	`'\| \|`
		5	`'\| REPORT \|`
		6	`'\| Escrow \|`
		7	`'=====================================================`
		8	`%>`
		9	`<%`
		10	`Option explicit`
		11	`' Good idea to set when using redirect`
		12	`Response.Expires = 0 ' always load the page, dont store`
		13
		14	`'To enable the script timeout to 10 mins`
		15	`Server.ScriptTimeout=600`
		16	`%>`
		17	`<!--#include file="common/config.asp"-->`
		18	`<!--#include file="common/common_subs.asp"-->`
		19	`<!--#include file="common/globals.asp"-->`
		20	`<!--#include file="common/formating.asp"-->`
		21	`<!--#include file="common/qstr.asp"-->`
		22	`<!--#include file="common/common_dbedit.asp"-->`
		23	`<%`
		24	`'------------ ACCESS CONTROL ------------------`
		25	`%>`
		26	`<!--#include file="_access_control_general.asp"-->`
		27	`<%`
		28	`'------------ Variable Definition -------------`
		29	`Dim rsQry`
		30	`Dim rsTemp`
		31	`Dim parPv_id, parExt`
		32	`Dim objReleaseContent`
		33	`Dim aReleaseContent`
		34	`Dim objPackageDetails`
		35	`Dim outobjDetails`
		36	`Dim pvIdList`
		37	`Dim dpv_id`
		38	`'------------ Constants Declaration -----------`
		39	`'------------ Variable Init -------------------`
		40	`parBom_id = Request("bom_id")`
		41	`parExt = Request("ext")`
		42	`Set objReleaseContent = CreateObject("Scripting.Dictionary")`
		43	`Set objPackageDetails = CreateObject("Scripting.Dictionary")`
		44	`Set outobjDetails = CreateObject("Scripting.Dictionary")`
		45	`'----------------------------------------------`
		46	`%>`
		47	`<%`
		48	`'----------------------------------------------------------------------------------------------------------------------------------------`
		49	`Sub GetPackageInformation ( nPv_id, ByRef oPackageDetails )`
		50	`Dim rsQry, query`
		51	`query = _`
		52	`" SELECT pkg.pkg_name, pv.* "&_`
		53	`" FROM PACKAGES pkg,"&_`
		54	`" PACKAGE_VERSIONS pv"&_`
		55	`" WHERE pv.pv_id = "& nPv_id &_`
		56	`" AND pv.pkg_id = pkg.pkg_id "`
		57
		58	`Set rsQry = OraDatabase.DbCreateDynaset( query, 0)`
		59
		60	`oPackageDetails.RemoveAll`
		61
		62	`If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then`
		63	`oPackageDetails("pkg_name") = rsQry("pkg_name")`
		64	`oPackageDetails("pkg_version") = rsQry("pkg_version")`
		65	`oPackageDetails("v_ext") = rsQry("v_ext")`
		66	`oPackageDetails("pv_description") = rsQry("pv_description")`
		67	`oPackageDetails("pv_overview") = rsQry("pv_overview")`
		68	`oPackageDetails("src_path") = rsQry("src_path")`
		69	`oPackageDetails("pkg_label") = rsQry("pkg_label")`
		70	`oPackageDetails("is_build_env_required") = rsQry("is_build_env_required")`
		71
		72	`End If`
		73
		74	`rsQry.Close()`
		75	`Set rsQry = Nothing`
		76	`End Sub`
		77	`'----------------------------------------------------------------------------------------------------------------------------------------`
		78	`Function SQL_Build_Env ( nPv_id )`
		79	`SQL_Build_Env = _`
		80	`" SELECT be.*"&_`
		81	`" FROM RELEASE_MANAGER.BUILD_ENVIRONMENTS be,"&_`
		82	`" RELEASE_MANAGER.PACKAGE_BUILD_ENV pbe"&_`
		83	`" WHERE pbe.PV_ID = "& nPv_id &_`
		84	`" AND pbe.BE_ID = be.BE_ID "&_`
		85	`" ORDER BY UPPER(be.BE_NAME) "`
		86	`End Function`
		87	`'----------------------------------------------------------------------------------------------------------------------------------------`
		88	`Function SQL_Modules (nPv_idList)`
		89	`SQL_Modules = _`
		90	`"SELECT DISTINCT"&_`
		91	`" qry.DPV_ID "&_`
		92	`" FROM ("&_`
		93	`" SELECT dep.*,"&_`
		94	`" LEVEL AS LEVEL_NUM"&_`
		95	`" FROM PACKAGE_DEPENDENCIES dep"&_`
		96	`" START WITH dep.PV_ID IN ( "& nPv_idList &" ) "&_`
		97	`" CONNECT BY PRIOR dep.DPV_ID = dep.PV_ID"&_`
		98	`" ) qry,"&_`
		99	`" PACKAGES pkg,"&_`
		100	`" PACKAGE_VERSIONS pv"&_`
		101	`" WHERE qry.PV_ID = pv.PV_ID AND pv.PKG_ID = pkg.PKG_ID"`
		102	`End Function`
		103	`'----------------------------------------------------------------------------------------------------------------------------------------`
		104	`Function SQL_Build_Dependencies ( nPv_id )`
		105	`SQL_Build_Dependencies = _`
		106	`" SELECT dpkg.pkg_name, dpv.pkg_version"&_`
		107	`" FROM PACKAGE_DEPENDENCIES dep,"&_`
		108	`" PACKAGES dpkg,"&_`
		109	`" PACKAGE_VERSIONS dpv"&_`
		110	`" WHERE dep.pv_id = "& nPv_id &_`
		111	`" AND dep.DPV_ID = dpv.pv_id"&_`
		112	`" AND dpv.pkg_id = dpkg.pkg_id "&_`
		113	`" ORDER BY UPPER(dpkg.pkg_name) "`
		114	`End Function`
		115	`'----------------------------------------------------------------------------------------------------------------------------------------`
		116	`Sub GetReleaseContent ( nBom_id, ByRef oReleaseContent )`
		117	`Dim rsQry, query`
		118
		119
		120
		121	`query = _`
		122	`" SELECT qry.prod_id"&_`
		123	`" FROM ("&_`
		124	`" SELECT DISTINCT"&_`
		125	`" osc.PROD_ID,"&_`
		126	`" pkg.pkg_name,"&_`
		127	`" pv.pkg_version,"&_`
		128	`" 1 as seq_num"&_`
		129	`" FROM bom_contents bc,"&_`
		130	`" operating_systems os, "&_`
		131	`" os_contents osc,"&_`
		132	`" PACKAGES pkg,"&_`
		133	`" PACKAGE_VERSIONS pv,"&_`
		134	`" PRODUCT_DETAILS pd"&_`
		135	`" WHERE osc.os_id = os.os_id "&_`
		136	`" AND os.node_id = bc.node_id"&_`
		137	`" AND bc.bom_id = "& nBom_id &_`
		138	`" AND pd.PROD_ID (+) = osc.PROD_ID"&_`
		139	`" AND pv.pkg_id = pkg.pkg_id"&_`
		140	`" AND osc.prod_id = pv.pv_id "&_`
		141	`" AND (pd.is_rejected IS NULL or pd.IS_REJECTED != 'Y') "&_`
		142	`" UNION "&_`
		143	`" SELECT DISTINCT bec.prod_id, pkg.pkg_name, pkg_version, 2 as seq_num"&_`
		144	`" FROM boms bm,"&_`
		145	`" bom_contents bc,"&_`
		146	`" network_nodes nn,"&_`
		147	`" operating_systems os,"&_`
		148	`" os_base_env obe,"&_`
		149	`" base_env_contents bec,"&_`
		150	`" PACKAGES pkg,"&_`
		151	`" package_versions pv,"&_`
		152	`" base_env be,"&_`
		153	`" bos_types bt,"&_`
		154	`" PRODUCT_DETAILS pd"&_`
		155	`" WHERE bm.bom_id = "& nBom_id &_`
		156	`" AND bm.bom_id = bc.bom_id"&_`
		157	`" AND nn.node_id = bc.node_id"&_`
		158	`" AND os.node_id = nn.node_id"&_`
		159	`" AND obe.os_id = os.os_id"&_`
		160	`" AND pd.PROD_ID (+) = bec.PROD_ID"&_`
		161	`" AND (pd.is_rejected IS NULL or pd.IS_REJECTED != 'Y') "&_`
		162	`" AND bec.base_env_id = obe.base_env_id"&_`
		163	`" AND bec.prod_id = pv.pv_id"&_`
		164	`" AND pkg.pkg_id = pv.pkg_id"&_`
		165	`" AND be.base_env_id = obe.base_env_id"&_`
		166	`" AND bt.bos_id = be.bos_id"&_`
		167	`" ) qry "&_`
		168	`" ORDER BY qry.seq_num, UPPER(qry.pkg_name), UPPER(qry.pkg_version)"`
		169
		170	`Set rsQry = OraDatabase.DbCreateDynaset( query, 0)`
		171	`While (NOT rsQry.BOF) AND (NOT rsQry.EOF)`
		172	`oReleaseContent( CStr( rsQry("prod_id")) ) = ""`
		173	`rsQry.MoveNext()`
		174	`WEnd`
		175
		176	`rsQry.Close()`
		177	`Set rsQry = Nothing`
		178	`End Sub`
		179	`'----------------------------------------------------------------------------------------------------------------------------------------`
		180
		181	`%>`
		182	`<%`
		183	`'---------------------- Run Before Page ---------------------------`
		184	`Call GetReleaseContent ( parBom_id, objReleaseContent )`
		185
		186	`Call GetBomDetails (parBom_id, outobjDetails)`
		187	`outobjDetails.Item("bom_full_version") = outobjDetails.Item("bom_name")&" "& outobjDetails.Item("bom_version") &"."& outobjDetails.Item("bom_lifecycle")`
		188
		189
		190	`'------------------------------------------------------------------`
		191	`%>`
		192	`<html>`
		193	`<head>`
		194	`<title>Deployment Manager - Escrow Report</title>`
		195	`<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">`
		196	`<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">`
		197	`</head>`
		198	`<body>`
		199	`<div align="center"><b><font col color="#FF0000" size="+3"><%=outobjDetails.Item("bom_full_version")%></font></b></div>`
		200	`<%`
		201	`Set outobjDetails = Nothing`
		202
		203	`aReleaseContent = objReleaseContent.Keys`
		204	`For Each parPv_id In aReleaseContent`
		205	`pvIdList = pvIdList + parPv_id + ","`
		206	`Call GetPackageInformation ( parPv_id, objPackageDetails )`
		207	`%> <a name="<%=objPackageDetails.Item("pkg_name")%>"></a>`
		208	`<table width="100%" border="0" cellspacing="0" cellpadding="0">`
		209	`<tr>`
		210	`<td class="body_colb"><h3><%=objPackageDetails.Item("pkg_name")%></h3></td>`
		211	`</tr>`
		212	`</table>`
		213	`<table width="100%" border="0" cellspacing="0" cellpadding="0">`
		214	`<tr>`
		215	`<td nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>Version:</strong></td>`
		216	`<td bgcolor="#FFFFFF" class="sublbox_txt"><%=objPackageDetails.Item("pkg_version")%></td>`
		217	`</tr>`
		218	`<tr>`
		219	`<td nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>Source Path:</strong> </td>`
		220	`<td bgcolor="#FFFFFF" class="sublbox_txt"><%=objPackageDetails.Item("src_path")%></td>`
		221	`</tr>`
		222	`<tr>`
		223	`<td nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>Source Label:</strong></td>`
		224	`<td bgcolor="#FFFFFF" class="sublbox_txt"><%=objPackageDetails.Item("pkg_label")%></td>`
		225	`</tr>`
		226	`<tr>`
		227	`<td width="1%" nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>Short Description:</strong></td>`
		228	`<td witdh="100%" bgcolor="#FFFFFF" class="sublbox_txt"><%=NewLine_To_BR ( To_HTML( objPackageDetails.Item("pv_description") ) )%></td>`
		229	`</tr>`
		230	`<tr>`
		231	`<td nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>Package Overview:</strong> </td>`
		232	`<td bgcolor="#FFFFFF" class="sublbox_txt"><%=NewLine_To_BR ( To_HTML( objPackageDetails.Item("pv_overview") ) )%></td>`
		233	`</tr>`
		234	`<tr>`
		235	`<td nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>General Sublicense Material:</strong> </td>`
		236	`<td bgcolor="#FFFFFF" class="sublbox_txt"><%If objPackageDetails.Item("v_ext") = parExt Then%>Yes<%Else%>No<%End If%></td>`
		237	`</tr>`
		238	`<tr>`
		239	`<td nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>Build Environment:</strong> </td>`
		240	`<td bgcolor="#FFFFFF" class="sublbox_txt"><%If objPackageDetails.Item("is_build_env_required") = enumDB_NO Then%>Not Required.<%End If%>`
		241	`<%`
		242	`'--- Get Build Env Details`
		243	`Set rsQry = OraDatabase.DbCreateDynaset( SQL_Build_Env ( parPv_id ), cint(0))`
		244	`%>`
		245	`<ul>`
		246	`<%`
		247	`While (NOT rsQry.BOF) AND (NOT rsQry.EOF)`
		248	`%>`
		249	`<li><%=rsQry("be_name")%></li>`
		250	`<%rsQry.MoveNext`
		251	`WEnd`
		252	`%>`
		253	`</ul>`
		254	`</td>`
		255	`</tr>`
		256	`<tr>`
		257	`<td nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>Build Dependencies:</strong> </td>`
		258	`<td bgcolor="#FFFFFF" class="sublbox_txt">`
		259	`<%`
		260	`'--- Get Build Dependencies Details`
		261
		262	`Set rsQry = OraDatabase.DbCreateDynaset( SQL_Build_Dependencies ( parPv_id ), cint(0))`
		263	`%>`
		264	`<table width="100%" cellspacing="0" cellpadding="2" border="1">`
		265	`<tr>`
		266	`<td nowrap class="sublbox_txt" bgcolor="#FFFFFF" width="1%"><strong>Software Component</strong></td>`
		267	`<td nowrap class="sublbox_txt" bgcolor="#FFFFFF" width="100%"><strong>Version</strong></td>`
		268	`</tr>`
		269	`<%If rsQry.RecordCount < 1 Then%>`
		270	`<tr>`
		271	`<td nowrap class="sublbox_txt">No Dependencies</td>`
		272	`<td nowrap class="sublbox_txt"></td>`
		273	`</tr>`
		274	`<%End If%>`
		275	`<%`
		276	`While (NOT rsQry.BOF) AND (NOT rsQry.EOF)`
		277	`%>`
		278	`<tr>`
		279	`<td nowrap class="sublbox_txt"><a href="#<%=rsQry("pkg_name")%>"><%=rsQry("pkg_name")%></a></td>`
		280	`<td nowrap class="sublbox_txt"><%=rsQry("pkg_version")%></td>`
		281	`</tr>`
		282	`<%rsQry.MoveNext`
		283	`WEnd`
		284	`%>`
		285	`</table>`
		286	`</td>`
		287	`</tr>`
		288	`</table>`
		289	`<br><br>`
		290	`<%`
		291	`'Exit For`
		292	`Next`
		293	`pvIdList = Mid(pvIdList, 1, Len(pvIdList) - 1)`
		294	`Set rsTemp = OraDatabase.DbCreateDynaset( SQL_Modules ( pvIdList ), cint(0))`
		295
		296
		297	`%>`
		298	`<div align="center"><b><font col color="#FF0000" size="+3">Modules</font></b></div>`
		299	`<%`
		300	`While (NOT rsTemp.BOF) AND (NOT rsTemp.EOF)`
		301	`dpv_id = rsTemp("dpv_id")`
		302	`Call GetPackageInformation ( dpv_id, objPackageDetails )`
		303	`%> <a name="<%=objPackageDetails.Item("pkg_name")%>"></a>`
		304	`<table width="100%" border="0" cellspacing="0" cellpadding="0">`
		305	`<tr>`
		306	`<td class="body_colb"><h3><%=objPackageDetails.Item("pkg_name")%></h3></td>`
		307	`</tr>`
		308	`</table>`
		309	`<table width="100%" border="0" cellspacing="0" cellpadding="0">`
		310	`<tr>`
		311	`<td nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>Version:</strong></td>`
		312	`<td bgcolor="#FFFFFF" class="sublbox_txt"><%=objPackageDetails.Item("pkg_version")%></td>`
		313	`</tr>`
		314	`<tr>`
		315	`<td nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>Source Path:</strong> </td>`
		316	`<td bgcolor="#FFFFFF" class="sublbox_txt"><%=objPackageDetails.Item("src_path")%></td>`
		317	`</tr>`
		318	`<tr>`
		319	`<td nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>Source Label:</strong></td>`
		320	`<td bgcolor="#FFFFFF" class="sublbox_txt"><%=objPackageDetails.Item("pkg_label")%></td>`
		321	`</tr>`
		322	`<tr>`
		323	`<td width="1%" nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>Short Description:</strong></td>`
		324	`<td witdh="100%" bgcolor="#FFFFFF" class="sublbox_txt"><%=NewLine_To_BR ( To_HTML( objPackageDetails.Item("pv_description") ) )%></td>`
		325	`</tr>`
		326	`<tr>`
		327	`<td nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>Package Overview:</strong> </td>`
		328	`<td bgcolor="#FFFFFF" class="sublbox_txt"><%=NewLine_To_BR ( To_HTML( objPackageDetails.Item("pv_overview") ) )%></td>`
		329	`</tr>`
		330	`<tr>`
		331	`<td nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>General Sublicense Material:</strong> </td>`
		332	`<td bgcolor="#FFFFFF" class="sublbox_txt"><%If objPackageDetails.Item("v_ext") = parExt Then%>Yes<%Else%>No<%End If%></td>`
		333	`</tr>`
		334	`<tr>`
		335	`<td nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>Build Environment:</strong> </td>`
		336	`<td bgcolor="#FFFFFF" class="sublbox_txt"><%If objPackageDetails.Item("is_build_env_required") = enumDB_NO Then%>Not Required.<%End If%>`
		337	`<%`
		338	`'--- Get Build Env Details`
		339	`Set rsQry = OraDatabase.DbCreateDynaset( SQL_Build_Env ( dpv_id ), cint(0))`
		340	`%>`
		341	`<ul>`
		342	`<%`
		343	`While (NOT rsQry.BOF) AND (NOT rsQry.EOF)`
		344	`%>`
		345	`<li><%=rsQry("be_name")%></li>`
		346	`<%rsQry.MoveNext`
		347	`WEnd`
		348	`%>`
		349	`</ul>`
		350	`</td>`
		351	`</tr>`
		352	`<tr>`
		353	`<td nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>Build Dependencies:</strong> </td>`
		354	`<td bgcolor="#FFFFFF" class="sublbox_txt">`
		355	`<%`
		356	`'--- Get Build Dependencies Details`
		357
		358	`Set rsQry = OraDatabase.DbCreateDynaset( SQL_Build_Dependencies ( dpv_id ), cint(0))`
		359	`%>`
		360	`<table width="100%" cellspacing="0" cellpadding="2" border="1">`
		361	`<tr>`
		362	`<td nowrap class="sublbox_txt" bgcolor="#FFFFFF" width="1%"><strong>Software Component</strong></td>`
		363	`<td nowrap class="sublbox_txt" bgcolor="#FFFFFF" width="100%"><strong>Version</strong></td>`
		364	`</tr>`
		365	`<%If rsQry.RecordCount < 1 Then%>`
		366	`<tr>`
		367	`<td nowrap class="sublbox_txt">No Dependencies</td>`
		368	`<td nowrap class="sublbox_txt"></td>`
		369	`</tr>`
		370	`<%End If%>`
		371	`<%`
		372	`While (NOT rsQry.BOF) AND (NOT rsQry.EOF)`
		373	`%>`
		374	`<tr>`
		375	`<td nowrap class="sublbox_txt"><a href="#<%=rsQry("pkg_name")%>"><%=rsQry("pkg_name")%></a></td>`
		376	`<td nowrap class="sublbox_txt"><%=rsQry("pkg_version")%></td>`
		377	`</tr>`
		378	`<%rsQry.MoveNext`
		379	`WEnd`
		380	`%>`
		381	`</table>`
		382	`</td>`
		383	`</tr>`
		384	`</table>`
		385	`<br><br>`
		386
		387	`<%`
		388	`rsTemp.MoveNext`
		389	`WEnd`
		390
		391	`rsTemp.Close()`
		392	`Set rsTemp = Nothing`
		393	`%>`
		394	`</body>`
		395	`</html>`

Subversion Repositories DevTools

(root)/ManagerSuite/Deployment_Manager/branches/dpurdie/rep_escrow.asp – Rev 25