Subversion Repositories DevTools

Rev

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

Rev 19 Rev 25
Line 2... Line 2...
2
'=====================================================
2
'=====================================================
3
'|	                  			                     |
3
'|	                  			                     |
4
'|	         	    REPORTS DEFINITION	  		     |
4
'|	         	    REPORTS DEFINITION	  		     |
5
'|                                                   |
5
'|                                                   |
6
'=====================================================
6
'=====================================================
-
 
7
 
-
 
8
' Good idea to set when using redirect
-
 
9
Response.Expires = 0	' always load the page, dont store
-
 
10
 
-
 
11
'To enable the script timeout to 10 mins
-
 
12
Server.ScriptTimeout=600
-
 
13
%>
-
 
14
 
-
 
15
<%
-
 
16
'------------ ACCESS CONTROL ------------------
-
 
17
%>
-
 
18
 
-
 
19
<%
-
 
20
'------------ Variable Definition -------------
-
 
21
Dim rsQry
-
 
22
Dim rsTemp
-
 
23
Dim parPv_id, parExt
-
 
24
Dim objReleaseContent
-
 
25
Dim aReleaseContent
-
 
26
Dim objPackageDetails
-
 
27
Dim	outobjDetails
-
 
28
Dim	pvIdList
-
 
29
Dim	dpv_id
-
 
30
'------------ Constants Declaration -----------
-
 
31
'------------ Variable Init -------------------
-
 
32
parBom_id = Request("bom_id")
-
 
33
parExt = Request("ext")
-
 
34
Set objReleaseContent = CreateObject("Scripting.Dictionary")
-
 
35
Set objPackageDetails = CreateObject("Scripting.Dictionary")
-
 
36
Set outobjDetails = CreateObject("Scripting.Dictionary")
-
 
37
'----------------------------------------------------------------------------------------------------------------------------------------
-
 
38
Sub GetPackageInformation ( nPv_id, ByRef oPackageDetails )
-
 
39
	Dim rsQry, query
-
 
40
	query = _
-
 
41
	" SELECT pkg.pkg_name, pv.* "&_
-
 
42
	"  FROM PACKAGES pkg,"&_
-
 
43
	"       PACKAGE_VERSIONS pv"&_
-
 
44
	" WHERE pv.pv_id = "& nPv_id &_
-
 
45
	"   AND pv.pkg_id = pkg.pkg_id	"
-
 
46
	
-
 
47
	Set rsQry = OraDatabase.DbCreateDynaset( query, 0)
-
 
48
	
-
 
49
	oPackageDetails.RemoveAll 
-
 
50
	
-
 
51
	If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then
-
 
52
		oPackageDetails("pkg_name") = rsQry("pkg_name")
-
 
53
		oPackageDetails("pkg_version") = rsQry("pkg_version")
-
 
54
		oPackageDetails("v_ext") = rsQry("v_ext")
-
 
55
		oPackageDetails("pv_description") = rsQry("pv_description")
-
 
56
		oPackageDetails("pv_overview") = rsQry("pv_overview")
-
 
57
		oPackageDetails("src_path") = rsQry("src_path")
-
 
58
		oPackageDetails("pkg_label") = rsQry("pkg_label")
-
 
59
		oPackageDetails("is_build_env_required") = rsQry("is_build_env_required")
-
 
60
		
-
 
61
	End If
-
 
62
	
-
 
63
	rsQry.Close()
-
 
64
	Set rsQry = Nothing
-
 
65
End Sub
-
 
66
'----------------------------------------------------------------------------------------------------------------------------------------
-
 
67
Function SQL_Build_Env ( nPv_id )
-
 
68
	SQL_Build_Env = _
-
 
69
	" SELECT be.*"&_
-
 
70
	"  FROM RELEASE_MANAGER.BUILD_ENVIRONMENTS be,"&_
-
 
71
	"	   RELEASE_MANAGER.PACKAGE_BUILD_ENV pbe"&_
-
 
72
	" WHERE pbe.PV_ID = "& nPv_id &_
-
 
73
	"   AND pbe.BE_ID = be.BE_ID "&_
-
 
74
	" ORDER BY UPPER(be.BE_NAME) "
-
 
75
End Function
-
 
76
'----------------------------------------------------------------------------------------------------------------------------------------
-
 
77
Function SQL_Modules (nPv_idList)
-
 
78
	SQL_Modules	= _
-
 
79
	"SELECT DISTINCT"&_
-
 
80
 	"   qry.DPV_ID "&_
-
 
81
    " FROM ("&_
-
 
82
 	"		SELECT dep.*,"&_
-
 
83
 	"			   LEVEL AS LEVEL_NUM"&_
-
 
84
 	"		  FROM PACKAGE_DEPENDENCIES dep"&_
-
 
85
 	"		START WITH dep.PV_ID IN ( "& nPv_idList &" ) "&_
-
 
86
 	"		CONNECT BY PRIOR dep.DPV_ID = dep.PV_ID"&_
-
 
87
 	"	) qry,"&_
-
 
88
 	"	PACKAGES pkg,"&_
-
 
89
	"	PACKAGE_VERSIONS pv"&_
-
 
90
 	" WHERE qry.PV_ID = pv.PV_ID AND pv.PKG_ID = pkg.PKG_ID"
-
 
91
End	Function
-
 
92
'----------------------------------------------------------------------------------------------------------------------------------------
-
 
93
Function SQL_Build_Dependencies ( nPv_id )
-
 
94
	SQL_Build_Dependencies = _
-
 
95
	" SELECT dpkg.pkg_name, dpv.pkg_version"&_
-
 
96
	"	  FROM PACKAGE_DEPENDENCIES dep,"&_
-
 
97
	"	  	   PACKAGES dpkg,"&_
-
 
98
	"		   PACKAGE_VERSIONS dpv"&_
-
 
99
	"	 WHERE dep.pv_id = "& nPv_id &_
-
 
100
	"	   AND dep.DPV_ID = dpv.pv_id"&_
-
 
101
	"	   AND dpv.pkg_id = dpkg.pkg_id	"&_   
-
 
102
	"	ORDER BY UPPER(dpkg.pkg_name) "
-
 
103
End Function
-
 
104
'----------------------------------------------------------------------------------------------------------------------------------------
-
 
105
Sub GetReleaseContent ( nBom_id, ByRef oReleaseContent )
-
 
106
	Dim rsQry, query
-
 
107
	
-
 
108
	
-
 
109
	
-
 
110
	query = _
-
 
111
	" SELECT qry.prod_id"&_
-
 
112
	"  FROM ("&_
-
 
113
	"			SELECT DISTINCT"&_ 
-
 
114
   	"    		osc.PROD_ID,"&_
-
 
115
	"			   pkg.pkg_name,"&_
-
 
116
	"   		pv.pkg_version,"&_
-
 
117
	"   		1	as	seq_num"&_
-
 
118
  	"			FROM bom_contents bc,"&_ 
-
 
119
   	"   		operating_systems os, "&_
-
 
120
    "  		 os_contents osc,"&_
-
 
121
	" 		  PACKAGES pkg,"&_
-
 
122
  	"  		 PACKAGE_VERSIONS pv,"&_
-
 
123
	"  		 PRODUCT_DETAILS pd"&_
-
 
124
	"			 WHERE osc.os_id = os.os_id "&_
-
 
125
   	"			AND os.node_id = bc.node_id"&_
-
 
126
   	"			AND bc.bom_id =	"&	nBom_id &_
-
 
127
   	"			AND pd.PROD_ID (+) = osc.PROD_ID"&_
-
 
128
   	"			AND pv.pkg_id = pkg.pkg_id"&_
-
 
129
   	"			AND osc.prod_id = pv.pv_id "&_
-
 
130
   	"			AND (pd.is_rejected IS NULL or pd.IS_REJECTED != 'Y')  "&_	
-
 
131
	"		UNION   "&_
-
 
132
	"		SELECT DISTINCT bec.prod_id,  pkg.pkg_name, pkg_version, 2	as	seq_num"&_
-
 
133
    "       FROM boms bm,"&_
-
 
134
    "            bom_contents bc,"&_
-
 
135
    "            network_nodes nn,"&_
-
 
136
    "            operating_systems os,"&_
-
 
137
    "            os_base_env obe,"&_
-
 
138
    "            base_env_contents bec,"&_
-
 
139
    "            PACKAGES pkg,"&_
-
 
140
    "            package_versions pv,"&_
-
 
141
    "            base_env be,"&_
-
 
142
    "            bos_types bt,"&_
-
 
143
	"            PRODUCT_DETAILS pd"&_
-
 
144
    "      WHERE bm.bom_id =	"&	nBom_id	&_
-
 
145
    "        AND bm.bom_id = bc.bom_id"&_
-
 
146
    "        AND nn.node_id = bc.node_id"&_
-
 
147
    "        AND os.node_id = nn.node_id"&_
-
 
148
    "        AND obe.os_id = os.os_id"&_
-
 
149
	"		AND pd.PROD_ID (+) = bec.PROD_ID"&_
-
 
150
   	"		AND (pd.is_rejected IS NULL or pd.IS_REJECTED != 'Y')  "&_		
-
 
151
    "        AND bec.base_env_id = obe.base_env_id"&_
-
 
152
    "        AND bec.prod_id = pv.pv_id"&_
-
 
153
    "        AND pkg.pkg_id = pv.pkg_id"&_
-
 
154
    "        AND be.base_env_id = obe.base_env_id"&_
-
 
155
    "       AND bt.bos_id = be.bos_id"&_
-
 
156
	"	   ) qry  "&_
-
 
157
	" ORDER BY  qry.seq_num, UPPER(qry.pkg_name), UPPER(qry.pkg_version)"
-
 
158
	
-
 
159
	Set rsQry = OraDatabase.DbCreateDynaset( query, 0)
-
 
160
	While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
-
 
161
		oReleaseContent( CStr( rsQry("prod_id")) ) = ""
-
 
162
		rsQry.MoveNext()
-
 
163
	WEnd
-
 
164
	
-
 
165
	rsQry.Close()
-
 
166
	Set rsQry = Nothing
-
 
167
End Sub
-
 
168
'----------------------------------------------------------------------------------------------------------------------------------------
-
 
169
 
7
%>
170
%>
-
 
171
 
8
<%
172
<%
9
Sub Reports_List ( SSgroup )
173
Sub Reports_List ( SSgroup )
10
	Dim repNum
174
	Dim repNum
11
%>  <!-- REPORTS LIST -------------------------------------------------------->
175
%>  <!-- REPORTS LIST -------------------------------------------------------->
12
	<%Select Case SSgroup%>
176
	<%Select Case SSgroup%>
13
	<%Case "Advanced_Search"%>
177
	<%Case "Advanced_Search"%>
14
	<%repNum = 1%>
-
 
15
	<strong>Find ClearQuest Bugs / Issues Location</strong><br>
-
 
16
    Use this advance search to locate bugs / issues imported to Release Manager from ClearQuest.<br> 
-
 
17
    <a href="rep_where_are_bugs_located.asp?repnum=<%=repNum%>&group=<%=SSgroup%>" class="txt_linked">more...</a><br><br><hr size="1" noshade color="#DAD7C8"> 
-
 
18
	<%repNum = 2%>
-
 
19
    <strong>Find Packages Using "Ignore Warnings" feature</strong><br>
-
 
20
    Lists packages which use "Ignore Warning" feature on their dependencies.<br> 
-
 
21
    <a href="rep_packages_using_ignore_feature.asp?repnum=<%=repNum%>&group=<%=SSgroup%>" class="txt_linked">more...</a><br><br><hr size="1" noshade color="#DAD7C8">
-
 
22
	<%repNum = 4%>
-
 
23
	<strong>Find A Package</strong><br>
-
 
24
    Use this advanced search to find a package in Release Manager<br> 
-
 
25
    <a href="rep_find_package.asp?repnum=<%=repNum%>&group=<%=SSgroup%>" class="txt_linked">more...</a><br><br><hr size="1" noshade color="#DAD7C8">
-
 
26
	<%repNum = 5%>
-
 
27
	<strong>Find Package Version History</strong><br>
-
 
28
    Find all package versions and their current locations.<br> 
-
 
29
    <a href="rep_package_version_history.asp?repnum=<%=repNum%>&group=<%=SSgroup%>" class="txt_linked">more...</a><br><br><hr size="1" noshade color="#DAD7C8">
-
 
30
	<%Case "Release_Status"%>
-
 
31
	<%repNum = 3%>
-
 
32
	<strong>Current Status of Release</strong><br>
-
 
33
	Shows all packages in a selected release with their current state, owner and last modifier.<br>
-
 
34
	<a href="rep_current_state_of_release.asp?repnum=<%=repNum%>&group=<%=SSgroup%>" class="txt_linked">more...</a><br><br><hr size="1" noshade color="#DAD7C8">
-
 
35
	<%repNum = 8%>
-
 
36
	<strong>Deployable Software Modules</strong><br>
-
 
37
	This report shows new and current deployable software modules. Use this report to find which modules will be deployed to the customer.<br>
-
 
38
	Also, use this report to find if there are new modules flaged as 'deployable'.<br>
-
 
39
	<a href="rep_depoyable_software_modules.asp?repnum=<%=repNum%>&group=<%=SSgroup%>" class="txt_linked">more...</a><br><br><hr size="1" noshade color="#DAD7C8">
-
 
40
	<%repNum = 7%>
-
 
41
	<strong>Unit Tests per Package</strong><br>
-
 
42
	Use this report to check the unit tests performed on packages in a project.<br>
-
 
43
	<a href="rep_unit_tests_per_package.asp?repnum=<%=repNum%>&group=<%=SSgroup%>" class="txt_linked">more...</a><br><br><hr size="1" noshade color="#DAD7C8">
-
 
44
	<strong>All Packages With out-of-sync Dependencies</strong><br>
-
 
45
	List of all packages with dependencies out-of-sync with the release environment.<br> 
-
 
46
	In escence, these are the packages which has versions in "latest" column of their dependencies.<br>
-
 
47
	Not available yet.<br><br><hr size="1" noshade color="#DAD7C8">
-
 
48
	<%Case "Bom_History"%>
-
 
49
	<%repNum = 9%>
178
	<%repNum = 9%>
50
	<strong>BOM History Tracker</strong><br>
179
	<strong>BOM History Tracker</strong><br>
51
	Use this report to find what changes occured in a BOM within specified date range.<br>
180
	Use this report to find what changes occured in a BOM within specified date range.<br>
52
	<a href="rep_bill_of_materials.asp?repnum=<%=repNum%>&group=<%=SSgroup%>" class="txt_linked">more...</a><br><br><hr size="1" noshade color="#DAD7C8">
181
	<a href="rep_bill_of_materials.asp?repnum=<%=repNum%>&group=<%=SSgroup%>" class="txt_linked">more...</a><br><br><hr size="1" noshade color="#DAD7C8">
-
 
182
	<%repNum = 4%>
-
 
183
	<strong>Find A Product</strong><br>
-
 
184
    Use this advanced search to find a product in Deployment Manager.<br> 
-
 
185
    <a href="rep_find_package.asp?repnum=<%=repNum%>&group=<%=SSgroup%>" class="txt_linked">more...</a><br><br><hr size="1" noshade color="#DAD7C8">
53
	<%Case "Admin_Reports"%>
186
	<%Case "Admin_Reports"%>
54
	<strong>All Packages by Project by Version Tree by Release</strong><br>
187
	<strong>All Packages by Project by Version Tree by Release</strong><br>
55
	CSV output of all packages used in Release Manager per Project.<br>
188
	CSV output of all packages used in Release Manager per Project.<br>
56
	<a href="rep_all_packages_by_project_by_vtree_by_release.asp" target="_blank" class="txt_linked">more...</a><br><br><hr size="1" noshade color="#DAD7C8">
189
	<a href="rep_all_packages_by_project_by_vtree_by_release.asp" target="_blank" class="txt_linked">more...</a><br><br><hr size="1" noshade color="#DAD7C8">
57
	<strong>All Runtime Dependencies by Project by Version Tree by Release</strong><br>
190
	<strong>All Runtime Dependencies by Project by Version Tree by Release</strong><br>
Line 61... Line 194...
61
	<strong>Unused Packages</strong><br>
194
	<strong>Unused Packages</strong><br>
62
	All packages (Not Products) with no entries in "Used By" tab.<br>
195
	All packages (Not Products) with no entries in "Used By" tab.<br>
63
    Use this report to help you clean up a release and remove all potentially unused packages.<br> 
196
    Use this report to help you clean up a release and remove all potentially unused packages.<br> 
64
    <a href="rep_obsolete_packages.asp?repnum=<%=repNum%>&group=<%=SSgroup%>" class="txt_linked">more...</a><br><br><hr size="1" noshade color="#DAD7C8">
197
    <a href="rep_obsolete_packages.asp?repnum=<%=repNum%>&group=<%=SSgroup%>" class="txt_linked">more...</a><br><br><hr size="1" noshade color="#DAD7C8">
65
	<%Case "Escrow"%>
198
	<%Case "Escrow"%>
66
	<%repNum = 9%>
199
	<%repNum = 11%>
67
	<strong>Bill of Materials (BOM)</strong><br>
200
	<strong>Escrow Report</strong><br>
68
	List of all ERG Products per network node for a particular 
201
	List of all Products/Patches for the BOM including modules. Use this report to provide a build roadmap.<br>
69
	project. Use this report to integrate a particular project.<br>
-
 
70
	<a href="rep_bill_of_materials.asp?repnum=<%=repNum%>&group=<%=SSgroup%>" class="txt_linked">more...</a><br><br><hr size="1" noshade color="#DAD7C8">
202
	<a href="escrow_report.asp?repnum=<%=repNum%>&group=<%=SSgroup%>" class="txt_linked">more...</a><br><br><hr size="1" noshade color="#DAD7C8">
71
	<strong>Build Dependencies per Package</strong><br>
-
 
72
	Use this report to build package from source code. The report 
-
 
73
	include package repository location, label and build dependencies.<br>
-
 
74
	Not available yet.<br><br><hr size="1" noshade color="#DAD7C8">
-
 
75
	<strong>Build Order</strong><br>
-
 
76
	Use this reports to find the order in which packages should be built.<br>
-
 
77
	Not available yet.<br><br><hr size="1" noshade color="#DAD7C8">
-
 
78
	<%Case "Bom_Difference"%>
203
	<%Case "Bom_Difference"%>
79
	<strong>BOM Version Difference Tool</strong><br>
204
	<strong>BOM Version Difference Tool</strong><br>
80
	Use this tool to find what changes occured in a BOM compared to another BOM. <br>
205
	Use this tool to find what changes occured in a BOM compared to another BOM. <br>
81
	A detailed report of changes between two BOMs can also be emailed upon user request.<br>
206
	A detailed report of changes between two BOMs can also be emailed upon user request.<br>
82
    <a href="diff.asp" class="txt_linked">more...</a><br><br><hr size="1" noshade color="#DAD7C8">	
207
    <a href="diff.asp" class="txt_linked">more...</a><br><br><hr size="1" noshade color="#DAD7C8">	
Line 217... Line 342...
217
Sub Get_Branches ( NNproj_id, NNrtag_id, BBallow_all )
342
Sub Get_Branches ( NNproj_id, NNrtag_id, BBallow_all )
218
	Dim rsTemp, Query_String
343
	Dim rsTemp, Query_String
219
	
344
	
220
	Query_String = _
345
	Query_String = _
221
	"SELECT * FROM branches WHERE proj_id = "& NNproj_id &" ORDER BY branch_id ASC"
346
	"SELECT * FROM branches WHERE proj_id = "& NNproj_id &" ORDER BY branch_id ASC"
222
	Set rsTemp = OraDatabaseDM.DbCreateDynaset( Query_String, cint(0))
347
	Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
223
	Response.write "<select name='FRbranch_id' onChange=""Cascaded_Menu('parent','"& scriptName &"?FRproj_id="& NNproj_id &"&group="& Request("group") &"&repnum="& Request("repnum") &"&FRrtag_id=',this,0)"" class='form_item'>"
348
	Response.write "<select name='FRbranch_id' onChange=""Cascaded_Menu('parent','"& scriptName &"?FRproj_id="& NNproj_id &"&group="& Request("group") &"&repnum="& Request("repnum") &"&FRrtag_id=',this,0)"" class='form_item'>"
224
	If BBallow_all Then
349
	If BBallow_all Then
225
		Response.write "<option value='-1'>ALL</option>"
350
		Response.write "<option value='-1'>ALL</option>"
226
	Else
351
	Else
227
		Response.write "<option></option>"
352
		Response.write "<option></option>"
Line 777... Line 902...
777
%>
902
%>
778
<%
903
<%
779
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------
904
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------
780
'==================================================================================
905
'==================================================================================
781
' Report Name		: 	Find a Package
906
' Report Name		: 	Find a Package
782
' Description		:	Locate a package in Release Manager
907
' Description		:	Locate a package/product in Deployment Manager
783
' Form Input		:	Package Name, version extension
908
' Form Input		:	Package Name, version extension
784
'==================================================================================
909
'==================================================================================
785
Sub Find_Package ( SSsection, SSpkg_name, SSv_ext )
910
Sub Find_Package ( SSsection, SSpkg_name, SSv_ext )
786
	Dim Query_String, rsRep, oRegExp
911
	Dim Query_String, rsRep, oRegExp
787
	
912
	
788
	
913
	
789
	If SSsection = "TITLE" Then
914
	If SSsection = "TITLE" Then
790
		Response.write "Find a Package"
915
		Response.write "Find a Product"
791
		Exit Sub
916
		Exit Sub
792
	End If
917
	End If
793
	
918
	
794
	
919
	
795
	If SSsection = "FORM" Then
920
	If SSsection = "FORM" Then
796
	%>
921
	%>
797
	<table width="100%" border="0" cellpadding="2" cellspacing="1">
922
	<table width="100%" border="0" cellpadding="2" cellspacing="1">
798
	  <form action="<%=scriptName%>" method="post" name="repform" onSubmit="MM_validateForm('FRpkg_name','Package Name','R');return document.MM_returnValue">
923
	  <form action="<%=scriptName%>" method="post" name="repform" onSubmit="MM_validateForm('FRpkg_name','Package Name','R');return document.MM_returnValue">
799
      <tr> 
924
      <tr> 
800
        <td width="1%" nowrap class="form_field"><img src="images/spacer.gif" width="1" height="8"></td>
925
        <td width="1%" nowrap class="form_field"><img src="images/spacer.gif" width="1" height="8"></td>
801
        <td width="1%" align="right" nowrap class="form_field" valign="top">Package Name</td>
926
        <td width="1%" align="right" nowrap class="form_field" valign="top">Product Name</td>
802
        <td class="form_txt"><input type="text" name="FRpkg_name" size="30" class="form_item" value="<%=SSpkg_name%>"><br>
927
        <td class="form_txt"><input type="text" name="FRpkg_name" size="30" class="form_item" value="<%=SSpkg_name%>"><br>
803
		HINTS:<br>
928
		HINTS:<br>
804
		- You can use * wildcard. e.g. *0123 or 0123* or *0123*<br><br></td>
929
		- You can use * wildcard. e.g. *sec or port* or *pkgmnt*<br><br></td>
805
      </tr>
930
      </tr>
806
      <tr> 
931
      <tr> 
807
        <td nowrap class="form_field">&nbsp;</td>
932
        <td nowrap class="form_field">&nbsp;</td>
808
        <td align="right" nowrap class="form_field" valign="top">Version Extension (optional)</td>
933
        <td align="right" nowrap class="form_field" valign="top">Version Extension (optional)</td>
809
        <td class="form_txt"><input type="text" name="FRv_ext" size="10" class="form_item" value="<%=SSv_ext%>"><br>
934
        <td class="form_txt"><input type="text" name="FRv_ext" size="10" class="form_item" value="<%=SSv_ext%>"><br>
Line 848... Line 973...
848
		Else
973
		Else
849
			Query_String = ReadFile( rootPath & "queries\rep_find_package.sql" )
974
			Query_String = ReadFile( rootPath & "queries\rep_find_package.sql" )
850
			Query_String = Replace ( Query_String, "/*PKG_NAME*/", Replace( SQLstring(SSpkg_name), "*", "%") )
975
			Query_String = Replace ( Query_String, "/*PKG_NAME*/", Replace( SQLstring(SSpkg_name), "*", "%") )
851
			Query_String = Replace ( Query_String, "/*V_EXT*/", Replace( SQLstring(SSv_ext), "*", "%") )
976
			Query_String = Replace ( Query_String, "/*V_EXT*/", Replace( SQLstring(SSv_ext), "*", "%") )
852
		End If
977
		End If
853
		
-
 
854
		Response.Write(Query_String)
-
 
855
	%>
978
	%>
856
	<table width="100%" border="0" cellspacing="0" cellpadding="2">
979
	<table width="100%" border="0" cellspacing="0" cellpadding="2">
857
      <tr> 
980
      <tr> 
858
        <td width="1%" nowrap class="body_colb">Package Name and Version&nbsp;&nbsp;&nbsp;</td>
981
        <td width="1%" nowrap class="body_colb">Product Name and Version&nbsp;&nbsp;&nbsp;</td>
859
		<td width="1%" nowrap class="body_colb">Location</td>
982
		<td width="1%" nowrap class="body_colb">Location</td>
860
        <td width="100%" nowrap class="body_colb">&nbsp;</td>
983
        <td width="100%" nowrap class="body_colb">&nbsp;</td>
861
      </tr>
984
      </tr>
862
      <tr> 
985
      <tr> 
863
        <td colspan="3" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
986
        <td colspan="3" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
Line 898... Line 1021...
898
		  ' -------- END GROUP ------------------------
1021
		  ' -------- END GROUP ------------------------
899
		  %>
1022
		  %>
900
		  <%If NOT IsNull(rsRep("proj_name")) Then%>
1023
		  <%If NOT IsNull(rsRep("proj_name")) Then%>
901
	      <tr> 
1024
	      <tr> 
902
		  	<td class="body_row"></td>
1025
		  	<td class="body_row"></td>
903
	        <td nowrap class="body_row" valign="top"><%=rsRep("proj_name") &" &gt; "& rsRep("vtree_name") &" &gt; "& rsRep("rtag_name") &" &gt; <a href='dependencies.asp?pv_id="& rsRep("pv_id") &"&rtag_id="& rsRep("rtag_id") &"' class='txt_linked'>"& rsRep("pkg_name") &" "& rsRep("pkg_version") &"</a>"%></td>
1026
	        <td nowrap class="body_row" valign="top"><%=rsRep("proj_name") &" &gt; "& rsRep("branch_name") &" &gt; "& rsRep("bom_name") &" "& rsRep("version") &" &gt;"& rsRep("node_name") &" &gt;"& rsRep("os_name") &" &gt;<a href='OsDefault.asp?bom_id="& rsRep("bom_id") &"&os_id="& rsRep("os_id") &"' class='txt_linked'>"& rsRep("pkg_name") &" "& rsRep("pkg_version") &"</a>"%></td>
904
			<td class="body_row"></td>
1027
			<td class="body_row"></td>
905
	      </tr>
1028
	      </tr>
906
		  <%Else%>
1029
		  <%Else%>
907
		  <tr> 
1030
		  <tr> 
908
		  	<td class="body_row"></td>
1031
		  	<td class="body_row"></td>
Line 924... Line 1047...
924
	<a href="javascript:;" onClick="window.print();" class="txt_linked"><img src="images/btn_print.gif" width="23" height="24" hspace="4" border="0" align="absmiddle">Print this report</a><br>
1047
	<a href="javascript:;" onClick="window.print();" class="txt_linked"><img src="images/btn_print.gif" width="23" height="24" hspace="4" border="0" align="absmiddle">Print this report</a><br>
925
	<br>
1048
	<br>
926
	<%End If%>
1049
	<%End If%>
927
	<!-- PRINT, SAVE, ETC. END -------->
1050
	<!-- PRINT, SAVE, ETC. END -------->
928
	<%
1051
	<%
929
		rsRep.Close
1052
		rsRep.Close()
930
		Set rsRep = nothing
1053
		Set rsRep = nothing
931
	End If
1054
	End If
932
	
1055
	
933
End Sub
1056
End Sub
934
%>
1057
%>
Line 1621... Line 1744...
1621
		Set rsRep = nothing
1744
		Set rsRep = nothing
1622
	End If
1745
	End If
1623
	
1746
	
1624
End Sub
1747
End Sub
1625
%>
1748
%>
-
 
1749
<%
-
 
1750
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------
-
 
1751
'==================================================================================
-
 
1752
' Report Name		: 	Escrow Report
-
 
1753
' Description		:	Report to extract Products/Patches for Building A RoadMap
-
 
1754
' INPUT				:	
-
 
1755
'==================================================================================
-
 
1756
Sub Escrow_Report (SSsection, NNproj_id, NNrtag_id, NNbom_id, NNversion)
-
 
1757
	Dim Query_String, rsRep, rsQry
-
 
1758
	Const Allow_All = TRUE
-
 
1759
	Const Disallow_All = FALSE
-
 
1760
	
-
 
1761
	If NNproj_id = "" Then NNproj_id = -1
-
 
1762
	If NNrtag_id = "" Then NNrtag_id = -1
-
 
1763
	If NNversion = "" Then NNversion = -1
-
 
1764
	
-
 
1765
	If SSsection = "TITLE" Then
-
 
1766
		Response.write "Generation of ESCROW REPORT"
-
 
1767
		Exit Sub
-
 
1768
	End If
-
 
1769
	
-
 
1770
	
-
 
1771
	If SSsection = "FORM" Then
-
 
1772
	%>
-
 
1773
	<table width="100%" border="0" cellpadding="2" cellspacing="1">
-
 
1774
	  <form action="<%=scriptName%>" method="post" name="repform" onSubmit="MM_validateForm('FRproj_id','Project','R','FRvtree_id','Version Tree','R','FRrtag_id','Release','R');return document.MM_returnValue">
-
 
1775
      <tr> 
-
 
1776
        <td width="1%" nowrap class="form_field"><img src="images/spacer.gif" width="30" height="8"></td>
-
 
1777
        <td width="1%" align="right" nowrap class="form_field">Project</td>
-
 
1778
        <td width="100%"><%Call Get_Projects( NNproj_id, Disallow_All )%></td>
-
 
1779
      </tr>
-
 
1780
      <tr> 
-
 
1781
        <td nowrap class="form_field">&nbsp;</td>
-
 
1782
        <td align="right" nowrap class="form_field">Release</td>
-
 
1783
        <td><%Call Get_Branches ( NNproj_id, NNrtag_id, Disallow_All )%></td>
-
 
1784
      </tr>
-
 
1785
 	  <tr> 
-
 
1786
        <td nowrap class="form_field">&nbsp;</td>
-
 
1787
        <td align="right" nowrap class="form_field">SBOM Version</td>
-
 
1788
        <td><%Call Get_SBOM_Version ( NNproj_id, NNrtag_id, Disallow_All, NNversion )%></td>
-
 
1789
      </tr> 
-
 
1790
      <tr> 
-
 
1791
        <td nowrap class="form_field">&nbsp;</td>
-
 
1792
        <td align="right" nowrap class="form_field">&nbsp;</td>
-
 
1793
        <td><br>
-
 
1794
			<input type="hidden" name="group" value="<%=parGroup%>">
-
 
1795
			<input type="hidden" name="repnum" value="<%=parRepNum%>">
-
 
1796
			<input type="hidden" name="FRrtag_id" value="<%=NNrtag_id%>">
-
 
1797
			<input type="hidden" name="action" value="true">
-
 
1798
		<input name="Submit" type="submit" class="form_btn" value="Submit"> 
-
 
1799
        </td>
-
 
1800
      </tr>
-
 
1801
	  </form>
-
 
1802
    </table>
-
 
1803
	<p>
-
 
1804
      <%	Exit Sub
-
 
1805
	End If
-
 
1806
	
-
 
1807
	
-
 
1808
	
-
 
1809
	OraDatabase.Parameters.Add "BRANCH_ID", NNrtag_id, ORAPARM_INPUT, ORATYPE_NUMBER
-
 
1810
	OraDatabase.Parameters.Add "BOM_VERSION", Request("FRVersion"), ORAPARM_INPUT, ORATYPE_STRING
-
 
1811
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("rep_SBOM.sql"), cint(0))
-
 
1812
	Dim bomId, ext
-
 
1813
	bomId = rsQry("bom_id")
-
 
1814
	Set rsQry = OraDatabase.DbCreateDynaset( "select * from release_manager.project_extentions where proj_id="&NNproj_id, cint(0))
-
 
1815
	ext = rsQry("ext_name")
-
 
1816
	rsQry.close
-
 
1817
	Set rsQry = nothing	
-
 
1818
	
-
 
1819
	
-
 
1820
	If SSsection = "BODY" Then
-
 
1821
		If NOT CBool(Request("action")) Then Exit Sub
-
 
1822
 
-
 
1823
'---------------------- Run Before Page ---------------------------
-
 
1824
Call GetReleaseContent ( bomId, objReleaseContent )
-
 
1825
 
-
 
1826
Call	GetBomDetails	(bomId, outobjDetails)
-
 
1827
outobjDetails.Item("bom_full_version") = outobjDetails.Item("bom_name")&"	"&	outobjDetails.Item("bom_version") &"."& outobjDetails.Item("bom_lifecycle")
-
 
1828
 
1626
 
1829
 
-
 
1830
'------------------------------------------------------------------
-
 
1831
%>
-
 
1832
<html>
-
 
1833
<head>
-
 
1834
<title>Deployment Manager - Escrow Report</title>
-
 
1835
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
-
 
1836
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
-
 
1837
</head>
-
 
1838
<body>
-
 
1839
<div align="center"><b><font col color="#FF0000" size="+3"><%=outobjDetails.Item("bom_full_version")%></font></b></div>
-
 
1840
<%
-
 
1841
Set outobjDetails = Nothing
-
 
1842
 
-
 
1843
aReleaseContent = objReleaseContent.Keys
-
 
1844
For Each parPv_id In aReleaseContent
-
 
1845
	pvIdList = pvIdList +	parPv_id	+	","
-
 
1846
	Call GetPackageInformation ( parPv_id, objPackageDetails )
-
 
1847
%>					<a name="<%=objPackageDetails.Item("pkg_name")%>"></a>
-
 
1848
					<table width="100%" border="0" cellspacing="0" cellpadding="0">
-
 
1849
					  <tr>
-
 
1850
                       	<td class="body_colb"><h3><%=objPackageDetails.Item("pkg_name")%></h3></td>
-
 
1851
					  </tr>
-
 
1852
					</table>
-
 
1853
		            <table width="100%" border="0" cellspacing="0" cellpadding="0">
-
 
1854
					  <tr> 
-
 
1855
		                <td nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>Version:</strong></td>
-
 
1856
		                <td bgcolor="#FFFFFF" class="sublbox_txt"><%=objPackageDetails.Item("pkg_version")%></td>
-
 
1857
		              </tr>
-
 
1858
		              <tr>
-
 
1859
		                <td nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>Source Path:</strong> </td>
-
 
1860
		                <td bgcolor="#FFFFFF" class="sublbox_txt"><%=objPackageDetails.Item("src_path")%></td>
-
 
1861
		              </tr>
-
 
1862
					  <tr> 
-
 
1863
		                <td nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>Source Label:</strong></td>
-
 
1864
		                <td bgcolor="#FFFFFF" class="sublbox_txt"><%=objPackageDetails.Item("pkg_label")%></td>
-
 
1865
		              </tr>
-
 
1866
					  <tr> 
-
 
1867
		                <td width="1%" nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>Short Description:</strong></td>
-
 
1868
		                <td witdh="100%" bgcolor="#FFFFFF" class="sublbox_txt"><%=NewLine_To_BR ( To_HTML( objPackageDetails.Item("pv_description") ) )%></td>
-
 
1869
		              </tr>
-
 
1870
		              <tr> 
-
 
1871
		                <td nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>Package Overview:</strong> </td>
-
 
1872
		                <td bgcolor="#FFFFFF" class="sublbox_txt"><%=NewLine_To_BR ( To_HTML( objPackageDetails.Item("pv_overview") ) )%></td>
-
 
1873
		              </tr>
-
 
1874
					  <tr> 
-
 
1875
		                <td nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>General Sublicense Material:</strong> </td>
-
 
1876
		                <td bgcolor="#FFFFFF" class="sublbox_txt"><%If objPackageDetails.Item("v_ext") = ext Then%>Yes<%Else%>No<%End If%></td>
-
 
1877
		              </tr>
-
 
1878
					  <tr> 
-
 
1879
		                <td nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>Build Environment:</strong> </td>
-
 
1880
		                <td bgcolor="#FFFFFF" class="sublbox_txt"><%If objPackageDetails.Item("is_build_env_required") = enumDB_NO Then%>Not Required.<%End If%>
-
 
1881
						<%
-
 
1882
						'--- Get Build Env Details
-
 
1883
						Set rsQry = OraDatabase.DbCreateDynaset( SQL_Build_Env ( parPv_id ), cint(0))
-
 
1884
						%>
-
 
1885
						  <ul>
-
 
1886
						  <%
-
 
1887
						  While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
-
 
1888
						  %>
-
 
1889
                          <li><%=rsQry("be_name")%></li>
-
 
1890
						  <%rsQry.MoveNext
-
 
1891
						  WEnd
-
 
1892
						  %>
-
 
1893
                          </ul>
-
 
1894
					   </td>
-
 
1895
		              </tr>
-
 
1896
					  <tr> 
-
 
1897
		                <td nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>Build Dependencies:</strong> </td>
-
 
1898
		                <td bgcolor="#FFFFFF" class="sublbox_txt">
-
 
1899
						<%
-
 
1900
						'--- Get Build Dependencies Details
-
 
1901
						
-
 
1902
						Set rsQry = OraDatabase.DbCreateDynaset( SQL_Build_Dependencies ( parPv_id ), cint(0))
-
 
1903
						%>
-
 
1904
                        <table width="100%"  cellspacing="0" cellpadding="2" border="1">
-
 
1905
						  <tr>
-
 
1906
                            <td nowrap class="sublbox_txt" bgcolor="#FFFFFF" width="1%"><strong>Software Component</strong></td>
-
 
1907
							<td nowrap class="sublbox_txt" bgcolor="#FFFFFF" width="100%"><strong>Version</strong></td>
-
 
1908
                          </tr>
-
 
1909
						  <%If rsQry.RecordCount < 1 Then%>
-
 
1910
						  <tr>
-
 
1911
                            <td nowrap class="sublbox_txt">No Dependencies</td>
-
 
1912
							<td nowrap class="sublbox_txt"></td>
-
 
1913
                          </tr>
-
 
1914
						  <%End If%>
-
 
1915
						  <%
-
 
1916
						  While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
-
 
1917
						  %>
-
 
1918
                          <tr>
-
 
1919
                            <td nowrap class="sublbox_txt"><a href="#<%=rsQry("pkg_name")%>"><%=rsQry("pkg_name")%></a></td>
-
 
1920
							<td nowrap class="sublbox_txt"><%=rsQry("pkg_version")%></td>
-
 
1921
                          </tr>
-
 
1922
						  <%rsQry.MoveNext
-
 
1923
						  WEnd
-
 
1924
						  %>
-
 
1925
                        </table>
-
 
1926
					   </td>
-
 
1927
		              </tr>
-
 
1928
		            </table>
-
 
1929
		            <br><br>
-
 
1930
<%
-
 
1931
	'Exit For
-
 
1932
Next
-
 
1933
pvIdList = Mid(pvIdList, 1, Len(pvIdList) - 1)
-
 
1934
Set	rsTemp	=	OraDatabase.DbCreateDynaset( SQL_Modules ( pvIdList ), cint(0))
-
 
1935
 
-
 
1936
 
-
 
1937
%>		
-
 
1938
<div align="center"><b><font col color="#FF0000" size="+3">Modules</font></b></div>			
-
 
1939
<%
-
 
1940
While (NOT rsTemp.BOF) AND (NOT rsTemp.EOF)
-
 
1941
dpv_id = rsTemp("dpv_id")
-
 
1942
Call GetPackageInformation ( dpv_id, objPackageDetails )
-
 
1943
%>					<a name="<%=objPackageDetails.Item("pkg_name")%>"></a>
-
 
1944
					<table width="100%" border="0" cellspacing="0" cellpadding="0">
-
 
1945
					  <tr>
-
 
1946
                       	<td class="body_colb"><h3><%=objPackageDetails.Item("pkg_name")%></h3></td>
-
 
1947
					  </tr>
-
 
1948
					</table>
-
 
1949
		            <table width="100%" border="0" cellspacing="0" cellpadding="0">
-
 
1950
					  <tr> 
-
 
1951
		                <td nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>Version:</strong></td>
-
 
1952
		                <td bgcolor="#FFFFFF" class="sublbox_txt"><%=objPackageDetails.Item("pkg_version")%></td>
-
 
1953
		              </tr>
-
 
1954
		              <tr>
-
 
1955
		                <td nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>Source Path:</strong> </td>
-
 
1956
		                <td bgcolor="#FFFFFF" class="sublbox_txt"><%=objPackageDetails.Item("src_path")%></td>
-
 
1957
		              </tr>
-
 
1958
					  <tr> 
-
 
1959
		                <td nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>Source Label:</strong></td>
-
 
1960
		                <td bgcolor="#FFFFFF" class="sublbox_txt"><%=objPackageDetails.Item("pkg_label")%></td>
-
 
1961
		              </tr>
-
 
1962
					  <tr> 
-
 
1963
		                <td width="1%" nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>Short Description:</strong></td>
-
 
1964
		                <td witdh="100%" bgcolor="#FFFFFF" class="sublbox_txt"><%=NewLine_To_BR ( To_HTML( objPackageDetails.Item("pv_description") ) )%></td>
-
 
1965
		              </tr>
-
 
1966
		              <tr> 
-
 
1967
		                <td nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>Package Overview:</strong> </td>
-
 
1968
		                <td bgcolor="#FFFFFF" class="sublbox_txt"><%=NewLine_To_BR ( To_HTML( objPackageDetails.Item("pv_overview") ) )%></td>
-
 
1969
		              </tr>
-
 
1970
					  <tr> 
-
 
1971
		                <td nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>General Sublicense Material:</strong> </td>
-
 
1972
		                <td bgcolor="#FFFFFF" class="sublbox_txt"><%If objPackageDetails.Item("v_ext") = parExt Then%>Yes<%Else%>No<%End If%></td>
-
 
1973
		              </tr>
-
 
1974
					  <tr> 
-
 
1975
		                <td nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>Build Environment:</strong> </td>
-
 
1976
		                <td bgcolor="#FFFFFF" class="sublbox_txt"><%If objPackageDetails.Item("is_build_env_required") = enumDB_NO Then%>Not Required.<%End If%>
-
 
1977
						<%
-
 
1978
						'--- Get Build Env Details
-
 
1979
						Set rsQry = OraDatabase.DbCreateDynaset( SQL_Build_Env ( dpv_id ), cint(0))
-
 
1980
						%>
-
 
1981
						  <ul>
-
 
1982
						  <%
-
 
1983
						  While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
-
 
1984
						  %>
-
 
1985
                          <li><%=rsQry("be_name")%></li>
-
 
1986
						  <%rsQry.MoveNext
-
 
1987
						  WEnd
-
 
1988
						  %>
-
 
1989
                          </ul>
-
 
1990
					   </td>
-
 
1991
		              </tr>
-
 
1992
					  <tr> 
-
 
1993
		                <td nowrap bgcolor="#FFFFFF" class="sublbox_txt" valign="top"><strong>Build Dependencies:</strong> </td>
-
 
1994
		                <td bgcolor="#FFFFFF" class="sublbox_txt">
-
 
1995
						<%
-
 
1996
						'--- Get Build Dependencies Details
-
 
1997
						
-
 
1998
						Set rsQry = OraDatabase.DbCreateDynaset( SQL_Build_Dependencies ( dpv_id ), cint(0))
-
 
1999
						%>
-
 
2000
                        <table width="100%"  cellspacing="0" cellpadding="2" border="1">
-
 
2001
						  <tr>
-
 
2002
                            <td nowrap class="sublbox_txt" bgcolor="#FFFFFF" width="1%"><strong>Software Component</strong></td>
-
 
2003
							<td nowrap class="sublbox_txt" bgcolor="#FFFFFF" width="100%"><strong>Version</strong></td>
-
 
2004
                          </tr>
-
 
2005
						  <%If rsQry.RecordCount < 1 Then%>
-
 
2006
						  <tr>
-
 
2007
                            <td nowrap class="sublbox_txt">No Dependencies</td>
-
 
2008
							<td nowrap class="sublbox_txt"></td>
-
 
2009
                          </tr>
-
 
2010
						  <%End If%>
-
 
2011
						  <%
-
 
2012
						  While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
-
 
2013
						  %>
-
 
2014
                          <tr>
-
 
2015
                            <td nowrap class="sublbox_txt"><a href="#<%=rsQry("pkg_name")%>"><%=rsQry("pkg_name")%></a></td>
-
 
2016
							<td nowrap class="sublbox_txt"><%=rsQry("pkg_version")%></td>
-
 
2017
                          </tr>
-
 
2018
						  <%rsQry.MoveNext
-
 
2019
						  WEnd
-
 
2020
						  %>
-
 
2021
                        </table>
-
 
2022
					   </td>
-
 
2023
		              </tr>
-
 
2024
		            </table>
-
 
2025
		            <br><br>
-
 
2026
 
-
 
2027
<%
-
 
2028
rsTemp.MoveNext
-
 
2029
WEnd
-
 
2030
 
-
 
2031
rsTemp.Close()
-
 
2032
Set rsTemp = Nothing
-
 
2033
	End If
-
 
2034
End Sub
-
 
2035
%>
1627
<%
2036
<%
1628
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------
2037
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------
1629
'==================================================================================
2038
'==================================================================================
1630
' Report Name		: 	Build History
2039
' Report Name		: 	Build History
1631
' Description		:	List packages which were build between certain dates.
2040
' Description		:	List packages which were build between certain dates.