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