Subversion Repositories DevTools

Rev

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

Rev 19 Rev 25
Line 13... Line 13...
13 
		<script language="VBScript" src="config.vbs"/>
 13 
		<script language="VBScript" src="config.vbs"/>
14 
		<script id="GenerateXMLNodeDefnitions" language="VBScript">
 14 
		<script id="GenerateXMLNodeDefnitions" language="VBScript">
15 
<![CDATA[
 15 
<![CDATA[
16 
Option Explicit
 16 
Option Explicit
17 
'=====================================================
 17 
'=====================================================
18 
'        Name: 	GetComponents
 18 
'        Name: 	POST BOM RELEASE
19 
' Description:	Connects to dpkg_archive and gets the
 19 
' Description:	Generates the BOM XML files that gets
20 
' 				content of folders and files of certain
 - 
 
21 
' 				package. It then stores this info into
- 
 
22 
'				Release Manager database. This info can
 - 
 
23 
' 				later be included in release notes Or
 - 
 
24 
' 				searched with search engine.
 20 
'				consumed by the CFManager.
25 
' 		INPUT:  pkg_name
 21 
' 		INPUT:  BOM_ID
26 
'				pkg_version
 - 
 
27 
'=====================================================
 22 
'=====================================================
28 
 
 23 
 
29 
'== Variable Definition ==============================
 24 
'== Variable Definition ==============================
30 
Dim BomId
 25 
Dim BomId
31 
Dim objArgs
 26 
Dim objArgs
Line 33... Line 28...
33 
'== Variable Init ====================================
 28 
'== Variable Init ====================================
34 
'=====================================================
 29 
'=====================================================
35 
 
 30 
 
36 
 
 31 
 
37 
'-----------------------------------------------------------------------------------------------------------------
 32 
'-----------------------------------------------------------------------------------------------------------------
38 
Sub GenerateXMLNodeDefinitionsWindows ( nBomId )
 33 
Sub GenerateXMLNodeDefinitions ( nBomId, OS )
39 
	Dim rsQry, aNetworkNodes, XMLNode, DateString
 34 
	Dim rsQry, aNetworkNodes, XMLNode, DateString
40 
	Dim lastRow, row
 35 
	Dim lastRow, row, platform
41
36
42 
	' Remove existing stuff
 37 
	' Remove existing stuff
43 
	Call DeleteFile( APP_ROOT &"downloads\*" )
 38 
	Call DeleteFile( APP_ROOT &"downloads\*" )
44
39
45
40
Line 54... Line 49...
54
49
55 
	End If
 50 
	End If
56
51
57 
	lastRow = UBound( aNetworkNodes, 2 )
 52 
	lastRow = UBound( aNetworkNodes, 2 )
58 
	DateString = DateReversed( Date )
 53 
	DateString = DateReversed( Date )
59
- 
 
60 
	For row = 0 To lastRow
 - 
 
61
- 
 
62 
		XMLNode = Null
 - 
 
63
- 
 
64 
		XMLNode = XMLNode &_
 - 
 
65 
		"	<BomHeader>"& vbNewLine &_
 - 
 
66 
		"		<release_ident></release_ident>"& vbNewLine &_
 - 
 
67 
  		"		<bom_name>"& aNetworkNodes( 1, row ) &" Windows</bom_name>"& vbNewLine &_
 - 
 
68 
	  	"		<bom_type>system</bom_type>"& vbNewLine &_
 - 
 
69 
	  	"		<bom_version>"& aNetworkNodes( 2, row ) &"."& aNetworkNodes( 3, row ) &"</bom_version>"& vbNewLine &_
 - 
 
70 
	  	"		<bom_date>"& DateString &"</bom_date>"& vbNewLine &_
 - 
 
71 
	  	"		<bom_status>REG</bom_status>"& vbNewLine &_
 - 
 
72 
	  	"		<bom_status_date>"& DateString &"</bom_status_date>"& vbNewLine &_
 - 
 
73 
		"	</BomHeader>"& vbNewLine
- 
 
74
- 
 
75 
 
 - 
 
76 
		'-- Get Node Base Configurations Details For Windows OS --
 - 
 
77 
		XMLNode = XMLNode & GetNodeBaseConfigDetailsWindows ( nBomId, aNetworkNodes( 0, row ) ) & vbNewLine
- 
 
78 
 
 54 
 
79
- 
 
80 
		'-- Get Node Product Details For Windows OS --
 55 
	If OS = 1 Then platform = "Windows" Else platform = "SunOS"
81 
		XMLNode = XMLNode & GetNodeDetailsWindows ( nBomId, aNetworkNodes( 0, row ) ) & vbNewLine
- 
 
82
- 
 
83
- 
 
84 
		' Close xml node tag before saving
 - 
 
85 
		XMLNode = _
 - 
 
86 
		"<BomDistribution>"& vbNewLine &_
 - 
 
87 
		XMLNode &"</BomDistribution>"& vbNewLine
 - 
 
88
- 
 
89 
		'WScript.Echo XMLNode
 - 
 
90
- 
 
91 
		If GetNodeBaseConfigDetailsWindows ( nBomId, aNetworkNodes( 0, row ) ) <> "" OR GetNodeDetailsWindows ( nBomId, aNetworkNodes( 0, row ) ) <> "" Then
 - 
 
92 
			' Save to a file
 - 
 
93 
			Call SaveFile( DateString, rsQry("version"), rsQry("branch_name"), APP_ROOT &"downloads",  FormatFileName( aNetworkNodes( 1, row ) ) &"_Windows.xml", XMLNode )
 - 
 
94 
		End If
- 
 
95
- 
 
96 
	Next
 - 
 
97
- 
 
98
- 
 
99
- 
 
100
- 
 
101
- 
 
102 
End Sub
 - 
 
103 
'-----------------------------------------------------------------------------------------------------------------
 - 
 
104 
Sub GenerateXMLNodeDefinitionsSunOS ( nBomId )
 - 
 
105 
	Dim rsQry, aNetworkNodes, XMLNode, DateString
 - 
 
106 
	Dim lastRow, row
 - 
 
107
- 
 
108 
	' Remove existing stuff
 - 
 
109 
	Call DeleteFile( APP_ROOT &"downloads\*" )
 - 
 
110
- 
 
111
- 
 
112 
	OraDatabase.Parameters.Add "BOM_ID", nBomId, ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
113
- 
 
114 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("NetworkNodes.sql"), ORADYN_DEFAULT )
 - 
 
115
- 
 
116 
	OraDatabase.Parameters.Remove "BOM_ID"
 - 
 
117
- 
 
118 
	If rsQry.RecordCount > 0 Then
 - 
 
119 
		aNetworkNodes = rsQry.GetRows()
 - 
 
120
- 
 
121 
	End If
 - 
 
122
- 
 
123 
	lastRow = UBound( aNetworkNodes, 2 )
 - 
 
124 
	DateString = DateReversed( Date )
 - 
 
125
56
126 
	For row = 0 To lastRow
 57 
	For row = 0 To lastRow
127
58
128 
		XMLNode = Null
 59 
		XMLNode = Null
129
60
130 
		XMLNode = XMLNode &_
 61 
		XMLNode = XMLNode &_
131 
		"	<BomHeader>"& vbNewLine &_
 62 
		"	<BomHeader>"& vbNewLine &_
132 
		"		<release_ident></release_ident>"& vbNewLine &_
 63 
		"		<release_ident></release_ident>"& vbNewLine &_
133 
  		"		<bom_name>"& aNetworkNodes( 1, row ) &" SunOS</bom_name>"& vbNewLine &_
 64 
  		"		<bom_name>"& aNetworkNodes( 1, row ) &" "& platform &"</bom_name>"& vbNewLine &_
134 
	  	"		<bom_type>system</bom_type>"& vbNewLine &_
 65 
	  	"		<bom_type>system</bom_type>"& vbNewLine &_
135 
	  	"		<bom_version>"& aNetworkNodes( 2, row ) &"."& aNetworkNodes( 3, row ) &"</bom_version>"& vbNewLine &_
 66 
	  	"		<bom_version>"& aNetworkNodes( 2, row ) &"."& aNetworkNodes( 3, row ) &"</bom_version>"& vbNewLine &_
136 
	  	"		<bom_date>"& DateString &"</bom_date>"& vbNewLine &_
 67 
	  	"		<bom_date>"& DateString &"</bom_date>"& vbNewLine &_
137 
	  	"		<bom_status>REG</bom_status>"& vbNewLine &_
 68 
	  	"		<bom_status>REG</bom_status>"& vbNewLine &_
138 
	  	"		<bom_status_date>"& DateString &"</bom_status_date>"& vbNewLine &_
 69 
	  	"		<bom_status_date>"& DateString &"</bom_status_date>"& vbNewLine &_
139 
		"	</BomHeader>"& vbNewLine
70 
		"	</BomHeader>"& vbNewLine
140
71
- 
 
 72 
		If OS = 1 Then
- 
 
 73 
			'-- Get Node Base Configurations Details For Windows OS --
- 
 
 74 
			XMLNode = XMLNode & GetNodeBaseConfigDetails ( nBomId, aNetworkNodes( 0, row ), OS ) & vbNewLine
- 
 
 75 
			'-- Get Node Product Details For Windows OS --
- 
 
 76 
			XMLNode = XMLNode & GetNodeDetails ( nBomId, aNetworkNodes( 0, row ), OS ) & vbNewLine
- 
 
 77 
		Else
- 
 
 78 
			'-- Get Node Base Configurations Details For SunOS --
- 
 
 79 
			XMLNode = XMLNode & GetNodeBaseConfigDetails ( nBomId, aNetworkNodes( 0, row ), OS ) & vbNewLine
- 
 
 80 
			'-- Get Node Product Details For SunOS --
- 
 
 81 
			XMLNode = XMLNode & GetNodeDetails ( nBomId, aNetworkNodes( 0, row ), OS ) & vbNewLine
- 
 
 82 
		End If
141 
 
 83 
 
142 
		'-- Get Node Base Configurations Details For Sun OS --
 - 
 
143 
		XMLNode = XMLNode & GetNodeBaseConfigDetailsSunOS ( nBomId, aNetworkNodes( 0, row ) ) & vbNewLine
- 
 
144 
 
 - 
 
145
- 
 
146 
		'-- Get Node Product Details For Sun OS --
 - 
 
147 
		XMLNode = XMLNode & GetNodeDetailsSunOS ( nBomId, aNetworkNodes( 0, row ) ) & vbNewLine
- 
 
148
- 
 
149
- 
 
150 
		' Close xml node tag before saving
 84 
		' Close xml node tag before saving
151 
		XMLNode = _
 85 
		XMLNode = _
152 
		"<BomDistribution>"& vbNewLine &_
 86 
		"<BomDistribution>"& vbNewLine &_
153 
		XMLNode &"</BomDistribution>"& vbNewLine
 87 
		XMLNode &"</BomDistribution>"& vbNewLine
154
88
155 
		'WScript.Echo XMLNode
 89 
		'WScript.Echo XMLNode
156
90
- 
 
 91 
		If OS = 1 Then
157 
		If GetNodeBaseConfigDetailsSunOS ( nBomId, aNetworkNodes( 0, row ) ) <> "" OR GetNodeDetailsSunOS ( nBomId, aNetworkNodes( 0, row ) ) <> "" Then
92 
			If GetNodeBaseConfigDetails ( nBomId, aNetworkNodes( 0, row ), OS ) <> "" OR GetNodeDetails ( nBomId, aNetworkNodes( 0, row ), OS ) <> "" Then
158 
			' Save to a file
 93 
				' Save to a file
159 
			Call SaveFile( DateString, rsQry("version"), rsQry("branch_name"), APP_ROOT &"downloads",  FormatFileName( aNetworkNodes( 1, row ) ) &"_SunOS.xml", XMLNode )
 94 
				Call SaveFile( DateString, rsQry("version"), rsQry("branch_name"), APP_ROOT &"downloads",  FormatFileName( aNetworkNodes( 1, row ) ) &"_Windows.xml", XMLNode )
160 
		End If
 95 
			End If
- 
 
 96 
		Else
- 
 
 97 
			If GetNodeBaseConfigDetails ( nBomId, aNetworkNodes( 0, row ), OS ) <> "" OR GetNodeDetails ( nBomId, aNetworkNodes( 0, row ), OS ) <> "" Then
- 
 
 98 
				' Save to a file
- 
 
 99 
				Call SaveFile( DateString, rsQry("version"), rsQry("branch_name"), APP_ROOT &"downloads",  FormatFileName( aNetworkNodes( 1, row ) ) &"_SunOS.xml", XMLNode )
- 
 
 100 
			End If
- 
 
 101 
		End If
161
102
162 
	Next
 103 
	Next
163
104
164
105
165
106
Line 178... Line 119...
178
119
179 
	FormatFileName = sReturn
 120 
	FormatFileName = sReturn
180
121
181 
End Function
 122 
End Function
182 
'-----------------------------------------------------------------------------------------------------------------
 123 
'-----------------------------------------------------------------------------------------------------------------
183 
Function GetNodeBaseConfigDetailsWindows ( nBomId, nNodeId )
 124 
Function GetNodeBaseConfigDetails ( nBomId, nNodeId, OS )
184 
	Dim rsQry, XMLPackageString, pkgName, pkgReleaseType, osType
 125 
	Dim rsQry, XMLPackageString, pkgName, pkgReleaseType, osType, pkgVersion
185
126
186 
	OraDatabase.Parameters.Add "BOM_ID", nBomId, ORAPARM_INPUT, ORATYPE_NUMBER
127 
	OraDatabase.Parameters.Add "BOM_ID", nBomId, ORAPARM_INPUT, ORATYPE_NUMBER
187 
	OraDatabase.Parameters.Add "NODE_ID", nNodeId, ORAPARM_INPUT, ORATYPE_NUMBER
128 
	OraDatabase.Parameters.Add "NODE_ID", nNodeId, ORAPARM_INPUT, ORATYPE_NUMBER
188
129
- 
 
 130 
	If OS = 1 Then
189 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("NodeBaseConfigsWindows.sql"), ORADYN_DEFAULT )
 131 
		Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("NodeBaseConfigsWindows.sql"), ORADYN_DEFAULT )
- 
 
 132 
	Else
- 
 
 133 
		Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("NodeBaseConfigsSunOS.sql"), ORADYN_DEFAULT )
- 
 
 134 
	End If
190
135
191 
	OraDatabase.Parameters.Remove "BOM_ID"
 136 
	OraDatabase.Parameters.Remove "BOM_ID"
192 
	OraDatabase.Parameters.Remove "NODE_ID"
 137 
	OraDatabase.Parameters.Remove "NODE_ID"
193
138
194
139
195 
	While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
 140 
	While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
196
- 
 
197 
		If rsQry("is_patch") <> "" Then
 141 
		'Extract the Package Name
198 
			If rsQry("patch_electronic_name") <> "" Then
 - 
 
199 
				pkgName = rsQry("patch_electronic_name")
 - 
 
200 
			Else
 - 
 
201 
				pkgName = rsQry("pkg_name")
 142 
		pkgName = rsQry("pkg_name")
202 
			End If
 143 
		If OS = 1 Then
203 
		Else
 - 
 
204 
			If rsQry("win_electronic_name") <> "" Then
 144 
			If rsQry("win_electronic_name") <> "" Then
205 
				pkgName = rsQry("win_electronic_name")
 145 
				pkgName = rsQry("win_electronic_name")
206 
			Else
 - 
 
207 
				pkgName = rsQry("pkg_name")
 - 
 
208 
			End If
 - 
 
209 
		End If
 - 
 
210 
 
 - 
 
211 
		If rsQry("is_patch") = "Y" Then
 - 
 
212 
			pkgReleaseType = "PT"
 - 
 
213 
		Else
 - 
 
214 
			pkgReleaseType = "FR"
 - 
 
215 
		End If
 - 
 
216 
 
 - 
 
217 
		If rsQry("os_name") <> "" Then
 - 
 
218 
			osType = rsQry("os_name")
 - 
 
219 
		Else
 - 
 
220 
			osType = rsQry("bos_type")
 - 
 
221 
		End If
 - 
 
222 
 
 - 
 
223
- 
 
224 
		XMLPackageString = XMLPackageString &_
 - 
 
225 
		"	<PackageRecord>"& vbNewLine &_
 - 
 
226 
		"		<pkg_name>"& pkgName &"</pkg_name>"& vbNewLine &_
 - 
 
227 
  		"		<pkg_version>"& rsQry("pkg_version") &"</pkg_version>"& vbNewLine &_
 - 
 
228 
  		"		<pkg_date>2003-03-01</pkg_date>"& vbNewLine &_
 - 
 
229 
  		"		<pkg_status>REG</pkg_status>"& vbNewLine &_
 - 
 
230 
  		"		<pkg_status_date>"& DateReversed( CDate( rsQry("modified_stamp") ) ) &"</pkg_status_date>"& vbNewLine &_
 - 
 
231 
  		"		<pkg_target></pkg_target>"& vbNewLine &_
 - 
 
232 
    	"		<pkg_platform_list>"& vbNewLine &_
 - 
 
233 
        "			<platform_record>"& osType &"</platform_record>"& vbNewLine &_
 - 
 
234 
        "		</pkg_platform_list>"& vbNewLine &_
- 
 
235 
  		"		<pkg_release_type>"& pkgReleaseType &"</pkg_release_type>"& vbNewLine &_
 - 
 
236 
		"	</PackageRecord>"& vbNewLine
 - 
 
237
- 
 
238
- 
 
239 
		rsQry.MoveNext()
 - 
 
240 
	Wend
- 
 
241
- 
 
242 
	rsQry.Close()
 - 
 
243 
	Set rsQry = Nothing
 - 
 
244
- 
 
245 
	' Return string
 - 
 
246 
	GetNodeBaseConfigDetailsWindows = XMLPackageString
- 
 
247
- 
 
248 
End Function
 - 
 
249 
'-----------------------------------------------------------------------------------------------------------------
 - 
 
250 
Function GetNodeBaseConfigDetailsSunOS ( nBomId, nNodeId )
 - 
 
251 
	Dim rsQry, XMLPackageString, pkgName, pkgReleaseType, osType
 - 
 
252
- 
 
253 
	OraDatabase.Parameters.Add "BOM_ID", nBomId, ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
254 
	OraDatabase.Parameters.Add "NODE_ID", nNodeId, ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
255
- 
 
256 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("NodeBaseConfigsSunOS.sql"), ORADYN_DEFAULT )
 - 
 
257
- 
 
258 
	OraDatabase.Parameters.Remove "BOM_ID"
 - 
 
259 
	OraDatabase.Parameters.Remove "NODE_ID"
 - 
 
260
- 
 
261
- 
 
262 
	While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
 - 
 
263 
 
 - 
 
264 
 
 - 
 
265 
 
 - 
 
266 
		If rsQry("is_patch") <> "" Then
 - 
 
267 
			If rsQry("patch_electronic_name") <> "" Then
 - 
 
268 
				pkgName = rsQry("patch_electronic_name")
 - 
 
269 
			Else
 - 
 
270 
				pkgName = rsQry("pkg_name")
 - 
 
271 
			End If
 146 
			End If
272 
		Else
 147 
		Else
273
- 
 
274 
			If rsQry("sunos_electronic_name") <> "" Then
 148 
			If rsQry("sunos_electronic_name") <> "" Then
275 
				pkgName = rsQry("sunos_electronic_name")
 149 
				pkgName = rsQry("sunos_electronic_name")
276 
			Else
 - 
 
277 
				pkgName = rsQry("pkg_name")
 - 
 
278 
			End If
 150 
			End If
279 
		End If
 151 
		End If
280 
 
 - 
 
- 
 
 152 
		'Extract the Package Release Type
281 
		If rsQry("is_patch") = "Y" Then
 153 
		If rsQry("is_patch") = "Y" Then
282 
			pkgReleaseType = "PT"
 154 
			pkgReleaseType = "PT"
283 
		Else
 155 
		Else
284 
			pkgReleaseType = "FR"
 156 
			pkgReleaseType = "FR"
285 
		End If
 157 
		End If
286 
 
 - 
 
- 
 
 158 
		'Extract the OS Name
287 
		If rsQry("os_name") <> "" Then
 159 
		If rsQry("os_name") <> "" Then
288 
			osType = rsQry("os_name")
 160 
			osType = rsQry("os_name")
289 
		Else
 161 
		Else
290 
			osType = rsQry("bos_type")
 162 
			osType = rsQry("bos_type")
291 
		End If
 163 
		End If
- 
 
 164 
		'Extract the Package Version
- 
 
 165 
		pkgVersion = rsQry("pkg_version")
- 
 
 166 
		'Extract the Patch Electronic Name
- 
 
 167 
		If rsQry("is_patch") <> "" Then
- 
 
 168 
			If rsQry("patch_electronic_name") <> "" Then
- 
 
 169 
				pkgVersion = rsQry("patch_electronic_name")
- 
 
 170 
			End If
- 
 
 171 
		End If
292 
 
 172 
 
293
- 
 
294 
		XMLPackageString = XMLPackageString &_
 173 
		XMLPackageString = XMLPackageString &_
295 
		"	<PackageRecord>"& vbNewLine &_
 174 
		"	<PackageRecord>"& vbNewLine &_
296 
		"		<pkg_name>"& pkgName &"</pkg_name>"& vbNewLine &_
 175 
		"		<pkg_name>"& pkgName &"</pkg_name>"& vbNewLine &_
297 
  		"		<pkg_version>"& rsQry("pkg_version") &"</pkg_version>"& vbNewLine &_
 176 
  		"		<pkg_version>"& pkgVersion &"</pkg_version>"& vbNewLine &_
298 
  		"		<pkg_date>2003-03-01</pkg_date>"& vbNewLine &_
 177 
  		"		<pkg_date>2003-03-01</pkg_date>"& vbNewLine &_
299 
  		"		<pkg_status>REG</pkg_status>"& vbNewLine &_
 178 
  		"		<pkg_status>REG</pkg_status>"& vbNewLine &_
300 
  		"		<pkg_status_date>"& DateReversed( CDate( rsQry("modified_stamp") ) ) &"</pkg_status_date>"& vbNewLine &_
 179 
  		"		<pkg_status_date>"& DateReversed( CDate( rsQry("modified_stamp") ) ) &"</pkg_status_date>"& vbNewLine &_
301 
  		"		<pkg_target></pkg_target>"& vbNewLine &_
 180 
  		"		<pkg_target></pkg_target>"& vbNewLine &_
302 
    	"		<pkg_platform_list>"& vbNewLine &_
 181 
    	"		<pkg_platform_list>"& vbNewLine &_
303 
        "			<platform_record>"& osType &"</platform_record>"& vbNewLine &_
 182 
        "			<platform_record>"& osType &"</platform_record>"& vbNewLine &_
304 
        "		</pkg_platform_list>"& vbNewLine &_
183 
        "		</pkg_platform_list>"& vbNewLine &_
305 
  		"		<pkg_release_type>"& pkgReleaseType &"</pkg_release_type>"& vbNewLine &_
 184 
  		"		<pkg_release_type>"& pkgReleaseType &"</pkg_release_type>"& vbNewLine &_
306 
		"	</PackageRecord>"& vbNewLine
 185 
		"	</PackageRecord>"& vbNewLine
307
186
308
- 
 
309 
		rsQry.MoveNext()
 187 
		rsQry.MoveNext()
310 
	Wend
188 
	Wend
311
189
312 
	rsQry.Close()
 190 
	rsQry.Close()
313 
	Set rsQry = Nothing
 191 
	Set rsQry = Nothing
314
192
315 
	' Return string
 193 
	' Return string
316 
	GetNodeBaseConfigDetailsSunOS = XMLPackageString
194 
	GetNodeBaseConfigDetails = XMLPackageString
317
195
318 
End Function
 196 
End Function
319 
'-----------------------------------------------------------------------------------------------------------------
 197 
'-----------------------------------------------------------------------------------------------------------------
320 
Function GetNodeDetailsWindows ( nBomId, nNodeId )
 198 
Function GetNodeDetails ( nBomId, nNodeId, OS )
321 
	Dim rsQry, XMLPackageString, pkgName, pkgReleaseType, osType
 199 
	Dim rsQry, XMLPackageString, pkgName, pkgReleaseType, osType, pkgVersion, pkgDatabase, patchName, rsTemp
322
200
323 
	OraDatabase.Parameters.Add "BOM_ID", nBomId, ORAPARM_INPUT, ORATYPE_NUMBER
201 
	OraDatabase.Parameters.Add "BOM_ID", nBomId, ORAPARM_INPUT, ORATYPE_NUMBER
324 
	OraDatabase.Parameters.Add "NODE_ID", nNodeId, ORAPARM_INPUT, ORATYPE_NUMBER
202 
	OraDatabase.Parameters.Add "NODE_ID", nNodeId, ORAPARM_INPUT, ORATYPE_NUMBER
325
- 
 
326 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("NodeProductsWindows.sql"), ORADYN_DEFAULT )
 - 
 
327
203
- 
 
 204 
	If OS = 1 Then
- 
 
 205 
		Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("NodeProductsWindows.sql"), ORADYN_DEFAULT )
- 
 
 206 
	Else
- 
 
 207 
		Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("NodeProductsSunOS.sql"), ORADYN_DEFAULT )
- 
 
 208 
	End If
- 
 
 209 
 
328 
	OraDatabase.Parameters.Remove "BOM_ID"
 210 
	OraDatabase.Parameters.Remove "BOM_ID"
329 
	OraDatabase.Parameters.Remove "NODE_ID"
 211 
	OraDatabase.Parameters.Remove "NODE_ID"
330
212
331
213
332 
	While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
 214 
	While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
333 
 
 - 
 
334 
		If rsQry("is_patch") <> "" Then
 215 
		'Extract the Package Name
335 
			If rsQry("patch_electronic_name") <> "" Then
 - 
 
336 
				pkgName = rsQry("patch_electronic_name")
 216 
		pkgName = rsQry("pkg_name")
337 
			Else
 217 
		'Extract the Package Version
338 
				pkgName = rsQry("pkg_name")
 218 
		pkgVersion = rsQry("pkg_version")
339 
			End If
 219 
		If OS = 1 Then
340 
		Else
 - 
 
341
- 
 
342 
			If rsQry("win_electronic_name") <> "" Then
 220 
			If rsQry("win_electronic_name") <> "" Then
343 
				pkgName = rsQry("win_electronic_name")
 221 
				pkgName = rsQry("win_electronic_name")
- 
 
 222 
			End If
344 
			Else
 223 
		Else
- 
 
 224 
			If rsQry("sunos_electronic_name") <> "" Then
345 
				pkgName = rsQry("pkg_name")
 225 
				pkgName = rsQry("sunos_electronic_name")
346 
			End If
 226 
			End If
347 
		End If
 227 
		End If
348 
 
 - 
 
349 
 
 - 
 
- 
 
 228 
		'Extract the Package Release Type
350 
		If rsQry("is_patch") = "Y" Then
 229 
		If rsQry("is_patch") = "Y" Then
351 
			pkgReleaseType = "PT"
 230 
			pkgReleaseType = "PT"
- 
 
 231 
			If rsQry("patch_electronic_name") <> "" Then
- 
 
 232 
				pkgVersion = rsQry("patch_electronic_name")
- 
 
 233 
			End If
352 
		Else
 234 
		Else
353 
			pkgReleaseType = "FR"
 235 
			pkgReleaseType = "FR"
354 
		End If
 236 
		End If
355 
 
 - 
 
- 
 
 237 
		'Extract the OS Type
356 
		If rsQry("os_name") <> "" Then
 238 
		If rsQry("os_name") <> "" Then
357 
			osType = rsQry("os_name")
 239 
			osType = rsQry("os_name")
358 
		Else
 240 
		Else
359 
			osType = rsQry("bos_type")
 241 
			osType = rsQry("bos_type")
360 
		End If
 242 
		End If
361 
 
 243 
 
362
- 
 
363 
		XMLPackageString = XMLPackageString &_
 244 
		XMLPackageString = XMLPackageString &_
364 
		"	<PackageRecord>"& vbNewLine &_
 245 
		"	<PackageRecord>"& vbNewLine &_
365 
		"		<pkg_name>"& pkgName &"</pkg_name>"& vbNewLine &_
 246 
		"		<pkg_name>"& pkgName &"</pkg_name>"& vbNewLine &_
366 
  		"		<pkg_version>"& rsQry("pkg_version") &"</pkg_version>"& vbNewLine &_
 247 
  		"		<pkg_version>"& pkgVersion &"</pkg_version>"& vbNewLine &_
367 
  		"		<pkg_date>2003-03-01</pkg_date>"& vbNewLine &_
 248 
  		"		<pkg_date>2003-03-01</pkg_date>"& vbNewLine &_
368 
  		"		<pkg_status>REG</pkg_status>"& vbNewLine &_
 249 
  		"		<pkg_status>REG</pkg_status>"& vbNewLine &_
369 
  		"		<pkg_status_date>"& DateReversed( CDate( rsQry("modified_stamp") ) ) &"</pkg_status_date>"& vbNewLine &_
 250 
  		"		<pkg_status_date>"& DateReversed( CDate( rsQry("modified_stamp") ) ) &"</pkg_status_date>"& vbNewLine &_
370 
  		"		<pkg_target></pkg_target>"& vbNewLine &_
 251 
  		"		<pkg_target></pkg_target>"& vbNewLine &_
371 
    	"		<pkg_platform_list>"& vbNewLine &_
 252 
    	"		<pkg_platform_list>"& vbNewLine &_
372 
        "			<platform_record>"& osType &"</platform_record>"& vbNewLine &_
 253 
        "			<platform_record>"& osType &"</platform_record>"& vbNewLine &_
373 
        "		</pkg_platform_list>"& vbNewLine &_
254 
        "		</pkg_platform_list>"& vbNewLine
374 
  		"		<pkg_release_type>"& pkgReleaseType &"</pkg_release_type>"& vbNewLine &_
 - 
 
375 
		"	</PackageRecord>"& vbNewLine
 - 
 
376
- 
 
377
255
378 
		rsQry.MoveNext()
 - 
 
379 
	Wend
- 
 
380
- 
 
381 
	rsQry.Close()
 - 
 
382 
	Set rsQry = Nothing
 256 
		If rsQry("is_patch") = "Y" Then
383
- 
 
384 
	' Return string
 - 
 
385 
	GetNodeDetailsWindows = XMLPackageString
- 
 
386
- 
 
387 
End Function
 - 
 
388 
'-----------------------------------------------------------------------------------------------------------------
 - 
 
389 
Function GetNodeDetailsSunOS ( nBomId, nNodeId )
 - 
 
390 
	Dim rsQry, XMLPackageString, pkgName, pkgReleaseType, osType
 - 
 
391
- 
 
392 
	OraDatabase.Parameters.Add "BOM_ID", nBomId, ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
393 
	OraDatabase.Parameters.Add "NODE_ID", nNodeId, ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
394
- 
 
395 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("NodeProductsSunOS.sql"), ORADYN_DEFAULT )
 - 
 
396
- 
 
397 
	OraDatabase.Parameters.Remove "BOM_ID"
 - 
 
398 
	OraDatabase.Parameters.Remove "NODE_ID"
 - 
 
399
- 
 
400
- 
 
401 
	While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
 - 
 
402 
 
 257 
 
403 
		If rsQry("is_patch") <> "" Then
 - 
 
404 
			If rsQry("patch_electronic_name") <> "" Then
 258 
			OraDatabase.Parameters.Add "PV_ID", rsQry("prod_id"), ORAPARM_INPUT, ORATYPE_NUMBER
405 
				pkgName = rsQry("patch_electronic_name")
 259 
			Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery ("DatabasePatch.sql"), ORADYN_DEFAULT )
406 
			Else
 - 
 
407 
				pkgName = rsQry("pkg_name")
 - 
 
408 
			End If
 - 
 
409 
		Else
 - 
 
410 
			If rsQry("sunos_electronic_name") <> "" Then
 260 
			OraDatabase.Parameters.Remove "PV_ID"
411 
				pkgName = rsQry("sunos_electronic_name")
 - 
 
412 
			Else
 - 
 
413 
				pkgName = rsQry("pkg_name")
 - 
 
414 
			End If
 - 
 
415 
		End If
 - 
 
416 
 
 261 
 
- 
 
 262 
			pkgDatabase = rsTemp("pkg_name")
- 
 
 263 
			patchName = rsTemp("pkg_version")
417 
 
 264 
 
418 
		If rsQry("is_patch") = "Y" Then
 - 
 
419 
			pkgReleaseType = "PT"
 265 
			rsTemp.Close()
420 
		Else
 - 
 
421 
			pkgReleaseType = "FR"
 266 
			Set rsTemp = Nothing
422 
		End If
 - 
 
423 
 
 267 
 
424 
		If rsQry("os_name") <> "" Then
 268 
			XMLPackageString = XMLPackageString &_
425 
			osType = rsQry("os_name")
 269 
			"		<pkg_database>"& pkgDatabase &"</pkg_database>"& vbNewLine &_
426 
		Else
 270 
			"		<pkg_patch_list>"& vbNewLine &_
427 
			osType = rsQry("bos_type")
 271 
			"			<patch_name>"& patchName &"</patch_name>"& vbNewLine &_
428 
		End If
 272 
			"		</pkg_patch_list>"& vbNewLine
429 
 
 273 
 
- 
 
 274 
		End If
430
275 
 
431 
		XMLPackageString = XMLPackageString &_
 276 
		XMLPackageString = XMLPackageString &_
432 
		"	<PackageRecord>"& vbNewLine &_
 - 
 
433 
		"		<pkg_name>"& pkgName &"</pkg_name>"& vbNewLine &_
 - 
 
434 
  		"		<pkg_version>"& rsQry("pkg_version") &"</pkg_version>"& vbNewLine &_
 - 
 
435 
  		"		<pkg_date>2003-03-01</pkg_date>"& vbNewLine &_
 - 
 
436 
  		"		<pkg_status>REG</pkg_status>"& vbNewLine &_
 - 
 
437 
  		"		<pkg_status_date>"& DateReversed( CDate( rsQry("modified_stamp") ) ) &"</pkg_status_date>"& vbNewLine &_
 - 
 
438 
  		"		<pkg_target></pkg_target>"& vbNewLine &_
 - 
 
439 
    	"		<pkg_platform_list>"& vbNewLine &_
 - 
 
440 
        "			<platform_record>"& osType &"</platform_record>"& vbNewLine &_
 - 
 
441 
        "		</pkg_platform_list>"& vbNewLine &_
- 
 
442 
  		"		<pkg_release_type>"& pkgReleaseType &"</pkg_release_type>"& vbNewLine &_
 277 
		"		<pkg_release_type>"& pkgReleaseType &"</pkg_release_type>"& vbNewLine &_
443 
		"	</PackageRecord>"& vbNewLine
 278 
		"	</PackageRecord>"& vbNewLine
444
279
445
- 
 
446 
		rsQry.MoveNext()
 280 
		rsQry.MoveNext()
447 
	Wend
281 
	Wend
448
282
449 
	rsQry.Close()
 283 
	rsQry.Close()
450 
	Set rsQry = Nothing
 284 
	Set rsQry = Nothing
451
285
452 
	' Return string
 286 
	' Return string
453 
	GetNodeDetailsSunOS = XMLPackageString
287 
	GetNodeDetails = XMLPackageString
454
288
455 
End Function
 289 
End Function
456 
'-----------------------------------------------------------------------------------------------------------------
 290 
'-----------------------------------------------------------------------------------------------------------------
457 
 
 - 
 
458 
 
 - 
 
459 
 
 - 
 
460 
'=================================== MAIN LINE ======================================
 291 
'=================================== MAIN LINE ======================================
461 
WScript.Echo "==================== job:GenerateXMLNodeDefenitions ===================="
 292 
WScript.Echo "==================== job:GenerateXMLNodeDefenitions ===================="
462 
 
 293 
 
463 
Set objArgs = WScript.Arguments
 294 
Set objArgs = WScript.Arguments
464 
 
 295 
 
Line 467... Line 298...
467 
	objArgs.ShowUsage
 298 
	objArgs.ShowUsage
468 
   	WScript.Quit
 299 
   	WScript.Quit
469
300
470 
Else
 301 
Else
471 
	BomId = objArgs.Named.Item("bom_id")
 302 
	BomId = objArgs.Named.Item("bom_id")
- 
 
 303 
 
- 
 
 304 
	Dim Windows, Solaris
- 
 
 305
- 
 
 306 
	Windows = 1
- 
 
 307 
	Solaris = 2
472
308
473 
	If ( BomId <> "" ) Then
 309 
	If ( BomId <> "" ) Then
474 
		'Generation of Node Spec Files for Windows OS.
310 
		'Generation of Node Spec Files for Windows OS.
475 
		Call GenerateXMLNodeDefinitionsWindows( BomId )
 311 
		Call GenerateXMLNodeDefinitions( BomId, Windows )
476 
		'Generation of Node Spec Files for Sun OS.
 312 
		'Generation of Node Spec Files for Sun OS.
477 
		Call GenerateXMLNodeDefinitionsSunOS( BomId )
 313 
		Call GenerateXMLNodeDefinitions( BomId, Solaris )
478
- 
 
479 
   	Else
 314 
   	Else
480 
   		objArgs.ShowUsage
 315 
   		objArgs.ShowUsage
481 
   		WScript.Quit
 316 
   		WScript.Quit
482
- 
 
483 
   	End If
 317 
   	End If
484
318
485 
End If
 319 
End If
486 
 
 320 
 
487 
 
 321