Subversion Repositories DevTools

Rev

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

Rev 13 Rev 15
Line 33... Line 33...
33 
'== Variable Init ====================================
 33 
'== Variable Init ====================================
34 
'=====================================================
 34 
'=====================================================
35 
 
 35 
 
36 
 
 36 
 
37 
'-----------------------------------------------------------------------------------------------------------------
 37 
'-----------------------------------------------------------------------------------------------------------------
38 
Sub GenerateXMLNodeDefinitions ( nBomId )
 38 
Sub GenerateXMLNodeDefinitionsWindows ( nBomId )
39 
	Dim rsQry, aNetworkNodes, XMLNode, DateString
 39 
	Dim rsQry, aNetworkNodes, XMLNode, DateString
40 
	Dim lastRow, row
 40 
	Dim lastRow, row
41
41
42 
	' Remove existing stuff
 42 
	' Remove existing stuff
43 
	Call DeleteFile( APP_ROOT &"downloads\*" )
 43 
	Call DeleteFile( APP_ROOT &"downloads\*" )
Line 70... Line 70...
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 
 
- 
 
 76 
		'-- Get Node Base Configurations Details --
- 
 
 77 
		XMLNode = XMLNode & GetNodeBaseConfigDetailsWindows ( nBomId, aNetworkNodes( 0, row ) ) & vbNewLine
- 
 
 78 
 
75
79
76 
		'-- Get Node Details --
 80 
		'-- Get Node Product Details --
77 
		XMLNode = XMLNode & GetNodeDetails ( nBomId, aNetworkNodes( 0, row ) ) & vbNewLine
81 
		XMLNode = XMLNode & GetNodeDetailsWindows ( nBomId, aNetworkNodes( 0, row ) ) & vbNewLine
78
82
79
83
80 
		' Close xml node tag before saving
 84 
		' Close xml node tag before saving
81 
		XMLNode = _
 85 
		XMLNode = _
82 
		"<BomDistribution>"& vbNewLine &_
 86 
		"<BomDistribution>"& vbNewLine &_
83 
		XMLNode &"</BomDistribution>"& vbNewLine
 87 
		XMLNode &"</BomDistribution>"& vbNewLine
84
88
85 
		'WScript.Echo XMLNode
 89 
		'WScript.Echo XMLNode
86
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()
87
120
88 
		' Save to a file
 121 
	End If
- 
 
 122
89 
		Call SaveFile( DateString, rsQry("version"), rsQry("branch_name"), APP_ROOT &"downloads",  FormatFileName( aNetworkNodes( 1, row ) ) &".xml", XMLNode )
 123 
	lastRow = UBound( aNetworkNodes, 2 )
- 
 
 124 
	DateString = DateReversed( Date )
- 
 
 125
- 
 
 126 
	For row = 0 To lastRow
90
127
- 
 
 128 
		XMLNode = Null
- 
 
 129
- 
 
 130 
		XMLNode = XMLNode &_
- 
 
 131 
		"	<BomHeader>"& vbNewLine &_
- 
 
 132 
		"		<release_ident></release_ident>"& vbNewLine &_
- 
 
 133 
  		"		<bom_name>"& aNetworkNodes( 1, row ) &"</bom_name>"& vbNewLine &_
- 
 
 134 
	  	"		<bom_type>system</bom_type>"& vbNewLine &_
- 
 
 135 
	  	"		<bom_version>"& aNetworkNodes( 2, row ) &"."& aNetworkNodes( 3, row ) &"</bom_version>"& vbNewLine &_
- 
 
 136 
	  	"		<bom_date>"& DateString &"</bom_date>"& vbNewLine &_
- 
 
 137 
	  	"		<bom_status>REG</bom_status>"& vbNewLine &_
- 
 
 138 
	  	"		<bom_status_date>"& DateString &"</bom_status_date>"& vbNewLine &_
- 
 
 139 
		"	</BomHeader>"& vbNewLine
- 
 
 140
- 
 
 141 
 
- 
 
 142 
		'-- Get Node Base Configurations Details --
- 
 
 143 
		XMLNode = XMLNode & GetNodeBaseConfigDetailsSunOS ( nBomId, aNetworkNodes( 0, row ) ) & vbNewLine
- 
 
 144 
 
- 
 
 145
- 
 
 146 
		'-- Get Node Product Details --
- 
 
 147 
		XMLNode = XMLNode & GetNodeDetailsSunOS ( nBomId, aNetworkNodes( 0, row ) ) & vbNewLine
- 
 
 148
- 
 
 149
- 
 
 150 
		' Close xml node tag before saving
- 
 
 151 
		XMLNode = _
- 
 
 152 
		"<BomDistribution>"& vbNewLine &_
- 
 
 153 
		XMLNode &"</BomDistribution>"& vbNewLine
- 
 
 154
- 
 
 155 
		'WScript.Echo XMLNode
- 
 
 156
- 
 
 157 
		If GetNodeBaseConfigDetailsSunOS ( nBomId, aNetworkNodes( 0, row ) ) <> "" OR GetNodeDetailsSunOS ( nBomId, aNetworkNodes( 0, row ) ) <> "" Then
- 
 
 158 
			' Save to a file
- 
 
 159 
			Call SaveFile( DateString, rsQry("version"), rsQry("branch_name"), APP_ROOT &"downloads",  FormatFileName( aNetworkNodes( 1, row ) ) &"_SunOS.xml", XMLNode )
- 
 
 160 
		End If
91
161
92 
	Next
 162 
	Next
93
163
94
164
95
165
96
166
97
167
98 
End Sub
 168 
End Sub
99 
'-----------------------------------------------------------------------------------------------------------------
 169 
'-----------------------------------------------------------------------------------------------------------------
- 
 
 170 
 
100 
Function FormatFileName ( sFileName )
 171 
Function FormatFileName ( sFileName )
101 
	Dim sReturn
 172 
	Dim sReturn
102
173
103 
	sReturn = Replace ( sFileName, "/", "" )
174 
	sReturn = Replace ( sFileName, "/", "" )
104 
	sReturn = Replace ( sReturn, "\", "" )
175 
	sReturn = Replace ( sReturn, "\", "" )
Line 107... Line 178...
107
178
108 
	FormatFileName = sReturn
 179 
	FormatFileName = sReturn
109
180
110 
End Function
 181 
End Function
111 
'-----------------------------------------------------------------------------------------------------------------
 182 
'-----------------------------------------------------------------------------------------------------------------
112 
Function GetNodeDetails ( nBomId, nNodeId )
 183 
Function GetNodeBaseConfigDetailsWindows ( nBomId, nNodeId )
113 
	Dim rsQry, XMLPackageString
 184 
	Dim rsQry, XMLPackageString, pkgName, pkgReleaseType, osType
114
185
115 
	OraDatabase.Parameters.Add "BOM_ID", nBomId, ORAPARM_INPUT, ORATYPE_NUMBER
186 
	OraDatabase.Parameters.Add "BOM_ID", nBomId, ORAPARM_INPUT, ORATYPE_NUMBER
116 
	OraDatabase.Parameters.Add "NODE_ID", nNodeId, ORAPARM_INPUT, ORATYPE_NUMBER
187 
	OraDatabase.Parameters.Add "NODE_ID", nNodeId, ORAPARM_INPUT, ORATYPE_NUMBER
117
188
118 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("NodeProducts.sql"), ORADYN_DEFAULT )
 189 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("NodeBaseConfigsWindows.sql"), ORADYN_DEFAULT )
119
190
120 
	OraDatabase.Parameters.Remove "BOM_ID"
 191 
	OraDatabase.Parameters.Remove "BOM_ID"
121 
	OraDatabase.Parameters.Remove "NODE_ID"
 192 
	OraDatabase.Parameters.Remove "NODE_ID"
122
193
123
194
124 
	While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
 195 
	While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
125
196
- 
 
 197 
		If rsQry("win_electronic_name") <> "" Then
- 
 
 198 
			pkgName = rsQry("win_electronic_name")
- 
 
 199 
		Else
- 
 
 200 
			pkgName = rsQry("pkg_name")
- 
 
 201 
		End If
- 
 
 202 
 
- 
 
 203 
		If rsQry("is_patch") = "Y" Then
- 
 
 204 
			pkgReleaseType = "PT"
- 
 
 205 
		Else
- 
 
 206 
			pkgReleaseType = "IR"
- 
 
 207 
		End If
- 
 
 208 
 
- 
 
 209 
		If rsQry("os_name") <> "" Then
- 
 
 210 
			osType = rsQry("os_name")
- 
 
 211 
		Else
- 
 
 212 
			osType = rsQry("bos_type")
- 
 
 213 
		End If
- 
 
 214 
 
- 
 
 215
- 
 
 216 
		XMLPackageString = XMLPackageString &_
- 
 
 217 
		"	<PackageRecord>"& vbNewLine &_
- 
 
 218 
		"		<pkg_name>"& pkgName &"</pkg_name>"& vbNewLine &_
- 
 
 219 
  		"		<pkg_version>"& rsQry("pkg_version") &"</pkg_version>"& vbNewLine &_
- 
 
 220 
  		"		<pkg_date>2003-03-01</pkg_date>"& vbNewLine &_
- 
 
 221 
  		"		<pkg_status>REG</pkg_status>"& vbNewLine &_
- 
 
 222 
  		"		<pkg_status_date>"& DateReversed( CDate( rsQry("modified_stamp") ) ) &"</pkg_status_date>"& vbNewLine &_
- 
 
 223 
  		"		<pkg_target></pkg_target>"& vbNewLine &_
- 
 
 224 
    	"		<pkg_platform_list>"& vbNewLine &_
- 
 
 225 
        "			<platform_record>"& osType &"</platform_record>"& vbNewLine &_
- 
 
 226 
        "		</pkg_platform_list>"& vbNewLine &_
- 
 
 227 
  		"		<pkg_release_type>"& pkgReleaseType &"</pkg_release_type>"& vbNewLine &_
- 
 
 228 
		"	</PackageRecord>"& vbNewLine
- 
 
 229
- 
 
 230
- 
 
 231 
		rsQry.MoveNext()
- 
 
 232 
	Wend
- 
 
 233
- 
 
 234 
	rsQry.Close()
- 
 
 235 
	Set rsQry = Nothing
- 
 
 236
- 
 
 237 
	' Return string
- 
 
 238 
	GetNodeBaseConfigDetailsWindows = XMLPackageString
- 
 
 239
- 
 
 240 
End Function
- 
 
 241 
'-----------------------------------------------------------------------------------------------------------------
- 
 
 242 
Function GetNodeBaseConfigDetailsSunOS ( nBomId, nNodeId )
- 
 
 243 
	Dim rsQry, XMLPackageString, pkgName, pkgReleaseType, osType
- 
 
 244
- 
 
 245 
	OraDatabase.Parameters.Add "BOM_ID", nBomId, ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
 246 
	OraDatabase.Parameters.Add "NODE_ID", nNodeId, ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
 247
- 
 
 248 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("NodeBaseConfigsSunOS.sql"), ORADYN_DEFAULT )
- 
 
 249
- 
 
 250 
	OraDatabase.Parameters.Remove "BOM_ID"
- 
 
 251 
	OraDatabase.Parameters.Remove "NODE_ID"
- 
 
 252
- 
 
 253
- 
 
 254 
	While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
- 
 
 255
- 
 
 256 
		If rsQry("sunos_electronic_name") <> "" Then
- 
 
 257 
			pkgName = rsQry("sunos_electronic_name")
- 
 
 258 
		Else
- 
 
 259 
			pkgName = rsQry("pkg_name")
- 
 
 260 
		End If
- 
 
 261 
 
- 
 
 262 
		If rsQry("is_patch") = "Y" Then
- 
 
 263 
			pkgReleaseType = "PT"
- 
 
 264 
		Else
- 
 
 265 
			pkgReleaseType = "IR"
- 
 
 266 
		End If
- 
 
 267 
 
- 
 
 268 
		If rsQry("os_name") <> "" Then
- 
 
 269 
			osType = rsQry("os_name")
- 
 
 270 
		Else
- 
 
 271 
			osType = rsQry("bos_type")
- 
 
 272 
		End If
- 
 
 273 
 
- 
 
 274
- 
 
 275 
		XMLPackageString = XMLPackageString &_
- 
 
 276 
		"	<PackageRecord>"& vbNewLine &_
- 
 
 277 
		"		<pkg_name>"& pkgName &"</pkg_name>"& vbNewLine &_
- 
 
 278 
  		"		<pkg_version>"& rsQry("pkg_version") &"</pkg_version>"& vbNewLine &_
- 
 
 279 
  		"		<pkg_date>2003-03-01</pkg_date>"& vbNewLine &_
- 
 
 280 
  		"		<pkg_status>REG</pkg_status>"& vbNewLine &_
- 
 
 281 
  		"		<pkg_status_date>"& DateReversed( CDate( rsQry("modified_stamp") ) ) &"</pkg_status_date>"& vbNewLine &_
- 
 
 282 
  		"		<pkg_target></pkg_target>"& vbNewLine &_
- 
 
 283 
    	"		<pkg_platform_list>"& vbNewLine &_
- 
 
 284 
        "			<platform_record>"& osType &"</platform_record>"& vbNewLine &_
- 
 
 285 
        "		</pkg_platform_list>"& vbNewLine &_
- 
 
 286 
  		"		<pkg_release_type>"& pkgReleaseType &"</pkg_release_type>"& vbNewLine &_
- 
 
 287 
		"	</PackageRecord>"& vbNewLine
- 
 
 288
- 
 
 289
- 
 
 290 
		rsQry.MoveNext()
- 
 
 291 
	Wend
- 
 
 292
- 
 
 293 
	rsQry.Close()
- 
 
 294 
	Set rsQry = Nothing
- 
 
 295
- 
 
 296 
	' Return string
- 
 
 297 
	GetNodeBaseConfigDetailsSunOS = XMLPackageString
- 
 
 298
- 
 
 299 
End Function
- 
 
 300 
'-----------------------------------------------------------------------------------------------------------------
- 
 
 301 
Function GetNodeDetailsWindows ( nBomId, nNodeId )
- 
 
 302 
	Dim rsQry, XMLPackageString, pkgName, pkgReleaseType, osType
- 
 
 303
- 
 
 304 
	OraDatabase.Parameters.Add "BOM_ID", nBomId, ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
 305 
	OraDatabase.Parameters.Add "NODE_ID", nNodeId, ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
 306
- 
 
 307 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("NodeProductsWindows.sql"), ORADYN_DEFAULT )
- 
 
 308
- 
 
 309 
	OraDatabase.Parameters.Remove "BOM_ID"
- 
 
 310 
	OraDatabase.Parameters.Remove "NODE_ID"
- 
 
 311
- 
 
 312
- 
 
 313 
	While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
- 
 
 314
- 
 
 315 
		If rsQry("win_electronic_name") <> "" Then
- 
 
 316 
			pkgName = rsQry("win_electronic_name")
- 
 
 317 
		Else
- 
 
 318 
			pkgName = rsQry("pkg_name")
- 
 
 319 
		End If
- 
 
 320 
 
- 
 
 321 
		If rsQry("is_patch") = "Y" Then
- 
 
 322 
			pkgReleaseType = "PT"
- 
 
 323 
		Else
- 
 
 324 
			pkgReleaseType = "IR"
- 
 
 325 
		End If
- 
 
 326 
 
- 
 
 327 
		If rsQry("os_name") <> "" Then
- 
 
 328 
			osType = rsQry("os_name")
- 
 
 329 
		Else
- 
 
 330 
			osType = rsQry("bos_type")
- 
 
 331 
		End If
- 
 
 332 
 
- 
 
 333
- 
 
 334 
		XMLPackageString = XMLPackageString &_
- 
 
 335 
		"	<PackageRecord>"& vbNewLine &_
- 
 
 336 
		"		<pkg_name>"& pkgName &"</pkg_name>"& vbNewLine &_
- 
 
 337 
  		"		<pkg_version>"& rsQry("pkg_version") &"</pkg_version>"& vbNewLine &_
- 
 
 338 
  		"		<pkg_date>2003-03-01</pkg_date>"& vbNewLine &_
- 
 
 339 
  		"		<pkg_status>REG</pkg_status>"& vbNewLine &_
- 
 
 340 
  		"		<pkg_status_date>"& DateReversed( CDate( rsQry("modified_stamp") ) ) &"</pkg_status_date>"& vbNewLine &_
- 
 
 341 
  		"		<pkg_target></pkg_target>"& vbNewLine &_
- 
 
 342 
    	"		<pkg_platform_list>"& vbNewLine &_
- 
 
 343 
        "			<platform_record>"& osType &"</platform_record>"& vbNewLine &_
- 
 
 344 
        "		</pkg_platform_list>"& vbNewLine &_
- 
 
 345 
  		"		<pkg_release_type>"& pkgReleaseType &"</pkg_release_type>"& vbNewLine &_
- 
 
 346 
		"	</PackageRecord>"& vbNewLine
- 
 
 347
- 
 
 348
- 
 
 349 
		rsQry.MoveNext()
- 
 
 350 
	Wend
- 
 
 351
- 
 
 352 
	rsQry.Close()
- 
 
 353 
	Set rsQry = Nothing
- 
 
 354
- 
 
 355 
	' Return string
- 
 
 356 
	GetNodeDetailsWindows = XMLPackageString
- 
 
 357
- 
 
 358 
End Function
- 
 
 359 
'-----------------------------------------------------------------------------------------------------------------
- 
 
 360 
Function GetNodeDetailsSunOS ( nBomId, nNodeId )
- 
 
 361 
	Dim rsQry, XMLPackageString, pkgName, pkgReleaseType, osType
- 
 
 362
- 
 
 363 
	OraDatabase.Parameters.Add "BOM_ID", nBomId, ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
 364 
	OraDatabase.Parameters.Add "NODE_ID", nNodeId, ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
 365
- 
 
 366 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("NodeProductsSunOS.sql"), ORADYN_DEFAULT )
- 
 
 367
- 
 
 368 
	OraDatabase.Parameters.Remove "BOM_ID"
- 
 
 369 
	OraDatabase.Parameters.Remove "NODE_ID"
- 
 
 370
- 
 
 371
- 
 
 372 
	While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
- 
 
 373
- 
 
 374 
		If rsQry("sunos_electronic_name") <> "" Then
- 
 
 375 
			pkgName = rsQry("sunos_electronic_name")
- 
 
 376 
		Else
- 
 
 377 
			pkgName = rsQry("pkg_name")
- 
 
 378 
		End If
- 
 
 379 
 
- 
 
 380 
		If rsQry("is_patch") = "Y" Then
- 
 
 381 
			pkgReleaseType = "PT"
- 
 
 382 
		Else
- 
 
 383 
			pkgReleaseType = "IR"
- 
 
 384 
		End If
- 
 
 385 
 
- 
 
 386 
		If rsQry("os_name") <> "" Then
- 
 
 387 
			osType = rsQry("os_name")
- 
 
 388 
		Else
- 
 
 389 
			osType = rsQry("bos_type")
- 
 
 390 
		End If
- 
 
 391 
 
- 
 
 392
126 
		XMLPackageString = XMLPackageString &_
 393 
		XMLPackageString = XMLPackageString &_
127 
		"	<PackageRecord>"& vbNewLine &_
 394 
		"	<PackageRecord>"& vbNewLine &_
128 
		"		<pkg_name>"& rsQry("pkg_name") &"</pkg_name>"& vbNewLine &_
 395 
		"		<pkg_name>"& pkgName &"</pkg_name>"& vbNewLine &_
129 
  		"		<pkg_version>"& rsQry("pkg_version") &"</pkg_version>"& vbNewLine &_
 396 
  		"		<pkg_version>"& rsQry("pkg_version") &"</pkg_version>"& vbNewLine &_
130 
  		"		<pkg_date>2003-03-01</pkg_date>"& vbNewLine &_
 397 
  		"		<pkg_date>2003-03-01</pkg_date>"& vbNewLine &_
131 
  		"		<pkg_status>REG</pkg_status>"& vbNewLine &_
 398 
  		"		<pkg_status>REG</pkg_status>"& vbNewLine &_
132 
  		"		<pkg_status_date>"& DateReversed( CDate( rsQry("modified_stamp") ) ) &"</pkg_status_date>"& vbNewLine &_
 399 
  		"		<pkg_status_date>"& DateReversed( CDate( rsQry("modified_stamp") ) ) &"</pkg_status_date>"& vbNewLine &_
133 
  		"		<pkg_target></pkg_target>"& vbNewLine &_
 400 
  		"		<pkg_target></pkg_target>"& vbNewLine &_
134 
    	"		<pkg_platform_list>"& vbNewLine &_
 401 
    	"		<pkg_platform_list>"& vbNewLine &_
135 
        "			<platform_record>"& rsQry("bos_type") &"</platform_record>"& vbNewLine &_
 402 
        "			<platform_record>"& osType &"</platform_record>"& vbNewLine &_
136 
        "		</pkg_platform_list>"& vbNewLine &_
403 
        "		</pkg_platform_list>"& vbNewLine &_
137 
  		"		<pkg_release_type>IR</pkg_release_type>"& vbNewLine &_
 404 
  		"		<pkg_release_type>"& pkgReleaseType &"</pkg_release_type>"& vbNewLine &_
138 
		"	</PackageRecord>"& vbNewLine
 405 
		"	</PackageRecord>"& vbNewLine
139
406
140
407
141 
		rsQry.MoveNext()
 408 
		rsQry.MoveNext()
142 
	Wend
409 
	Wend
143
410
144 
	rsQry.Close()
 411 
	rsQry.Close()
145 
	Set rsQry = Nothing
 412 
	Set rsQry = Nothing
146
413
147 
	' Return string
 414 
	' Return string
148 
	GetNodeDetails = XMLPackageString
415 
	GetNodeDetailsSunOS = XMLPackageString
149
416
150 
End Function
 417 
End Function
151 
'-----------------------------------------------------------------------------------------------------------------
 418 
'-----------------------------------------------------------------------------------------------------------------
152 
 
 419 
 
153 
 
 420 
 
Line 164... Line 431...
164
431
165 
Else
 432 
Else
166 
	BomId = objArgs.Named.Item("bom_id")
 433 
	BomId = objArgs.Named.Item("bom_id")
167
434
168 
	If ( BomId <> "" ) Then
 435 
	If ( BomId <> "" ) Then
- 
 
 436 
		Call GenerateXMLNodeDefinitionsWindows( BomId )
169 
		Call GenerateXMLNodeDefinitions( BomId )
 437 
		Call GenerateXMLNodeDefinitionsSunOS( BomId )
170
438
171 
   	Else
 439 
   	Else
172 
   		objArgs.ShowUsage
 440 
   		objArgs.ShowUsage
173 
   		WScript.Quit
 441 
   		WScript.Quit
174
442