Subversion Repositories DevTools

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
119 ghuddy 1 
<?xml version="1.0" ?>
2 
<package>
3 
	<comment>
4 
	PrimalCode wizard generated file.
5 
	</comment>
6 
	<job id="GetComponents" args="/pv_id:24498 /f:Y" prompt="no">
7 
		<?job error="true" debug="true" ?>
8 
		<runtime>
9 
			<named helpstring="Package Name" name="pkg_name" required="false" type="string"/>
10 
			<named helpstring="Package Version" name="pkg_version" required="false" type="string"/>
11 
			<named helpstring="Package primary key" name="pv_id" required="false" type="string"/>
12 
			<named helpstring="Force Release Notes Generation" name="f" required="false" type="string"/>
13 
			<usage>
153 ghuddy 14 
Usage:
119 ghuddy 15 
   on_Make_Official.wsf [/pkg_name:value] [/pkg_version:value]
16 
OR
17 
   on_Make_Official.wsf [/pv_id:value]
18 
 
19 
Options:
20 
 
21 
pkg_name     : Package Name
22 
pkg_version  : Package Version
23 
pv_id        : Package Version primary key
24 
f:  Set to [Y] to force release notes generation
25 
			</usage>
26 
		</runtime>
27 
		<object id="CDOMessage_Class" progid="CDO.Message" events="true"/>
28 
		<object id="Oracle_Objects_For_OLE" progid="OracleInProcServer.XOraSession" events="true"/>
29 
		<script language="VBScript" src="common_subs.vbs"/>
30 
		<script language="VBScript" src="config.vbs"/>
31 
		<script language="VBScript" src="pkg_archive.vbs"/>
32 
		<script id="GetComponents" language="VBScript">
33 
<![CDATA[
34 
Option Explicit
35 
'=====================================================
36 
'        Name: 	GetComponents
37 
' Description:	Connects to dpkg_archive and gets the
38 
' 				content of folders and files of certain
153 ghuddy 39 
' 				package. It then stores this info into
119 ghuddy 40 
'				Release Manager database. This info can
41 
' 				later be included in release notes Or
42 
' 				searched with search engine.
43 
' 		INPUT:  pkg_name
44 
'				pkg_version
45 
'=====================================================
46 
 
47 
'================ Variable Definition ================
48 
Dim compARR()
49 
Dim objArgs
50 
Dim parPv_id
51 
Dim parPkg_name
52 
Dim parRtag_name
53 
Dim parProj_id
54 
Dim parPkg_Version
55 
Dim No_Components
56 
'=============== Constants Declaration ===============
57 
Const COL_file_name = 0
58 
Const COL_file_path = 1
59 
Const COL_byte_size = 2
60 
Const COL_crc_cksum = 3
61 
Const COL_crc_modcrc= 4
62 
Const NUMBER_OF_COLS_IN_ARRcomp = 5
63 
Const MODCRC_FILE_TYPES = "*.thx"		' Comma separated file types to be CRCed with modcrc. E.g. "*.thx, *.bin, *.blah"
64 
'================== Variable Init ====================
65 
No_Components = True
66 
'=====================================================
67 
'-----------------------------------------------------------------------------------------------------------------
68 
Function Get_All_Files ( SSpath )
69 
	Dim sysShell, oExec, outStdErr, outStrOut
153 ghuddy 70 
 
119 ghuddy 71 
	Set sysShell = WScript.CreateObject("WScript.Shell")
72 
	Set oExec = sysShell.Exec( "cmd /c dir /S /B /A:-D "& SSpath )
73 
 
74 
	outStrOut = oExec.StdOut.ReadAll
153 ghuddy 75 
 
119 ghuddy 76 
	Get_All_Files = outStrOut
77 
End Function
78 
'-----------------------------------------------------------------------------------------------------------------
79 
Function Get_All_Folders ( SSpath )
80 
	Dim sysShell, oExec, outStdErr, outStrOut
153 ghuddy 81 
 
119 ghuddy 82 
	Set sysShell = WScript.CreateObject("WScript.Shell")
83 
	Set oExec = sysShell.Exec( "cmd /c dir /S /B /A:D "& SSpath )
84 
 
85 
	outStrOut = oExec.StdOut.ReadAll
153 ghuddy 86 
 
119 ghuddy 87 
	Get_All_Folders = outStrOut
88 
End Function
89 
'-----------------------------------------------------------------------------------------------------------------
90 
Function File_Extention ( SSfile_name )
91 
	If InStr ( SSfile_name, "." ) Then
92 
		File_Extention = Right ( SSfile_name, Len(SSfile_name) - InStrRev( SSfile_name, "." ) + 1 )
93 
	Else
94 
		' No dot seperator
95 
		File_Extention = ""
96 
	End If
97 
End Function
98 
'-----------------------------------------------------------------------------------------------------------------
99 
Sub Split_Path ( SSpath, outFile_name, outFile_path, outFile_ext )
100 
	Dim rightSlashLoc
153 ghuddy 101 
 
119 ghuddy 102 
	If InStr( SSpath, "\" ) Then
103 
		rightSlashLoc = InStrRev( SSpath, "\" )
104 
		outFile_path = Left( SSpath, rightSlashLoc )
105 
		outFile_name = Replace( SSpath, outFile_path, "" )
106 
		outFile_ext  = File_Extention ( outFile_name )
153 ghuddy 107 
 
119 ghuddy 108 
	Else
109 
		outFile_name = SSpath
110 
		outFile_path = ""
111 
		outFile_ext  = File_Extention ( outFile_name )
153 ghuddy 112 
 
119 ghuddy 113 
	End If
153 ghuddy 114 
 
119 ghuddy 115 
End Sub
116 
'-----------------------------------------------------------------------------------------------------------------
117 
Sub Generate_CRC ( SSfile_name, SSfile_path, SSfile_ext, outSize, outCRC_cksum, outCRC_modcrc )
118 
	Dim ModCRC_fileTypes
119 
	ModCRC_fileTypes = Replace( MODCRC_FILE_TYPES, " ", "" )				' Remove spaces
120 
	ModCRC_fileTypes = Replace( ModCRC_fileTypes, "*", "" )					' Remove *
121 
	ModCRC_fileTypes = "|"& Replace( ModCRC_fileTypes, ",", "||" ) &"|"		' Convert to from "a,b,c" to "|a||b||c|"
153 ghuddy 122 
 
119 ghuddy 123 
	' --- cksum CRC ---
124 
	Call CRC_cksum ( SSfile_path & SSfile_name, outCRC_cksum, outSize )
153 ghuddy 125 
 
126 
	' --- modcrc CRC ---
119 ghuddy 127 
	If InStr( ModCRC_fileTypes, "|"& SSfile_ext &"|" ) > 0 Then
128 
		Call CRC_modcrc ( Left( SSfile_name, Len(SSfile_name) - Len(SSfile_ext) ), SSfile_path, outCRC_modcrc, outSize )
153 ghuddy 129 
	End If
130 
 
119 ghuddy 131 
	WScript.Echo SSfile_name &" "& outCRC_cksum &" "& outSize &" "& outCRC_modcrc
153 ghuddy 132 
 
119 ghuddy 133 
End Sub
134 
'-----------------------------------------------------------------------------------------------------------------
135 
Sub Get_Components ( ARRcomp )
136 
	Dim fileSys, rootPath, contentsDump, recCnt, objPkgFileSys
137 
	Dim file_ext, path, tempARR, pkgType
153 ghuddy 138 
 
119 ghuddy 139 
	Set objPkgFileSys = New PkgArchive
153 ghuddy 140 
 
119 ghuddy 141 
	objPkgFileSys.Map_Network_Drive  UNC_ARCHIVE, MappedDrive 	' Map Drive if required
153 ghuddy 142 
 
119 ghuddy 143 
	pkgType = Get_Package_Type ( parPv_id )
153 ghuddy 144 
 
119 ghuddy 145 
	' Is this package ERG PRODUCT
146 
	objPkgFileSys.Remote_Host = TELNET_MACHINE
147 
	If pkgType = enumPKG_TYPE_ERG_PRODUCT Then
148 
		rootPath = MappedDrive & DEPLOY_ARCHIVE &"\"& parPkg_name &"\"& parPkg_Version
149 
		objPkgFileSys.Archive_Path = TELNET_DEPLOY_ARCHIVE
153 ghuddy 150 
 
119 ghuddy 151 
	Else
152 
		rootPath = MappedDrive & DPKG_ARCHIVE &"\"& parPkg_name &"\"& parPkg_Version
153 
		objPkgFileSys.Archive_Path = TELNET_DPKG_ARCHIVE
153 ghuddy 154 
 
119 ghuddy 155 
	End If
153 ghuddy 156 
 
157 
	Set fileSys = CreateObject("Scripting.FileSystemObject")
158 
 
119 ghuddy 159 
	Dim contentsFolderDump, aFolders, oFolders, sFolderName
153 ghuddy 160 
 
119 ghuddy 161 
	If fileSys.FolderExists( rootPath ) Then
161 iaugusti 162 
	        objPkgFileSys.Ensure_Read_Write parPkg_name, parPkg_version		' Make sure all files and folders can be read
153 ghuddy 163 
 
119 ghuddy 164 
		contentsDump = Get_All_Files ( rootPath )
165 
		contentsFolderDump = Get_All_Folders ( rootPath )
153 ghuddy 166 
 
119 ghuddy 167 
		contentsDump = contentsFolderDump & contentsDump	' Combine Files and Folders
153 ghuddy 168 
 
119 ghuddy 169 
		contentsDump = Replace( contentsDump, "/", "\" )			' Make sure "\" is used
170 
		contentsDump = Replace( contentsDump, rootPath &"\", "" )	' Remove UNC root path
153 ghuddy 171 
 
119 ghuddy 172 
		contentsFolderDump = Replace( contentsFolderDump, "/", "\" )			' Make sure "\" is used
173 
		contentsFolderDump = Replace( contentsFolderDump, rootPath &"\", "" )	' Remove UNC root path
153 ghuddy 174 
 
119 ghuddy 175 
		tempARR = Split( contentsDump, VBNewLine )		' Split each line containing path + file name
176 
		aFolders = Split( contentsFolderDump, VBNewLine )		' Split each line containing path
153 ghuddy 177 
 
178 
 
119 ghuddy 179 
		'-- Populate Folder dictionary --
180 
		Set oFolders = CreateObject("Scripting.Dictionary")
153 ghuddy 181 
 
119 ghuddy 182 
		' Continue if folders exist
183 
		If Len(contentsFolderDump) > 1 Then
184 
			For Each sFolderName In aFolders
185 
				oFolders.Item ( sFolderName ) = ""
153 ghuddy 186 
			Next
119 ghuddy 187 
		End If
188 
 
153 ghuddy 189 
 
190 
 
119 ghuddy 191 
		'-- Generate file list
192 
		WScript.Echo "Attempting to generate file list..."
193 
		recCnt = 0
194 
		For Each path In tempARR
195 
			If path <> "" Then
196 
				ReDim Preserve ARRcomp( NUMBER_OF_COLS_IN_ARRcomp, recCnt )
153 ghuddy 197 
 
119 ghuddy 198 
				Call Split_Path ( path, _
199 
								  ARRcomp( COL_file_name,  recCnt ), _
200 
								  ARRcomp( COL_file_path,  recCnt ), _
201 
								  file_ext )
202 
 
203 
				' Don't do CRC on folders
204 
				If oFolders.Exists( path ) Then
205 
					' Store Folder information
206 
					ARRcomp( COL_file_name,  recCnt ) = ""
207 
					ARRcomp( COL_file_path,  recCnt ) = path
208 
					ARRcomp( COL_byte_size,  recCnt ) = 0
209 
					ARRcomp( COL_crc_cksum,  recCnt ) = ""
210 
					ARRcomp( COL_crc_modcrc,  recCnt ) = ""
153 ghuddy 211 
 
119 ghuddy 212 
				Else
213 
					Call Generate_CRC ( ARRcomp( COL_file_name,  recCnt ), _
214 
										rootPath &"\"& ARRcomp( COL_file_path,  recCnt ), _
215 
										file_ext, _
216 
										ARRcomp( COL_byte_size,  recCnt ), _
217 
										ARRcomp( COL_crc_cksum,  recCnt ), _
218 
										ARRcomp( COL_crc_modcrc,  recCnt ) )
219 
				End If
153 ghuddy 220 
 
119 ghuddy 221 
				recCnt = recCnt + 1
222 
			End If
153 ghuddy 223 
 
119 ghuddy 224 
			No_Components = FALSE
225 
		Next
226 
 
153 ghuddy 227 
 
119 ghuddy 228 
	Else
229 
		Call Raise_Event ( enumEVENT_ERROR, "[job:GetComponents  sub:Get_Components]", rootPath, "Path not found!", enum_RELEASE_NOTES_NOT_FOUND_IN_ARCHIVE )
153 ghuddy 230 
 
119 ghuddy 231 
	End If
153 ghuddy 232 
 
119 ghuddy 233 
End Sub
234 
'-----------------------------------------------------------------------------------------------------------------
235 
Sub Insert_Into_Database ( ARRcomp )
236 
	Dim i
153 ghuddy 237 
 
119 ghuddy 238 
	If No_Components Then Exit Sub	' If no file components are found, there is nothing to do.
153 ghuddy 239 
 
119 ghuddy 240 
	' Insert into database
241 
	If parPv_id <> -1 Then
242 
		OraSession.BeginTrans
243 
		WScript.Echo "Deleting old entries from [release_components] table for PV_ID = "& parPv_id
153 ghuddy 244 
		OraDatabase.ExecuteSQL "DELETE FROM release_components WHERE pv_id = "& parPv_id		' Make sure it doesnot exists
245 
 
119 ghuddy 246 
		WScript.Echo "Inserting new component details In [release_components] table."
153 ghuddy 247 
 
119 ghuddy 248 
		For i = 0 To UBound( ARRcomp, 2 )
249 
			OraDatabase.ExecuteSQL _
250 
				" INSERT INTO release_components ( pv_id, file_name, file_path, byte_size, crc_cksum, crc_modcrc )"&_
251 
				" VALUES ( "&_
252 
				parPv_id &", "&_
253 
				" '"& ARRcomp( COL_file_name,  i ) &"', "&_
254 
				" '"& ARRcomp( COL_file_path,  i ) &"', "&_
255 
				ARRcomp( COL_byte_size,  i ) &", "&_
256 
				" '"& ARRcomp( COL_crc_cksum,  i ) &"', "&_
257 
				" '"& ARRcomp( COL_crc_modcrc, i ) &"' "&_
153 ghuddy 258 
				"        )"
259 
		Next
260 
 
119 ghuddy 261 
	  	OraSession.CommitTrans
262 
  	End If
153 ghuddy 263 
 
119 ghuddy 264 
End Sub
265 
'-----------------------------------------------------------------------------------------------------------------
266 
'-------------------- MAIN LINE ----------------------
267 
WScript.Echo "==================== job:GenerateComponents ===================="
268 
 
269 
Set objArgs = WScript.Arguments
270 
 
271 
If (objArgs.Unnamed.Count > 0) Then
272 
	Wscript.Echo "ERROR: Unnamed parameters!"
273 
	objArgs.ShowUsage
274 
   	WScript.Quit
153 ghuddy 275 
 
119 ghuddy 276 
Else
277 
	parPkg_name = objArgs.Named.Item("pkg_name")
278 
	parPkg_Version = objArgs.Named.Item("pkg_version")
279 
	parPv_id = objArgs.Named.Item("pv_id")
280 
	parRtag_name = objArgs.Named.Item("rtag_name")
281 
	parProj_id = objArgs.Named.Item("proj_id")
153 ghuddy 282 
 
119 ghuddy 283 
	If ( parPkg_name <> "" AND parPkg_Version <> "") Then
284 
		Call Get_PV_ID ( parPkg_name, parPkg_Version, parPv_id )
153 ghuddy 285 
 
119 ghuddy 286 
   	ElseIf parPv_id <> ""  Then
287 
   		Call Get_Pkg_Name_Version ( parPv_id, parPkg_name, parPkg_Version )
153 ghuddy 288 
 
119 ghuddy 289 
   	Else
290 
   		objArgs.ShowUsage
291 
   		WScript.Quit
153 ghuddy 292 
 
119 ghuddy 293 
   	End If
153 ghuddy 294 
 
119 ghuddy 295 
End If
296 
 
297 
Call Check_Requirements_To_Proceed ( parPv_id )
298 
Call Get_Components ( compARR )
299 
Call Insert_Into_Database ( compARR )
300 
 
301 
WScript.Echo "Components generated successfully!"
302 
 
303 
 
304 
]]>
305 
		</script>
306 
	</job>
307 
	<job id="GenerateReleaseNotes" args="/pv_id:30261 /f:Y" prompt="no">
308 
		<?job error="true" debug="true" ?>
309 
		<runtime>
310 
			<named helpstring="Package Name" name="pkg_name" required="false" type="string"/>
311 
			<named helpstring="Package Version" name="pkg_version" required="false" type="string"/>
312 
			<named helpstring="Package primary key" name="pv_id" required="false" type="simple"/>
313 
			<named helpstring="Force Release Notes Generation" name="f" required="false" type="string"/>
314 
			<named helpstring="Output release notes file" name="file" required="false" type="string"/>
315 
			<usage>
153 ghuddy 316 
Usage:
119 ghuddy 317 
   on_Make_Official.wsf [/pkg_name:value] [/pkg_version:value]
318 
OR
319 
   on_Make_Official.wsf [/pv_id:value]
320 
 
321 
Options:
322 
 
323 
pkg_name     : Package Name
324 
pkg_version  : Package Version
325 
pv_id        : Package Version primary key
326 
			</usage>
327 
		</runtime>
328 
		<object id="Oracle_Objects_For_OLE" progid="OracleInProcServer.XOraSession" events="true"/>
329 
		<resource id="Runtime Dependencies"><![CDATA[**** SSH key
330 
 
153 ghuddy 331 
SSH needs to be run manually first time to obtain the key from
119 ghuddy 332 
the telnet server.
333 
 
334 
Example: plink -ssh username@telnetserver
335 
 
336 
**** SMTP server
337 
To be able to receive email notifications from the web server,
153 ghuddy 338 
make sure that SMTP server is running. This server is also used
119 ghuddy 339 
by Release Manager notification facility.
340 
 
341 
]]></resource>
342 
		<script language="VBScript" src="templates\style_b_generator.vbs"/>
343 
		<script language="VBScript" src="templates\style_a_generator.vbs"/>
344 
		<script language="VBScript" src="common_subs.vbs"/>
345 
		<script language="VBScript" src="config.vbs"/>
346 
		<script language="VBScript" src="pkg_archive.vbs"/>
347 
		<script id="GenerateReleaseNotes" language="VBScript">
348 
<![CDATA[
349 
Option Explicit
350 
'=====================================================
351 
'        Name: 	GenerateReleaseNotes
153 ghuddy 352 
' Description:	Generates release notes from
119 ghuddy 353 
'				Release Manager database and stores
354 
' 				it into doc folder on dpkg / deploy
355 
' 		INPUT:  pkg_name
356 
'				pkg_version
357 
'=====================================================
358 
 
359 
'================ Variable Definition ================
360 
Dim objArgs
361 
Dim parPv_id
362 
Dim parPkg_name
363 
Dim parRtag_name
364 
Dim parProj_id
365 
Dim parPkg_Version
366 
'=============== Constants Declaration ===============
367 
Const enumLoc_iss_db        = 0
368 
Const enumLoc_iss_id        = 1
369 
Const enumLoc_iss_num       = 2
370 
Const enumLoc_summary       = 3
371 
Const enumLoc_status        = 4
372 
Const enumLoc_priority      = 5
373 
Const enumLoc_issue_type    = 6
374 
Const enumLoc_submitter     = 7
375 
Const enumLoc_defect_in     = 8
376 
Const enumLoc_submit_date   = 9
377 
Const enumLoc_project       = 10
378 
Const enumLoc_owner         = 11
379 
Const enumLoc_product       = 12
380 
Const enumLoc_approver      = 13
381 
Const enumLoc_package       = 14
382 
Const enumLoc_description   = 15
383 
Const enumLoc_notes_log     = 16
384 
Const enumLoc_release_id    = 17
385 
Const enumLoc_client_ref    = 18
386 
Const enumLoc_severity      = 19
387 
Const enumLoc_change_request = 20
388 
'================== Variable Init ====================
389 
'=====================================================
390 
'-----------------------------------------------------------------------------------------------------------------
391 
Sub Get_Snippet ( SSname, SSnotesSTR, outSnippetSTR, outInsertFrom )
392 
	Dim beginSnippet, endSnippet
153 ghuddy 393 
 
119 ghuddy 394 
	beginSnippet = InStr( SSnotesSTR, "SnippetName="""& SSname &"""")
395 
	If beginSnippet <> 0 Then
153 ghuddy 396 
		beginSnippet =  InStr( beginSnippet, SSnotesSTR, VBNewLine )	' Find beginning of the code
119 ghuddy 397 
		endSnippet = InStr( beginSnippet, SSnotesSTR, "EndOfSnippet" ) - 1
398 
		outInsertFrom = InStr( endSnippet, SSnotesSTR, "-->" ) + 3
399 
		outSnippetSTR = Mid( SSnotesSTR, beginSnippet, endSnippet - beginSnippet )
153 ghuddy 400 
 
119 ghuddy 401 
	Else
402 
		Call Raise_Event ( enumEVENT_ERROR, "[job:GenerateReleaseNotes  sub:Get_Snippet]", _
403 
						   					"SnippetName: "& SSname , _
404 
						   					"SnippetName not found!", enum_RELEASE_NOTES_FAILED )
153 ghuddy 405 
 
119 ghuddy 406 
	End If
153 ghuddy 407 
 
119 ghuddy 408 
End Sub
409 
'-----------------------------------------------------------------------------------------------------------------
410 
Function ArrayRecord ( NNcolumn, SSrecCode, DDdepIss, AAdepIss )
411 
	If NOT DDdepIss.Exists ( SSrecCode ) Then Exit Function
153 ghuddy 412 
 
119 ghuddy 413 
	ArrayRecord = NVL( AAdepIss ( NNcolumn, CInt( DDdepIss.Item (SSrecCode) ) ) )
414 
End Function
415 
'-----------------------------------------------------------------------------------------------------------------
416 
Sub Insert_To_Page ( notesSTR, insertFrom, insterSTR )
417 
	notesSTR = Left( notesSTR, insertFrom ) & insterSTR & Right( notesSTR, Len(notesSTR) - insertFrom )
418 
	insterSTR = NULL	' Clear the insert string
419 
End Sub
420 
'-----------------------------------------------------------------------------------------------------------------
421 
Sub Group_By ( rsG, outCurrG, snippetSTR, outSTR, BBchanged )
422 
	If rsG = outCurrG Then Exit Sub
153 ghuddy 423 
 
119 ghuddy 424 
	outSTR = outSTR & snippetSTR
425 
	outCurrG = rsG
426 
	BBchanged = TRUE
427 
End Sub
428 
'-----------------------------------------------------------------------------------------------------------------
429 
Sub Generate_Release_Notes ( )
430 
	Dim objPkgFileSys, docPath, rootPath
431 
	Dim notesSTR, pkgType
153 ghuddy 432 
 
119 ghuddy 433 
	Set objPkgFileSys = New PkgArchive
153 ghuddy 434 
 
435 
 
119 ghuddy 436 
	objPkgFileSys.Map_Network_Drive  UNC_ARCHIVE, MappedDrive 	' Map Drive if required
153 ghuddy 437 
 
119 ghuddy 438 
	pkgType = Get_Package_Type ( parPv_id )
153 ghuddy 439 
 
119 ghuddy 440 
	objPkgFileSys.Remote_Host = TELNET_MACHINE
441 
	If pkgType = enumPKG_TYPE_ERG_PRODUCT Then
442 
		rootPath = MappedDrive & DEPLOY_ARCHIVE &"\"& parPkg_name &"\"& parPkg_Version
443 
		objPkgFileSys.Archive_Path = TELNET_DEPLOY_ARCHIVE
153 ghuddy 444 
 
119 ghuddy 445 
	Else
446 
		rootPath = MappedDrive & DPKG_ARCHIVE &"\"& parPkg_name &"\"& parPkg_Version
447 
		objPkgFileSys.Archive_Path = TELNET_DPKG_ARCHIVE
153 ghuddy 448 
 
119 ghuddy 449 
	End If
450 
	objPkgFileSys.Create_Doc_Folder parPkg_name, parPkg_Version, DOC_FOLDER	' Create document folder if required
153 ghuddy 451 
 
119 ghuddy 452 
	' --------------- RELEASE NOTES ----------------
153 ghuddy 453 
 
119 ghuddy 454 
	Select Case pkgType
455 
		Case enumPKG_TYPE_GENERIC_DPKG
456 
			Call Generate_Notes_Style_A ( parPv_id, notesSTR, parRtag_name, parProj_id )
153 ghuddy 457 
 
119 ghuddy 458 
		Case enumPKG_TYPE_DB_PATCH_DPKG
459 
			Call Generate_Notes_Style_A ( parPv_id, notesSTR, parRtag_name, parProj_id )
460 
 
461 
		Case enumPKG_TYPE_DEVICE_DPKG
462 
			Call Generate_Notes_Style_A ( parPv_id, notesSTR, parRtag_name, parProj_id )
153 ghuddy 463 
 
119 ghuddy 464 
		Case enumPKG_TYPE_ERG_PRODUCT
465 
			Call Generate_Notes_Style_B ( parPv_id, notesSTR, parRtag_name, parProj_id )
466 
 
467 
		Case Else
468 
			Call Generate_Notes_Style_A ( parPv_id, notesSTR, parRtag_name, parProj_id )
153 ghuddy 469 
 
119 ghuddy 470 
	End Select
153 ghuddy 471 
 
119 ghuddy 472 
	If WScript.Arguments.Named.Item("file") = "" Then
473 
		Call SaveFile( rootPath &"\"& DOC_FOLDER, Format_FileName( parPkg_name, parPkg_Version, parPv_id ) , notesSTR )
474 
	Else
475 
		Call SaveFile( AppPath &"temp", WScript.Arguments.Named.Item("file") , notesSTR )
476 
	End If
153 ghuddy 477 
 
119 ghuddy 478 
	' ----------------------------------------------
153 ghuddy 479 
 
119 ghuddy 480 
End Sub
481 
'-----------------------------------------------------------------------------------------------------------------
482 
Function Format_CQ_CHANGE_REQUEST ( sInternal, sExternal )
483 
    If NOT IsNull( sInternal ) Then
484 
        If UCase( sInternal ) = "TRUE" AND UCase( sExternal ) = "TRUE" Then
485 
            Format_CQ_CHANGE_REQUEST  = "Internal/External"
153 ghuddy 486 
 
119 ghuddy 487 
        ElseIf UCase( sInternal ) = "TRUE" Then
488 
            Format_CQ_CHANGE_REQUEST  = "Internal"
153 ghuddy 489 
 
119 ghuddy 490 
        ElseIf UCase( sExternal) = "TRUE" Then
491 
            Format_CQ_CHANGE_REQUEST  = "External"
153 ghuddy 492 
 
119 ghuddy 493 
        Else
494 
            Format_CQ_CHANGE_REQUEST  = "--"
153 ghuddy 495 
 
119 ghuddy 496 
        End If
497 
    Else
498 
      Format_CQ_CHANGE_REQUEST  = "--"
153 ghuddy 499 
 
119 ghuddy 500 
    End If
501 
End Function
502 
'-----------------------------------------------------------------------------------------------------------------
503 
Function Format_Reason_For_Release ( nIss_id, sReason )
504 
    If IsNull( nIss_id ) Then
153 ghuddy 505 
        If IsNull( sReason ) Then
506 
            Format_Reason_For_Release =  "Reason for this version is not specified."
119 ghuddy 507 
        Else
153 ghuddy 508 
            Format_Reason_For_Release = FormatTextBox( HTML_Encode ( sReason ) )
119 ghuddy 509 
        End If
510 
    Else
153 ghuddy 511 
        If IsNull( sReason ) Then
512 
            Format_Reason_For_Release = ""
119 ghuddy 513 
        Else
153 ghuddy 514 
            Format_Reason_For_Release = FormatTextBox( HTML_Encode ( sReason ) )
119 ghuddy 515 
        End If
516 
    End If
517 
End Function
518 
'-----------------------------------------------------------------------------------------------------------------
519 
Sub Get_Dependency_CQ_Issues ( SSsql, OOrsCQ, DDdepIss, AAiss )
520 
	Dim recCnt
153 ghuddy 521 
	If OOrsCQ.State = 1 Then
119 ghuddy 522 
		OOrsCQ.Close
523 
	End If
153 ghuddy 524 
 
119 ghuddy 525 
	OOrsCQ.ActiveConnection = CQ_conn
526 
	OOrsCQ.Source = SSsql
527 
	OOrsCQ.CursorType = 0
528 
	OOrsCQ.CursorLocation = 2
529 
	OOrsCQ.LockType = 3
530 
	OOrsCQ.Open()
153 ghuddy 531 
 
119 ghuddy 532 
	recCnt = 1
153 ghuddy 533 
 
119 ghuddy 534 
	While ((NOT OOrsCQ.BOF) AND (NOT OOrsCQ.EOF))
535 
		ReDim Preserve AAiss( 20, recCnt )
536 
		DDdepIss.Add Cstr(OOrsCQ("iss_db") &"."& OOrsCQ("iss_id")), Cstr(recCnt)
537 
		AAiss( enumLoc_iss_db, recCnt ) 	    = NVL( OOrsCQ("iss_db") )
538 
		AAiss( enumLoc_iss_id, recCnt ) 	    = NVL( OOrsCQ("iss_id") )
539 
		AAiss( enumLoc_iss_num, recCnt )	    = NVL( OOrsCQ("iss_num") )
540 
		AAiss( enumLoc_summary, recCnt )	    = NVL( FormatTextBox ( HTML_Encode ( OOrsCQ("summary") ) ) )
541 
		AAiss( enumLoc_status, recCnt ) 	    = NVL( OOrsCQ("status") )
542 
		AAiss( enumLoc_priority, recCnt ) 	    = NVL( OOrsCQ("priority") )
543 
		AAiss( enumLoc_issue_type, recCnt )     = NVL( OOrsCQ("issue_type") )
544 
		AAiss( enumLoc_submitter, recCnt )      = NVL( OOrsCQ("submitter") )
545 
		AAiss( enumLoc_defect_in, recCnt )      = NVL( OOrsCQ("release_part1") &"."& OOrsCQ("release_part2") &"."& OOrsCQ("release_part3") )
546 
		AAiss( enumLoc_submit_date, recCnt )    = NVL( EuroDate ( OOrsCQ("submit_date") ) )
547 
		AAiss( enumLoc_project, recCnt )        = NVL( OOrsCQ("project") )
548 
		AAiss( enumLoc_owner, recCnt )          = NVL( OOrsCQ("owner") )
549 
		AAiss( enumLoc_product, recCnt )        = NVL( OOrsCQ("product") )
550 
		AAiss( enumLoc_approver, recCnt )       = NVL( OOrsCQ("approver") )
551 
		AAiss( enumLoc_package, recCnt )        = NVL( OOrsCQ("package_ref") )
552 
		AAiss( enumLoc_description, recCnt )    = NVL( FormatTextBox ( HTML_Encode ( OOrsCQ("description") ) ) )
553 
		AAiss( enumLoc_notes_log, recCnt )      = NVL( FormatTextBox ( HTML_Encode ( OOrsCQ("notes_log") ) ) )
554 
		AAiss( enumLoc_release_id, recCnt )     = NVL( OOrsCQ("release_id") )
555 
		AAiss( enumLoc_client_ref, recCnt )     = NVL( OOrsCQ("client_ref") )
556 
		AAiss( enumLoc_severity, recCnt )       = NVL( OOrsCQ("severity") )
557 
		AAiss( enumLoc_change_request, recCnt ) = Format_CQ_CHANGE_REQUEST ( OOrsCQ("cr_internal"), OOrsCQ("cr_external") )
153 ghuddy 558 
 
119 ghuddy 559 
		recCnt = recCnt + 1
560 
		OOrsCQ.MoveNext
561 
	WEnd
153 ghuddy 562 
 
119 ghuddy 563 
	OOrsCQ.Close
153 ghuddy 564 
End Sub
119 ghuddy 565 
'-----------------------------------------------------------------------------------------------------------------
566 
Sub Get_ORA_Package_Issues ( SSstate, outCQSQL )
567 
	Dim rsTemp, sqlstr, DEVIiss, TDSEiss
153 ghuddy 568 
 
119 ghuddy 569 
	Select Case SSstate
570 
	Case "Fixed_Issues"
571 
		sqlstr = " SELECT iss_db, iss_id, iss_state"&_
572 
		         "   FROM CQ_ISSUES "&_
573 
		         "  WHERE pv_id = "& parPv_id &_
574 
		         "    AND iss_state = "& enumISSUES_STATE_FIXED
575 
	Case "Outstanding_Issues"
576 
		sqlstr = " SELECT iss_db, iss_id, iss_state"&_
577 
		         "   FROM CQ_ISSUES "&_
578 
		         "  WHERE pv_id = "& parPv_id &_
579 
		         "    AND iss_state = "& enumISSUES_STATE_IMPORTED
580 
	Case "Dependency_Issues"
581 
		sqlstr = " SELECT iss_db, iss_id"&_
582 
				 "   FROM CQ_ISSUES "&_
583 
				 "  WHERE iss_state = "& enumISSUES_STATE_FIXED &_
584 
				 "    AND pv_id IN ( SELECT dpv_id FROM PACKAGE_DEPENDENCIES WHERE pv_id = "& parPv_id &" )"
585 
	End Select
153 ghuddy 586 
 
119 ghuddy 587 
	Set rsTemp = OraDatabase.DbCreateDynaset( sqlstr, cint(0))
153 ghuddy 588 
 
119 ghuddy 589 
	DEVIiss = "-1"
590 
	TDSEiss  = "-1"
153 ghuddy 591 
 
119 ghuddy 592 
	While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
593 
		If CInt(rsTemp("iss_db")) = CInt(enumCLEARQUEST_DEVI_ID) Then
594 
			DEVIiss = DEVIiss &","& rsTemp("iss_id")
153 ghuddy 595 
 
119 ghuddy 596 
		ElseIf CInt(rsTemp("iss_db")) = CInt(enumCLEARQUEST_TDSE_ID) Then
597 
			TDSEiss = TDSEiss &","& rsTemp("iss_id")
153 ghuddy 598 
 
119 ghuddy 599 
		End If
153 ghuddy 600 
 
119 ghuddy 601 
		rsTemp.MoveNext
602 
	WEnd
153 ghuddy 603 
 
119 ghuddy 604 
	' Construct SQL statement for CQ database
605 
	outCQSQL = ReadFile( AppPath & QUERIES_FOLDER & "\cq_issues_full.sql" )
606 
	outCQSQL = Replace( outCQSQL, "/*enumCLEARQUEST_DEVI_ID*/", enumCLEARQUEST_DEVI_ID)
607 
	outCQSQL = Replace( outCQSQL, "/*enumCLEARQUEST_TDSE_ID*/", enumCLEARQUEST_TDSE_ID)
608 
	outCQSQL = Replace( outCQSQL, "/*DEVIiss*/", DEVIiss)
609 
	outCQSQL = Replace( outCQSQL, "/*TDSEiss*/", TDSEiss)
153 ghuddy 610 
 
119 ghuddy 611 
	rsTemp.Close
612 
	Set rsTemp = nothing
613 
End Sub
614 
'-----------------------------------------------------------------------------------------------------------------
615 
Sub Get_JIRA_Package_Issues ( outJIRASQL )
616 
	Dim rsTemp, sqlstr, JIRAiss
153 ghuddy 617 
 
119 ghuddy 618 
	sqlstr = " SELECT *"&_
619 
			 " 	 FROM JIRA_ISSUES"&_
153 ghuddy 620 
			 "	WHERE pv_id = "& parPv_id
119 ghuddy 621 
 
153 ghuddy 622 
	Set rsTemp = OraDatabase.DbCreateDynaset( sqlstr, cint(0))
623 
 
624 
	JIRAiss = "'-1'"
625 
 
119 ghuddy 626 
	While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
627 
				JIRAiss = JIRAiss &",'"& rsTemp("iss_key")&"'"
628 
		rsTemp.MoveNext
153 ghuddy 629 
	WEnd
119 ghuddy 630 
 
153 ghuddy 631 
 
632 
 
119 ghuddy 633 
	'Construct SQL statement for JIRA database
153 ghuddy 634 
	If Len(JIRAiss) <> 1 Then
119 ghuddy 635 
		outJIRASQL = "SELECT I.pkey AS iss_num, I.summary, ISS.pname AS state,  IT.pname as IssueType, PR.pname as Priority, I.RESOLUTION "&_
636 
				" FROM jiraissue I, issuestatus ISS, issuetype IT, priority PR "&_
637 
				" WHERE I.pkey IN ("& JIRAIss &") "&_
638 
				" AND I.issuestatus = ISS.ID "&_
639 
				" AND IT.ID = I.issuetype "&_
640 
				" AND PR.ID = I.PRIORITY "
153 ghuddy 641 
 
642 
	End If
643 
 
644 
	rsTemp.Close
119 ghuddy 645 
	Set rsTemp = nothing
646 
 
647 
 
153 ghuddy 648 
 
119 ghuddy 649 
End Sub
650 
'-----------------------------------------------------------------------------------------------------------------
651 
Sub Get_CQ_Issues ( SSsql, OOrsCQ )
652 
	OOrsCQ.ActiveConnection = CQ_conn
653 
	OOrsCQ.Source = SSsql
654 
	OOrsCQ.CursorType = 0
655 
	OOrsCQ.CursorLocation = 2
656 
	OOrsCQ.LockType = 3
657 
	OOrsCQ.Open()
658 
End Sub
659 
'-----------------------------------------------------------------------------------------------------------------
660 
Sub Get_JIRA_Issues ( SSsql, OOrsJIRA )
181 brianf 661 
	OOrsJIRA.ActiveConnection = JIRA_conn
119 ghuddy 662 
	OOrsJIRA.Source = SSsql
663 
	OOrsJIRA.CursorType = 0
664 
	OOrsJIRA.CursorLocation = 2
665 
	OOrsJIRA.LockType = 3
666 
	OOrsJIRA.Open()
667 
End Sub
668 
'-----------------------------------------------------------------------------------------------------------------
669 
Sub EditReleaseInfoDetails ( nIssDB, nIssId, sNewInfo, sCurrentInfo )
670 
	Dim rsQry, Source, pos
671 
 
672 
	If NOT IsNull(sCurrentInfo) Then
673 
		pos = InStr( sCurrentInfo, sNewInfo )
674 
		'Wscript.Echo pos
675 
		'Wscript.Echo Len(sCurrentInfo)
676 
		If pos = 0 Then
677 
			If Len(sCurrentInfo) = 0 Then
678 
				sCurrentInfo = sNewInfo
679 
			Else
153 ghuddy 680 
				sCurrentInfo = sCurrentInfo + VBNewLine + sNewInfo
119 ghuddy 681 
			End If
682 
		Else
683 
			sCurrentInfo = sCurrentInfo
684 
		End If
685 
	Else
686 
		sCurrentInfo = sNewInfo
687 
	End If
153 ghuddy 688 
 
119 ghuddy 689 
	Wscript.Echo sCurrentInfo
690 
 
691 
	Set rsQry = CreateObject("ADODB.Connection")
692 
 
693 
	rsQry.Open CQ_conn
153 ghuddy 694 
 
119 ghuddy 695 
	If CInt(nIssDB) = enumCLEARQUEST_DEVI_ID Then
159 ghuddy 696 
                Source = "EXEC cq_devi.dbo.sp_RM_editReleaseInfoDetails "& nIssId &", '"& sCurrentInfo &"';"
119 ghuddy 697 
		rsQry.Execute Source
698 
	End If
153 ghuddy 699 
 
119 ghuddy 700 
	'On Error Resume Next
701 
 
153 ghuddy 702 
 
703 
 
119 ghuddy 704 
	rsQry.Close()
705 
	Set rsQry = nothing
706 
End Sub
707 
'-----------------------------------------------------------------------------------------------------------------
708 
'-------------------- MAIN LINE ----------------------
709 
WScript.Echo "==================== job:GenerateReleaseNotes ===================="
710 
 
711 
Set objArgs = WScript.Arguments
712 
 
713 
If (objArgs.Unnamed.Count > 0) Then
714 
	Wscript.Echo "ERROR: Unnamed parameters!"
715 
	objArgs.ShowUsage
716 
   	WScript.Quit
153 ghuddy 717 
 
119 ghuddy 718 
Else
719 
	parPkg_name = objArgs.Named.Item("pkg_name")
720 
	parPkg_Version = objArgs.Named.Item("pkg_version")
721 
	parPv_id = objArgs.Named.Item("pv_id")
722 
	parRtag_name = objArgs.Named.Item("rtag_name")
723 
	parProj_id = objArgs.Named.Item("proj_id")
153 ghuddy 724 
 
119 ghuddy 725 
	If ( parPkg_name <> "" AND parPkg_Version <> "") Then
726 
		Call Get_PV_ID ( parPkg_name, parPkg_Version, parPv_id )
153 ghuddy 727 
 
119 ghuddy 728 
   	ElseIf parPv_id <> ""  Then
729 
   		Call Get_Pkg_Name_Version ( parPv_id, parPkg_name, parPkg_Version )
153 ghuddy 730 
 
119 ghuddy 731 
   	Else
732 
   		objArgs.ShowUsage
733 
   		WScript.Quit
153 ghuddy 734 
 
119 ghuddy 735 
   	End If
153 ghuddy 736 
 
119 ghuddy 737 
End If
738 
 
739 
Call Check_Requirements_To_Proceed ( parPv_id )
740 
Call Generate_Release_Notes ()
741 
 
742 
WScript.Echo "Release Notes generated successfully!"
743 
]]>
744 
		</script>
745 
	</job>
746 
	<job id="PostRun" args="/pv_id:30261 /f:Y" prompt="no">
747 
		<?job error="true" debug="true" ?>
748 
		<runtime>
749 
			<named helpstring="Package Name" name="pkg_name" required="false" type="string"/>
750 
			<named helpstring="Package Version" name="pkg_version" required="false" type="string"/>
751 
			<named helpstring="Package primary key" name="pv_id" required="false" type="simple"/>
752 
			<named helpstring="Force Release Notes Generation" name="f" required="false" type="string"/>
753 
			<usage>
153 ghuddy 754 
Usage:
119 ghuddy 755 
   on_Make_Official.wsf [/pkg_name:value] [/pkg_version:value]
756 
OR
757 
   on_Make_Official.wsf [/pv_id:value]
758 
 
759 
Options:
760 
 
761 
pkg_name     : Package Name
762 
pkg_version  : Package Version
763 
pv_id        : Package Version primary key
764 
			</usage>
765 
		</runtime>
766 
		<object id="Oracle_Objects_For_OLE" progid="OracleInProcServer.XOraSession" events="true"/>
767 
		<script language="VBScript" src="common_subs.vbs"/>
768 
		<script language="VBScript" src="config.vbs"/>
769 
		<script language="VBScript" src="pkg_archive.vbs"/>
770 
		<script id="PostRun" language="VBScript">
771 
<![CDATA[
772 
Option Explicit
773 
'=====================================================
774 
'        Name: 	PostRun
153 ghuddy 775 
' Description:	Process ran after the release notes
119 ghuddy 776 
'               have been generated.
777 
' 		INPUT:  pkg_name
778 
'				pkg_version
779 
'=====================================================
780 
 
781 
'================ Variable Definition ================
782 
Dim objArgs
783 
Dim parPv_id
784 
Dim parPkg_name
785 
Dim parRtag_name
786 
Dim parProj_id
787 
Dim parPkg_Version
788 
Dim objPkgFileSys
789 
Dim rootPath
790 
Dim notesLocation
161 iaugusti 791 
Dim outRTAG_ID
792 
Dim outPKG_ID
119 ghuddy 793 
'=============== Constants Declaration ===============
794 
'================== Variable Init ====================
795 
Set objPkgFileSys = New PkgArchive
796 
'=====================================================
797 
'-----------------------------------------------------------------------------------------------------------------
798 
Sub Move_Files_From_Web_Archive ()
799 
    Dim oFileSys, sPath, sSourcePath, sDestPath
800 
    Set oFileSys = CreateObject("Scripting.FileSystemObject")
153 ghuddy 801 
 
802 
 
119 ghuddy 803 
    ' Move doc folder contents
153 ghuddy 804 
    sSourcePath = AppPath & TEMP_FOLDER &"\"& parPkg_name &"\"& parPkg_Version &"\"& DOC_FOLDER
119 ghuddy 805 
    sDestPath = rootPath &"\"& DOC_FOLDER
153 ghuddy 806 
 
119 ghuddy 807 
    If oFileSys.FolderExists( sSourcePath ) Then
808 
        WScript.Echo "Moving attachments from Web Server..."
809 
        On Error Resume Next
153 ghuddy 810 
 
119 ghuddy 811 
        oFileSys.CopyFile sSourcePath &"\*", sDestPath, True   ' Copy with overwrite
812 
        Call ErrorCheck ( "[job:PostRun sub:Move_Files_From_Web_Archive]", _
813 
                  		  "sSourcePath: "& sSourcePath & VBNewLine &_
814 
                  		  "sDestPath: "& sDestPath  )
153 ghuddy 815 
 
119 ghuddy 816 
        oFileSys.DeleteFolder sSourcePath, True      ' Clean up
817 
        'Call ErrorCheck ( "[job:PostRun sub:Move_Files_From_Web_Archive]", _
818 
        '          		  "Delete Folder: "& sSourcePath )
153 ghuddy 819 
 
119 ghuddy 820 
    End If
153 ghuddy 821 
 
119 ghuddy 822 
    Call CleanUp_Folders ( AppPath & TEMP_FOLDER )
153 ghuddy 823 
 
119 ghuddy 824 
End Sub
825 
'-----------------------------------------------------------------------------------------------------------------
826 
Sub CleanUp_Folders ( sPath )
827 
	Dim currentFolder
828 
	' Attempt to remove PKG_NAME/PKG_VERSION folders on web server
829 
	WScript.Echo "Cleaning temp files/folders at Web Server..."
830 
    On Error Resume Next
831 
 
832 
	' Attempting to remove PKG_VERSION/
833 
	currentFolder = sPath &"\"& parPkg_name &"\"& parPkg_version
153 ghuddy 834 
	If Folder_Is_Empty ( currentFolder  ) Then
119 ghuddy 835 
	    Call DeleteFolder( currentFolder )
836 
	'Else
837 
	'    Call Raise_Event ( enumEVENT_WARNING, "[job:PostRun sub:CleanUp_Folders]", _
838 
	'										  "Deleting Folder: "& currentFolder , _
839 
	'					   					  "PKG_VERSION Folder is not empty and is not removed! Skipping this process.", NULL )
840 
	End If
153 ghuddy 841 
 
119 ghuddy 842 
	Call ErrorCheck ( "[job:PostRun sub:CleanUp_Folders]", _
843 
	                  "Delete Folder: "& currentFolder )
153 ghuddy 844 
 
845 
 
846 
 
119 ghuddy 847 
	' Attempting to remove PKG_NAME/
848 
	currentFolder = sPath &"\"& parPkg_name
153 ghuddy 849 
	If Folder_Is_Empty ( currentFolder  ) Then
119 ghuddy 850 
	    Call DeleteFolder( currentFolder )
851 
	'Else
852 
	'    Call Raise_Event ( enumEVENT_WARNING, "[job:PostRun sub:CleanUp_Folders]", _
853 
	'										  "Deleting Folder: "& currentFolder , _
854 
	'					   					  "PKG_NAME Folder is not empty and is not removed! Skipping this process.", NULL )
855 
	End If
153 ghuddy 856 
 
119 ghuddy 857 
	Call ErrorCheck ( "[job:PostRun sub:CleanUp_Folders]", _
858 
	                  "Delete Folder: "& currentFolder )
153 ghuddy 859 
 
119 ghuddy 860 
End Sub
861 
'-----------------------------------------------------------------------------------------------------------------
862 
Sub Initial_Setup ( oPkgFileSys, sRootPath, sNotesLocation )
863 
    Dim MappedDrive, nPkgType
864 
    oPkgFileSys.Map_Network_Drive  UNC_ARCHIVE, MappedDrive 	' Map Drive if required
865 
    nPkgType = Get_Package_Type ( parPv_id )
153 ghuddy 866 
 
119 ghuddy 867 
    oPkgFileSys.Remote_Host = TELNET_MACHINE
868 
    If nPkgType = enumPKG_TYPE_ERG_PRODUCT Then
869 
        sNotesLocation = URL_PATH_DEPLOY_ARCHIVE &"/"& parPkg_name &"/"& parPkg_Version &"/"& DOC_FOLDER &"/"& Format_FileName( parPkg_name, parPkg_Version, parPv_id )
870 
        sRootPath = MappedDrive & DEPLOY_ARCHIVE &"\"& parPkg_name &"\"& parPkg_Version
871 
        oPkgFileSys.Archive_Path = TELNET_DEPLOY_ARCHIVE
153 ghuddy 872 
 
119 ghuddy 873 
    Else
874 
        sNotesLocation = URL_PATH_DPKG_ARCHIVE &"/"& parPkg_name &"/"& parPkg_Version &"/"& DOC_FOLDER &"/"& Format_FileName( parPkg_name, parPkg_Version, parPv_id )
875 
        sRootPath = MappedDrive & DPKG_ARCHIVE &"\"& parPkg_name &"\"& parPkg_Version
876 
        oPkgFileSys.Archive_Path = TELNET_DPKG_ARCHIVE
153 ghuddy 877 
 
119 ghuddy 878 
    End If
879 
 
880 
End Sub
881 
'-----------------------------------------------------------------------------------------------------------------
882 
'-------------------- MAIN LINE ----------------------
883 
WScript.Echo "==================== job:PostRun ===================="
884 
 
885 
Set objArgs = WScript.Arguments
886 
 
887 
If (objArgs.Unnamed.Count > 0) Then
888 
	Wscript.Echo "ERROR: Unnamed parameters!"
889 
	objArgs.ShowUsage
890 
   	WScript.Quit
153 ghuddy 891 
 
119 ghuddy 892 
Else
893 
	parPkg_name = objArgs.Named.Item("pkg_name")
894 
	parPkg_Version = objArgs.Named.Item("pkg_version")
895 
	parPv_id = objArgs.Named.Item("pv_id")
896 
	parRtag_name = objArgs.Named.Item("rtag_name")
897 
	parProj_id = objArgs.Named.Item("proj_id")
153 ghuddy 898 
 
119 ghuddy 899 
	If ( parPkg_name <> "" AND parPkg_Version <> "") Then
900 
		Call Get_PV_ID ( parPkg_name, parPkg_Version, parPv_id )
153 ghuddy 901 
 
119 ghuddy 902 
   	ElseIf parPv_id <> ""  Then
903 
   		Call Get_Pkg_Name_Version ( parPv_id, parPkg_name, parPkg_Version )
153 ghuddy 904 
 
119 ghuddy 905 
   	Else
906 
   		objArgs.ShowUsage
907 
   		WScript.Quit
153 ghuddy 908 
 
119 ghuddy 909 
   	End If
153 ghuddy 910 
 
119 ghuddy 911 
End If
912 
 
913 
Call Check_Requirements_To_Proceed ( parPv_id )
914 
Call Initial_Setup ( objPkgFileSys, rootPath, notesLocation )
915 
 
916 
Call Move_Files_From_Web_Archive ()
917 
 
918 
WScript.Echo "Making all READ ONLY from folder "& parPkg_Version &"/"
919 
objPkgFileSys.All_Read_Only  parPkg_name, parPkg_Version        ' Make sure all file and folders are read only. Starting from version folder.
920 
 
921 
Call Write_To_Release_Notes_Info ( parPv_id, notesLocation )
922 
 
923 
Set objPkgFileSys = Nothing
924 
 
925 
WScript.Echo "PostRun completed successfully!"
926 
]]>
927 
		</script>
928 
	</job>
165 brianf 929 
	<job id="ReleaseChanged" args="/pkg_name:jats_tutorial /pkg_version:1.0.0 /rtag_id:2 /pkg_id:30261 /pv_id:30261 /proj_id:3 /mode_id:1" prompt="no">
930 
		<?job error="true" debug="true" ?>
931 
		<runtime>
932 
			<named helpstring="Package Name" name="pkg_name" required="false" type="string"/>
933 
			<named helpstring="Package Version" name="pkg_version" required="false" type="string"/>
934 
			<named helpstring="Release Tag Id" name="rtag_id" required="false" type="string"/>
935 
			<named helpstring="Package Id" name="pkg_id" required="false" type="string"/>
936 
			<named helpstring="Package version Id" name="pv_id" required="false" type="string"/>
937 
			<named helpstring="Project Id" name="proj_id" required="false" type="string"/>
938 
			<named helpstring="Change Mode Id" name="mode_id" required="false" type="simple"/>
939 
			<usage>
940 
Usage:
941 
   on_Make_Official.wsf [/pv_id:value] [/pkg_name:"value"] [/pkg_version:"value"] [/rtag_id:value] [/pkg_id:value] [/pv_id:value] [/proj_id:value] [/mode_id:value]
942 
 
943 
Options:
944 
 
945 
pkg_name     : Package Name
946 
pkg_version  : Package Version
947 
rtag_id      : Release Tag Id
948 
pkg_id       : Package Id
949 
pv_id        : Package version Id
950 
proj_id      : Project Id
951 
mode_id      : Package Change Mode Id
952 
			</usage>
953 
		</runtime>
954 
		<object id="Object1" progid="OracleInProcServer.XOraSession" events="true"/>
955 
		<script language="VBScript" src="common_subs.vbs"/>
956 
		<script language="VBScript" src="config.vbs"/>
957 
		<script language="VBScript" src="pkg_archive.vbs"/>
958 
		<script id="ReleaseChanged" language="VBScript">
959 
<![CDATA[
960 
Option Explicit
961 
'=====================================================
962 
'        Name: 	ReleaseChanged
963 
' Description:	Process that is called after the content of a release has changed
964 
' 		INPUT:
965 
'               pkg_name
966 
'               pkg_version
967 
'               rtag_id
968 
'               pkg_id
969 
'               pv_id
970 
'               proj_id
971 
'               mode_id
972 
'=====================================================
973 
 
974 
'================ Variable Definition ================
975 
Dim objArgs
976 
Dim parPkg_name,parPkg_version,parRtag_id,parPkg_id,parPv_id,parProj_id,parMode_id
977 
Dim objPkgFileSys
978 
'=============== Constants Declaration ===============
979 
'-----------------------------------------------------------------------------------------------------------------
980 
'================== Variable Init ====================
981 
Set objPkgFileSys = New PkgArchive
982 
'=====================================================
983 
'-------------------- MAIN LINE ----------------------
984 
WScript.Echo "==================== job:ReleaseChanged ===================="
985 
 
986 
Set objArgs = WScript.Arguments
987 
 
988 
If (objArgs.Unnamed.Count > 0) Then
989 
	Wscript.Echo "ERROR: Unnamed parameters!"
990 
	objArgs.ShowUsage
991 
   	WScript.Quit
992 
Else
993 
	parPkg_name = objArgs.Named.Item("pkg_name")
994 
	parPkg_Version = objArgs.Named.Item("pkg_version")
995 
	parRtag_id = objArgs.Named.Item("rtag_id")
996 
	parPkg_id = objArgs.Named.Item("pkg_id")
997 
	parPv_id = objArgs.Named.Item("pv_id")
998 
	parProj_id = objArgs.Named.Item("proj_id")
999 
	parMode_id = objArgs.Named.Item("mode_id")
1000 
   	If parPv_id = ""  Then
1001 
   	  objArgs.ShowUsage
1002 
   	  WScript.Quit
1003 
   	End If
1004 
End If
1005 
 
1006 
Dim nPkgType
1007 
objPkgFileSys.Map_Network_Drive  UNC_ARCHIVE, MappedDrive 	' Map Drive if required
1008 
 
1009 
nPkgType = Get_Package_Type ( parPv_id )
1010 
 
1011 
' Is this package ERG PRODUCT
1012 
objPkgFileSys.Remote_Host = TELNET_MACHINE
1013 
If nPkgType = enumPKG_TYPE_ERG_PRODUCT Then
1014 
  objPkgFileSys.Archive_Path = TELNET_DEPLOY_ARCHIVE
1015 
Else
1016 
  objPkgFileSys.Archive_Path = TELNET_DPKG_ARCHIVE
1017 
End If
1018 
 
1019 
Call objPkgFileSys.Make_Release_Changed(parPkg_name,parPkg_version,parRtag_id,parPkg_id,parPv_id,parProj_id,parMode_id,false)
1020 
 
1021 
Set objPkgFileSys = Nothing
1022 
 
1023 
WScript.Echo "ReleaseChanged completed successfully!"
1024 
 
1025 
]]>
1026 
		</script>
1027 
	</job>
119 ghuddy 1028 
</package>