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

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

Subversion Repositories DevTools

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