Subversion Repositories DevTools

Rev

Rev 3866 | 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 )
3974 dpurdie 552 
	Dim rsTemp, sqlstr, DEVIiss
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"
153 ghuddy 575 
 
119 ghuddy 576 
	While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
577 
		If CInt(rsTemp("iss_db")) = CInt(enumCLEARQUEST_DEVI_ID) Then
578 
			DEVIiss = DEVIiss &","& rsTemp("iss_id")
579 
		End If
153 ghuddy 580 
 
119 ghuddy 581 
		rsTemp.MoveNext
582 
	WEnd
153 ghuddy 583 
 
119 ghuddy 584 
	' Construct SQL statement for CQ database
585 
	outCQSQL = ReadFile( AppPath & QUERIES_FOLDER & "\cq_issues_full.sql" )
586 
	outCQSQL = Replace( outCQSQL, "/*enumCLEARQUEST_DEVI_ID*/", enumCLEARQUEST_DEVI_ID)
587 
	outCQSQL = Replace( outCQSQL, "/*DEVIiss*/", DEVIiss)
153 ghuddy 588 
 
119 ghuddy 589 
	rsTemp.Close
590 
	Set rsTemp = nothing
591 
End Sub
592 
'-----------------------------------------------------------------------------------------------------------------
593 
Sub Get_JIRA_Package_Issues ( outJIRASQL )
594 
	Dim rsTemp, sqlstr, JIRAiss
153 ghuddy 595 
 
119 ghuddy 596 
	sqlstr = " SELECT *"&_
597 
			 " 	 FROM JIRA_ISSUES"&_
153 ghuddy 598 
			 "	WHERE pv_id = "& parPv_id
119 ghuddy 599 
 
153 ghuddy 600 
	Set rsTemp = OraDatabase.DbCreateDynaset( sqlstr, cint(0))
601 
 
602 
	JIRAiss = "'-1'"
603 
 
119 ghuddy 604 
	While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
605 
				JIRAiss = JIRAiss &",'"& rsTemp("iss_key")&"'"
606 
		rsTemp.MoveNext
153 ghuddy 607 
	WEnd
119 ghuddy 608 
 
153 ghuddy 609 
 
610 
 
119 ghuddy 611 
	'Construct SQL statement for JIRA database
153 ghuddy 612 
	If Len(JIRAiss) <> 1 Then
119 ghuddy 613 
		outJIRASQL = "SELECT I.pkey AS iss_num, I.summary, ISS.pname AS state,  IT.pname as IssueType, PR.pname as Priority, I.RESOLUTION "&_
614 
				" FROM jiraissue I, issuestatus ISS, issuetype IT, priority PR "&_
615 
				" WHERE I.pkey IN ("& JIRAIss &") "&_
616 
				" AND I.issuestatus = ISS.ID "&_
617 
				" AND IT.ID = I.issuetype "&_
618 
				" AND PR.ID = I.PRIORITY "
153 ghuddy 619 
 
620 
	End If
621 
 
622 
	rsTemp.Close
119 ghuddy 623 
	Set rsTemp = nothing
624 
 
625 
 
153 ghuddy 626 
 
119 ghuddy 627 
End Sub
628 
'-----------------------------------------------------------------------------------------------------------------
629 
Sub Get_CQ_Issues ( SSsql, OOrsCQ )
630 
	OOrsCQ.ActiveConnection = CQ_conn
631 
	OOrsCQ.Source = SSsql
632 
	OOrsCQ.CursorType = 0
633 
	OOrsCQ.CursorLocation = 2
634 
	OOrsCQ.LockType = 3
635 
	OOrsCQ.Open()
636 
End Sub
637 
'-----------------------------------------------------------------------------------------------------------------
638 
Sub Get_JIRA_Issues ( SSsql, OOrsJIRA )
181 brianf 639 
	OOrsJIRA.ActiveConnection = JIRA_conn
119 ghuddy 640 
	OOrsJIRA.Source = SSsql
641 
	OOrsJIRA.CursorType = 0
642 
	OOrsJIRA.CursorLocation = 2
643 
	OOrsJIRA.LockType = 3
644 
	OOrsJIRA.Open()
645 
End Sub
646 
'-----------------------------------------------------------------------------------------------------------------
647 
Sub EditReleaseInfoDetails ( nIssDB, nIssId, sNewInfo, sCurrentInfo )
648 
	Dim rsQry, Source, pos
649 
 
650 
	If NOT IsNull(sCurrentInfo) Then
651 
		pos = InStr( sCurrentInfo, sNewInfo )
652 
		'Wscript.Echo pos
653 
		'Wscript.Echo Len(sCurrentInfo)
654 
		If pos = 0 Then
655 
			If Len(sCurrentInfo) = 0 Then
656 
				sCurrentInfo = sNewInfo
657 
			Else
153 ghuddy 658 
				sCurrentInfo = sCurrentInfo + VBNewLine + sNewInfo
119 ghuddy 659 
			End If
660 
		Else
661 
			sCurrentInfo = sCurrentInfo
662 
		End If
663 
	Else
664 
		sCurrentInfo = sNewInfo
665 
	End If
153 ghuddy 666 
 
119 ghuddy 667 
	Wscript.Echo sCurrentInfo
668 
 
669 
	Set rsQry = CreateObject("ADODB.Connection")
670 
 
671 
	rsQry.Open CQ_conn
153 ghuddy 672 
 
119 ghuddy 673 
	If CInt(nIssDB) = enumCLEARQUEST_DEVI_ID Then
159 ghuddy 674 
                Source = "EXEC cq_devi.dbo.sp_RM_editReleaseInfoDetails "& nIssId &", '"& sCurrentInfo &"';"
119 ghuddy 675 
		rsQry.Execute Source
676 
	End If
153 ghuddy 677 
 
119 ghuddy 678 
	'On Error Resume Next
679 
 
153 ghuddy 680 
 
681 
 
119 ghuddy 682 
	rsQry.Close()
683 
	Set rsQry = nothing
684 
End Sub
685 
'-----------------------------------------------------------------------------------------------------------------
686 
'-------------------- MAIN LINE ----------------------
687 
WScript.Echo "==================== job:GenerateReleaseNotes ===================="
688 
 
689 
Set objArgs = WScript.Arguments
690 
 
691 
If (objArgs.Unnamed.Count > 0) Then
692 
	Wscript.Echo "ERROR: Unnamed parameters!"
693 
	objArgs.ShowUsage
694 
   	WScript.Quit
153 ghuddy 695 
 
119 ghuddy 696 
Else
697 
	parPkg_name = objArgs.Named.Item("pkg_name")
698 
	parPkg_Version = objArgs.Named.Item("pkg_version")
699 
	parPv_id = objArgs.Named.Item("pv_id")
700 
	parRtag_name = objArgs.Named.Item("rtag_name")
701 
	parProj_id = objArgs.Named.Item("proj_id")
153 ghuddy 702 
 
119 ghuddy 703 
	If ( parPkg_name <> "" AND parPkg_Version <> "") Then
704 
		Call Get_PV_ID ( parPkg_name, parPkg_Version, parPv_id )
153 ghuddy 705 
 
119 ghuddy 706 
   	ElseIf parPv_id <> ""  Then
707 
   		Call Get_Pkg_Name_Version ( parPv_id, parPkg_name, parPkg_Version )
153 ghuddy 708 
 
119 ghuddy 709 
   	Else
710 
   		objArgs.ShowUsage
711 
   		WScript.Quit
153 ghuddy 712 
 
119 ghuddy 713 
   	End If
153 ghuddy 714 
 
119 ghuddy 715 
End If
716 
 
717 
Call Check_Requirements_To_Proceed ( parPv_id )
718 
Call Generate_Release_Notes ()
719 
 
720 
WScript.Echo "Release Notes generated successfully!"
721 
]]>
722 
		</script>
723 
	</job>
724 
	<job id="PostRun" args="/pv_id:30261 /f:Y" prompt="no">
725 
		<?job error="true" debug="true" ?>
726 
		<runtime>
727 
			<named helpstring="Package Name" name="pkg_name" required="false" type="string"/>
728 
			<named helpstring="Package Version" name="pkg_version" required="false" type="string"/>
729 
			<named helpstring="Package primary key" name="pv_id" required="false" type="simple"/>
730 
			<named helpstring="Force Release Notes Generation" name="f" required="false" type="string"/>
731 
			<usage>
153 ghuddy 732 
Usage:
119 ghuddy 733 
   on_Make_Official.wsf [/pkg_name:value] [/pkg_version:value]
734 
OR
735 
   on_Make_Official.wsf [/pv_id:value]
736 
 
737 
Options:
738 
 
739 
pkg_name     : Package Name
740 
pkg_version  : Package Version
741 
pv_id        : Package Version primary key
742 
			</usage>
743 
		</runtime>
744 
		<object id="Oracle_Objects_For_OLE" progid="OracleInProcServer.XOraSession" events="true"/>
745 
		<script language="VBScript" src="common_subs.vbs"/>
746 
		<script language="VBScript" src="config.vbs"/>
747 
		<script language="VBScript" src="pkg_archive.vbs"/>
748 
		<script id="PostRun" language="VBScript">
749 
<![CDATA[
750 
Option Explicit
751 
'=====================================================
752 
'        Name: 	PostRun
153 ghuddy 753 
' Description:	Process ran after the release notes
119 ghuddy 754 
'               have been generated.
755 
' 		INPUT:  pkg_name
756 
'				pkg_version
757 
'=====================================================
758 
 
759 
'================ Variable Definition ================
760 
Dim objArgs
761 
Dim parPv_id
762 
Dim parPkg_name
763 
Dim parRtag_name
764 
Dim parProj_id
765 
Dim parPkg_Version
766 
Dim objPkgFileSys
767 
Dim rootPath
768 
Dim notesLocation
161 iaugusti 769 
Dim outRTAG_ID
770 
Dim outPKG_ID
119 ghuddy 771 
'=============== Constants Declaration ===============
772 
'================== Variable Init ====================
773 
Set objPkgFileSys = New PkgArchive
774 
'=====================================================
775 
'-----------------------------------------------------------------------------------------------------------------
776 
Sub Move_Files_From_Web_Archive ()
777 
    Dim oFileSys, sPath, sSourcePath, sDestPath
778 
    Set oFileSys = CreateObject("Scripting.FileSystemObject")
153 ghuddy 779 
 
780 
 
119 ghuddy 781 
    ' Move doc folder contents
153 ghuddy 782 
    sSourcePath = AppPath & TEMP_FOLDER &"\"& parPkg_name &"\"& parPkg_Version &"\"& DOC_FOLDER
119 ghuddy 783 
    sDestPath = rootPath &"\"& DOC_FOLDER
153 ghuddy 784 
 
119 ghuddy 785 
    If oFileSys.FolderExists( sSourcePath ) Then
786 
        WScript.Echo "Moving attachments from Web Server..."
787 
        On Error Resume Next
153 ghuddy 788 
 
119 ghuddy 789 
        oFileSys.CopyFile sSourcePath &"\*", sDestPath, True   ' Copy with overwrite
790 
        Call ErrorCheck ( "[job:PostRun sub:Move_Files_From_Web_Archive]", _
791 
                  		  "sSourcePath: "& sSourcePath & VBNewLine &_
792 
                  		  "sDestPath: "& sDestPath  )
153 ghuddy 793 
 
119 ghuddy 794 
        oFileSys.DeleteFolder sSourcePath, True      ' Clean up
795 
        'Call ErrorCheck ( "[job:PostRun sub:Move_Files_From_Web_Archive]", _
796 
        '          		  "Delete Folder: "& sSourcePath )
153 ghuddy 797 
 
119 ghuddy 798 
    End If
153 ghuddy 799 
 
119 ghuddy 800 
    Call CleanUp_Folders ( AppPath & TEMP_FOLDER )
153 ghuddy 801 
 
119 ghuddy 802 
End Sub
803 
'-----------------------------------------------------------------------------------------------------------------
804 
Sub CleanUp_Folders ( sPath )
805 
	Dim currentFolder
806 
	' Attempt to remove PKG_NAME/PKG_VERSION folders on web server
807 
	WScript.Echo "Cleaning temp files/folders at Web Server..."
808 
    On Error Resume Next
809 
 
810 
	' Attempting to remove PKG_VERSION/
811 
	currentFolder = sPath &"\"& parPkg_name &"\"& parPkg_version
153 ghuddy 812 
	If Folder_Is_Empty ( currentFolder  ) Then
119 ghuddy 813 
	    Call DeleteFolder( currentFolder )
814 
	'Else
815 
	'    Call Raise_Event ( enumEVENT_WARNING, "[job:PostRun sub:CleanUp_Folders]", _
816 
	'										  "Deleting Folder: "& currentFolder , _
817 
	'					   					  "PKG_VERSION Folder is not empty and is not removed! Skipping this process.", NULL )
818 
	End If
153 ghuddy 819 
 
119 ghuddy 820 
	Call ErrorCheck ( "[job:PostRun sub:CleanUp_Folders]", _
821 
	                  "Delete Folder: "& currentFolder )
153 ghuddy 822 
 
823 
 
824 
 
119 ghuddy 825 
	' Attempting to remove PKG_NAME/
826 
	currentFolder = sPath &"\"& parPkg_name
153 ghuddy 827 
	If Folder_Is_Empty ( currentFolder  ) Then
119 ghuddy 828 
	    Call DeleteFolder( currentFolder )
829 
	'Else
830 
	'    Call Raise_Event ( enumEVENT_WARNING, "[job:PostRun sub:CleanUp_Folders]", _
831 
	'										  "Deleting Folder: "& currentFolder , _
832 
	'					   					  "PKG_NAME Folder is not empty and is not removed! Skipping this process.", NULL )
833 
	End If
153 ghuddy 834 
 
119 ghuddy 835 
	Call ErrorCheck ( "[job:PostRun sub:CleanUp_Folders]", _
836 
	                  "Delete Folder: "& currentFolder )
153 ghuddy 837 
 
119 ghuddy 838 
End Sub
839 
'-----------------------------------------------------------------------------------------------------------------
840 
Sub Initial_Setup ( oPkgFileSys, sRootPath, sNotesLocation )
3610 dpurdie 841 
    Dim MappedDrive
842 
 
119 ghuddy 843 
    oPkgFileSys.Map_Network_Drive  UNC_ARCHIVE, MappedDrive 	' Map Drive if required
844 
    oPkgFileSys.Remote_Host = TELNET_MACHINE
3610 dpurdie 845 
    oPkgFileSys.Archive_Path = TELNET_DPKG_ARCHIVE
153 ghuddy 846 
 
3610 dpurdie 847 
    sNotesLocation = URL_PATH_DPKG_ARCHIVE &"/"& parPkg_name &"/"& parPkg_Version &"/"& DOC_FOLDER &"/"& Format_FileName( parPkg_name, parPkg_Version, parPv_id )
848 
    sRootPath = MappedDrive & DPKG_ARCHIVE &"\"& parPkg_name &"\"& parPkg_Version
153 ghuddy 849 
 
119 ghuddy 850 
End Sub
851 
'-----------------------------------------------------------------------------------------------------------------
852 
'-------------------- MAIN LINE ----------------------
853 
WScript.Echo "==================== job:PostRun ===================="
854 
 
855 
Set objArgs = WScript.Arguments
856 
 
857 
If (objArgs.Unnamed.Count > 0) Then
858 
	Wscript.Echo "ERROR: Unnamed parameters!"
859 
	objArgs.ShowUsage
860 
   	WScript.Quit
153 ghuddy 861 
 
119 ghuddy 862 
Else
863 
	parPkg_name = objArgs.Named.Item("pkg_name")
864 
	parPkg_Version = objArgs.Named.Item("pkg_version")
865 
	parPv_id = objArgs.Named.Item("pv_id")
866 
	parRtag_name = objArgs.Named.Item("rtag_name")
867 
	parProj_id = objArgs.Named.Item("proj_id")
153 ghuddy 868 
 
119 ghuddy 869 
	If ( parPkg_name <> "" AND parPkg_Version <> "") Then
870 
		Call Get_PV_ID ( parPkg_name, parPkg_Version, parPv_id )
153 ghuddy 871 
 
119 ghuddy 872 
   	ElseIf parPv_id <> ""  Then
873 
   		Call Get_Pkg_Name_Version ( parPv_id, parPkg_name, parPkg_Version )
153 ghuddy 874 
 
119 ghuddy 875 
   	Else
876 
   		objArgs.ShowUsage
877 
   		WScript.Quit
153 ghuddy 878 
 
119 ghuddy 879 
   	End If
153 ghuddy 880 
 
119 ghuddy 881 
End If
882 
 
883 
Call Check_Requirements_To_Proceed ( parPv_id )
884 
Call Initial_Setup ( objPkgFileSys, rootPath, notesLocation )
885 
 
886 
Call Move_Files_From_Web_Archive ()
887 
 
888 
WScript.Echo "Making all READ ONLY from folder "& parPkg_Version &"/"
889 
objPkgFileSys.All_Read_Only  parPkg_name, parPkg_Version        ' Make sure all file and folders are read only. Starting from version folder.
890 
 
891 
Call Write_To_Release_Notes_Info ( parPv_id, notesLocation )
892 
 
893 
Set objPkgFileSys = Nothing
894 
 
895 
WScript.Echo "PostRun completed successfully!"
896 
]]>
897 
		</script>
898 
	</job>
165 brianf 899 
	<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">
900 
		<?job error="true" debug="true" ?>
901 
		<runtime>
902 
			<named helpstring="Package Name" name="pkg_name" required="false" type="string"/>
903 
			<named helpstring="Package Version" name="pkg_version" required="false" type="string"/>
904 
			<named helpstring="Release Tag Id" name="rtag_id" required="false" type="string"/>
905 
			<named helpstring="Package Id" name="pkg_id" required="false" type="string"/>
906 
			<named helpstring="Package version Id" name="pv_id" required="false" type="string"/>
907 
			<named helpstring="Project Id" name="proj_id" required="false" type="string"/>
908 
			<named helpstring="Change Mode Id" name="mode_id" required="false" type="simple"/>
909 
			<usage>
910 
Usage:
911 
   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]
912 
 
913 
Options:
914 
 
915 
pkg_name     : Package Name
916 
pkg_version  : Package Version
917 
rtag_id      : Release Tag Id
918 
pkg_id       : Package Id
919 
pv_id        : Package version Id
920 
proj_id      : Project Id
921 
mode_id      : Package Change Mode Id
922 
			</usage>
923 
		</runtime>
924 
		<object id="Object1" progid="OracleInProcServer.XOraSession" events="true"/>
925 
		<script language="VBScript" src="common_subs.vbs"/>
926 
		<script language="VBScript" src="config.vbs"/>
927 
		<script language="VBScript" src="pkg_archive.vbs"/>
928 
		<script id="ReleaseChanged" language="VBScript">
929 
<![CDATA[
930 
Option Explicit
931 
'=====================================================
932 
'        Name: 	ReleaseChanged
933 
' Description:	Process that is called after the content of a release has changed
934 
' 		INPUT:
935 
'               pkg_name
936 
'               pkg_version
937 
'               rtag_id
938 
'               pkg_id
939 
'               pv_id
940 
'               proj_id
941 
'               mode_id
942 
'=====================================================
943 
 
944 
'================ Variable Definition ================
945 
Dim objArgs
946 
Dim parPkg_name,parPkg_version,parRtag_id,parPkg_id,parPv_id,parProj_id,parMode_id
947 
Dim objPkgFileSys
948 
'=============== Constants Declaration ===============
949 
'-----------------------------------------------------------------------------------------------------------------
950 
'================== Variable Init ====================
951 
Set objPkgFileSys = New PkgArchive
952 
'=====================================================
953 
'-------------------- MAIN LINE ----------------------
954 
WScript.Echo "==================== job:ReleaseChanged ===================="
955 
 
956 
Set objArgs = WScript.Arguments
957 
 
958 
If (objArgs.Unnamed.Count > 0) Then
959 
	Wscript.Echo "ERROR: Unnamed parameters!"
960 
	objArgs.ShowUsage
961 
   	WScript.Quit
962 
Else
963 
	parPkg_name = objArgs.Named.Item("pkg_name")
964 
	parPkg_Version = objArgs.Named.Item("pkg_version")
965 
	parRtag_id = objArgs.Named.Item("rtag_id")
966 
	parPkg_id = objArgs.Named.Item("pkg_id")
967 
	parPv_id = objArgs.Named.Item("pv_id")
968 
	parProj_id = objArgs.Named.Item("proj_id")
969 
	parMode_id = objArgs.Named.Item("mode_id")
970 
   	If parPv_id = ""  Then
971 
   	  objArgs.ShowUsage
972 
   	  WScript.Quit
973 
   	End If
974 
End If
975 
 
976 
objPkgFileSys.Map_Network_Drive  UNC_ARCHIVE, MappedDrive 	' Map Drive if required
977 
objPkgFileSys.Remote_Host = TELNET_MACHINE
3610 dpurdie 978 
objPkgFileSys.Archive_Path = TELNET_DPKG_ARCHIVE
165 brianf 979 
 
980 
Call objPkgFileSys.Make_Release_Changed(parPkg_name,parPkg_version,parRtag_id,parPkg_id,parPv_id,parProj_id,parMode_id,false)
981 
 
982 
Set objPkgFileSys = Nothing
983 
 
984 
WScript.Echo "ReleaseChanged completed successfully!"
985 
 
986 
]]>
987 
		</script>
988 
	</job>
119 ghuddy 989 
</package>