Subversion Repositories DevTools

Rev

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

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