Subversion Repositories DevTools

Rev

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

Rev 15 Rev 19
Line 62... Line 62...
62 
		XMLNode = Null
 62 
		XMLNode = Null
63
63
64 
		XMLNode = XMLNode &_
 64 
		XMLNode = XMLNode &_
65 
		"	<BomHeader>"& vbNewLine &_
 65 
		"	<BomHeader>"& vbNewLine &_
66 
		"		<release_ident></release_ident>"& vbNewLine &_
 66 
		"		<release_ident></release_ident>"& vbNewLine &_
67 
  		"		<bom_name>"& aNetworkNodes( 1, row ) &"</bom_name>"& vbNewLine &_
 67 
  		"		<bom_name>"& aNetworkNodes( 1, row ) &" Windows</bom_name>"& vbNewLine &_
68 
	  	"		<bom_type>system</bom_type>"& vbNewLine &_
 68 
	  	"		<bom_type>system</bom_type>"& vbNewLine &_
69 
	  	"		<bom_version>"& aNetworkNodes( 2, row ) &"."& aNetworkNodes( 3, row ) &"</bom_version>"& vbNewLine &_
 69 
	  	"		<bom_version>"& aNetworkNodes( 2, row ) &"."& aNetworkNodes( 3, row ) &"</bom_version>"& vbNewLine &_
70 
	  	"		<bom_date>"& DateString &"</bom_date>"& vbNewLine &_
 70 
	  	"		<bom_date>"& DateString &"</bom_date>"& vbNewLine &_
71 
	  	"		<bom_status>REG</bom_status>"& vbNewLine &_
 71 
	  	"		<bom_status>REG</bom_status>"& vbNewLine &_
72 
	  	"		<bom_status_date>"& DateString &"</bom_status_date>"& vbNewLine &_
 72 
	  	"		<bom_status_date>"& DateString &"</bom_status_date>"& vbNewLine &_
73 
		"	</BomHeader>"& vbNewLine
73 
		"	</BomHeader>"& vbNewLine
74
74
75 
 
 75 
 
76 
		'-- Get Node Base Configurations Details --
 76 
		'-- Get Node Base Configurations Details For Windows OS --
77 
		XMLNode = XMLNode & GetNodeBaseConfigDetailsWindows ( nBomId, aNetworkNodes( 0, row ) ) & vbNewLine
77 
		XMLNode = XMLNode & GetNodeBaseConfigDetailsWindows ( nBomId, aNetworkNodes( 0, row ) ) & vbNewLine
78 
 
 78 
 
79
79
80 
		'-- Get Node Product Details --
 80 
		'-- Get Node Product Details For Windows OS --
81 
		XMLNode = XMLNode & GetNodeDetailsWindows ( nBomId, aNetworkNodes( 0, row ) ) & vbNewLine
81 
		XMLNode = XMLNode & GetNodeDetailsWindows ( nBomId, aNetworkNodes( 0, row ) ) & vbNewLine
82
82
83
83
84 
		' Close xml node tag before saving
 84 
		' Close xml node tag before saving
85 
		XMLNode = _
 85 
		XMLNode = _
Line 128... Line 128...
128 
		XMLNode = Null
 128 
		XMLNode = Null
129
129
130 
		XMLNode = XMLNode &_
 130 
		XMLNode = XMLNode &_
131 
		"	<BomHeader>"& vbNewLine &_
 131 
		"	<BomHeader>"& vbNewLine &_
132 
		"		<release_ident></release_ident>"& vbNewLine &_
 132 
		"		<release_ident></release_ident>"& vbNewLine &_
133 
  		"		<bom_name>"& aNetworkNodes( 1, row ) &"</bom_name>"& vbNewLine &_
 133 
  		"		<bom_name>"& aNetworkNodes( 1, row ) &" SunOS</bom_name>"& vbNewLine &_
134 
	  	"		<bom_type>system</bom_type>"& vbNewLine &_
 134 
	  	"		<bom_type>system</bom_type>"& vbNewLine &_
135 
	  	"		<bom_version>"& aNetworkNodes( 2, row ) &"."& aNetworkNodes( 3, row ) &"</bom_version>"& vbNewLine &_
 135 
	  	"		<bom_version>"& aNetworkNodes( 2, row ) &"."& aNetworkNodes( 3, row ) &"</bom_version>"& vbNewLine &_
136 
	  	"		<bom_date>"& DateString &"</bom_date>"& vbNewLine &_
 136 
	  	"		<bom_date>"& DateString &"</bom_date>"& vbNewLine &_
137 
	  	"		<bom_status>REG</bom_status>"& vbNewLine &_
 137 
	  	"		<bom_status>REG</bom_status>"& vbNewLine &_
138 
	  	"		<bom_status_date>"& DateString &"</bom_status_date>"& vbNewLine &_
 138 
	  	"		<bom_status_date>"& DateString &"</bom_status_date>"& vbNewLine &_
139 
		"	</BomHeader>"& vbNewLine
139 
		"	</BomHeader>"& vbNewLine
140
140
141 
 
 141 
 
142 
		'-- Get Node Base Configurations Details --
 142 
		'-- Get Node Base Configurations Details For Sun OS --
143 
		XMLNode = XMLNode & GetNodeBaseConfigDetailsSunOS ( nBomId, aNetworkNodes( 0, row ) ) & vbNewLine
143 
		XMLNode = XMLNode & GetNodeBaseConfigDetailsSunOS ( nBomId, aNetworkNodes( 0, row ) ) & vbNewLine
144 
 
 144 
 
145
145
146 
		'-- Get Node Product Details --
 146 
		'-- Get Node Product Details For Sun OS --
147 
		XMLNode = XMLNode & GetNodeDetailsSunOS ( nBomId, aNetworkNodes( 0, row ) ) & vbNewLine
147 
		XMLNode = XMLNode & GetNodeDetailsSunOS ( nBomId, aNetworkNodes( 0, row ) ) & vbNewLine
148
148
149
149
150 
		' Close xml node tag before saving
 150 
		' Close xml node tag before saving
151 
		XMLNode = _
 151 
		XMLNode = _
Line 192... Line 192...
192 
	OraDatabase.Parameters.Remove "NODE_ID"
 192 
	OraDatabase.Parameters.Remove "NODE_ID"
193
193
194
194
195 
	While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
 195 
	While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
196
196
- 
 
 197 
		If rsQry("is_patch") <> "" Then
- 
 
 198 
			If rsQry("patch_electronic_name") <> "" Then
- 
 
 199 
				pkgName = rsQry("patch_electronic_name")
- 
 
 200 
			Else
- 
 
 201 
				pkgName = rsQry("pkg_name")
- 
 
 202 
			End If
- 
 
 203 
		Else
197 
		If rsQry("win_electronic_name") <> "" Then
 204 
			If rsQry("win_electronic_name") <> "" Then
198 
			pkgName = rsQry("win_electronic_name")
 205 
				pkgName = rsQry("win_electronic_name")
199 
		Else
 206 
			Else
200 
			pkgName = rsQry("pkg_name")
 207 
				pkgName = rsQry("pkg_name")
- 
 
 208 
			End If
201 
		End If
 209 
		End If
202 
 
 210 
 
203 
		If rsQry("is_patch") = "Y" Then
 211 
		If rsQry("is_patch") = "Y" Then
204 
			pkgReleaseType = "PT"
 212 
			pkgReleaseType = "PT"
205 
		Else
 213 
		Else
206 
			pkgReleaseType = "IR"
 214 
			pkgReleaseType = "FR"
207 
		End If
 215 
		End If
208 
 
 216 
 
209 
		If rsQry("os_name") <> "" Then
 217 
		If rsQry("os_name") <> "" Then
210 
			osType = rsQry("os_name")
 218 
			osType = rsQry("os_name")
211 
		Else
 219 
		Else
Line 250... Line 258...
250 
	OraDatabase.Parameters.Remove "BOM_ID"
 258 
	OraDatabase.Parameters.Remove "BOM_ID"
251 
	OraDatabase.Parameters.Remove "NODE_ID"
 259 
	OraDatabase.Parameters.Remove "NODE_ID"
252
260
253
261
254 
	While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
 262 
	While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
- 
 
 263 
 
- 
 
 264 
 
255
265 
 
- 
 
 266 
		If rsQry("is_patch") <> "" Then
256 
		If rsQry("sunos_electronic_name") <> "" Then
 267 
			If rsQry("patch_electronic_name") <> "" Then
257 
			pkgName = rsQry("sunos_electronic_name")
 268 
				pkgName = rsQry("patch_electronic_name")
- 
 
 269 
			Else
- 
 
 270 
				pkgName = rsQry("pkg_name")
- 
 
 271 
			End If
258 
		Else
 272 
		Else
- 
 
 273
- 
 
 274 
			If rsQry("sunos_electronic_name") <> "" Then
- 
 
 275 
				pkgName = rsQry("sunos_electronic_name")
- 
 
 276 
			Else
259 
			pkgName = rsQry("pkg_name")
 277 
				pkgName = rsQry("pkg_name")
- 
 
 278 
			End If
260 
		End If
 279 
		End If
261 
 
 280 
 
262 
		If rsQry("is_patch") = "Y" Then
 281 
		If rsQry("is_patch") = "Y" Then
263 
			pkgReleaseType = "PT"
 282 
			pkgReleaseType = "PT"
264 
		Else
 283 
		Else
265 
			pkgReleaseType = "IR"
 284 
			pkgReleaseType = "FR"
266 
		End If
 285 
		End If
267 
 
 286 
 
268 
		If rsQry("os_name") <> "" Then
 287 
		If rsQry("os_name") <> "" Then
269 
			osType = rsQry("os_name")
 288 
			osType = rsQry("os_name")
270 
		Else
 289 
		Else
Line 309... Line 328...
309 
	OraDatabase.Parameters.Remove "BOM_ID"
 328 
	OraDatabase.Parameters.Remove "BOM_ID"
310 
	OraDatabase.Parameters.Remove "NODE_ID"
 329 
	OraDatabase.Parameters.Remove "NODE_ID"
311
330
312
331
313 
	While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
 332 
	While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
314
333 
 
- 
 
 334 
		If rsQry("is_patch") <> "" Then
315 
		If rsQry("win_electronic_name") <> "" Then
 335 
			If rsQry("patch_electronic_name") <> "" Then
316 
			pkgName = rsQry("win_electronic_name")
 336 
				pkgName = rsQry("patch_electronic_name")
- 
 
 337 
			Else
- 
 
 338 
				pkgName = rsQry("pkg_name")
- 
 
 339 
			End If
317 
		Else
 340 
		Else
- 
 
 341
- 
 
 342 
			If rsQry("win_electronic_name") <> "" Then
- 
 
 343 
				pkgName = rsQry("win_electronic_name")
- 
 
 344 
			Else
318 
			pkgName = rsQry("pkg_name")
 345 
				pkgName = rsQry("pkg_name")
- 
 
 346 
			End If
319 
		End If
 347 
		End If
320 
 
 348 
 
- 
 
 349 
 
321 
		If rsQry("is_patch") = "Y" Then
 350 
		If rsQry("is_patch") = "Y" Then
322 
			pkgReleaseType = "PT"
 351 
			pkgReleaseType = "PT"
323 
		Else
 352 
		Else
324 
			pkgReleaseType = "IR"
 353 
			pkgReleaseType = "FR"
325 
		End If
 354 
		End If
326 
 
 355 
 
327 
		If rsQry("os_name") <> "" Then
 356 
		If rsQry("os_name") <> "" Then
328 
			osType = rsQry("os_name")
 357 
			osType = rsQry("os_name")
329 
		Else
 358 
		Else
Line 368... Line 397...
368 
	OraDatabase.Parameters.Remove "BOM_ID"
 397 
	OraDatabase.Parameters.Remove "BOM_ID"
369 
	OraDatabase.Parameters.Remove "NODE_ID"
 398 
	OraDatabase.Parameters.Remove "NODE_ID"
370
399
371
400
372 
	While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
 401 
	While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
373
402 
 
- 
 
 403 
		If rsQry("is_patch") <> "" Then
- 
 
 404 
			If rsQry("patch_electronic_name") <> "" Then
- 
 
 405 
				pkgName = rsQry("patch_electronic_name")
- 
 
 406 
			Else
- 
 
 407 
				pkgName = rsQry("pkg_name")
- 
 
 408 
			End If
- 
 
 409 
		Else
374 
		If rsQry("sunos_electronic_name") <> "" Then
 410 
			If rsQry("sunos_electronic_name") <> "" Then
375 
			pkgName = rsQry("sunos_electronic_name")
 411 
				pkgName = rsQry("sunos_electronic_name")
376 
		Else
 412 
			Else
377 
			pkgName = rsQry("pkg_name")
 413 
				pkgName = rsQry("pkg_name")
- 
 
 414 
			End If
378 
		End If
 415 
		End If
379 
 
 416 
 
- 
 
 417 
 
380 
		If rsQry("is_patch") = "Y" Then
 418 
		If rsQry("is_patch") = "Y" Then
381 
			pkgReleaseType = "PT"
 419 
			pkgReleaseType = "PT"
382 
		Else
 420 
		Else
383 
			pkgReleaseType = "IR"
 421 
			pkgReleaseType = "FR"
384 
		End If
 422 
		End If
385 
 
 423 
 
386 
		If rsQry("os_name") <> "" Then
 424 
		If rsQry("os_name") <> "" Then
387 
			osType = rsQry("os_name")
 425 
			osType = rsQry("os_name")
388 
		Else
 426 
		Else
Line 431... Line 469...
431
469
432 
Else
 470 
Else
433 
	BomId = objArgs.Named.Item("bom_id")
 471 
	BomId = objArgs.Named.Item("bom_id")
434
472
435 
	If ( BomId <> "" ) Then
 473 
	If ( BomId <> "" ) Then
- 
 
 474 
		'Generation of Node Spec Files for Windows OS.
436 
		Call GenerateXMLNodeDefinitionsWindows( BomId )
 475 
		Call GenerateXMLNodeDefinitionsWindows( BomId )
- 
 
 476 
		'Generation of Node Spec Files for Sun OS.
437 
		Call GenerateXMLNodeDefinitionsSunOS( BomId )
 477 
		Call GenerateXMLNodeDefinitionsSunOS( BomId )
438
478
439 
   	Else
 479 
   	Else
440 
   		objArgs.ShowUsage
 480 
   		objArgs.ShowUsage
441 
   		WScript.Quit
 481 
   		WScript.Quit