Subversion Repositories DevTools

Rev

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