Subversion Repositories DevTools

Rev

Rev 1281 | Rev 3866 | 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
433 
	If pkgType = enumPKG_TYPE_ERG_PRODUCT Then
434 
		rootPath = MappedDrive & DEPLOY_ARCHIVE &"\"& parPkg_name &"\"& parPkg_Version
435 
		objPkgFileSys.Archive_Path = TELNET_DEPLOY_ARCHIVE
153 ghuddy 436 
 
119 ghuddy 437 
	Else
438 
		rootPath = MappedDrive & DPKG_ARCHIVE &"\"& parPkg_name &"\"& parPkg_Version
439 
		objPkgFileSys.Archive_Path = TELNET_DPKG_ARCHIVE
153 ghuddy 440 
 
119 ghuddy 441 
	End If
442 
	objPkgFileSys.Create_Doc_Folder parPkg_name, parPkg_Version, DOC_FOLDER	' Create document folder if required
153 ghuddy 443 
 
119 ghuddy 444 
	' --------------- RELEASE NOTES ----------------
153 ghuddy 445 
 
119 ghuddy 446 
	Select Case pkgType
447 
		Case enumPKG_TYPE_GENERIC_DPKG
448 
			Call Generate_Notes_Style_A ( parPv_id, notesSTR, parRtag_name, parProj_id )
153 ghuddy 449 
 
119 ghuddy 450 
		Case enumPKG_TYPE_DB_PATCH_DPKG
451 
			Call Generate_Notes_Style_A ( parPv_id, notesSTR, parRtag_name, parProj_id )
452 
 
453 
		Case enumPKG_TYPE_DEVICE_DPKG
454 
			Call Generate_Notes_Style_A ( parPv_id, notesSTR, parRtag_name, parProj_id )
153 ghuddy 455 
 
119 ghuddy 456 
		Case enumPKG_TYPE_ERG_PRODUCT
457 
			Call Generate_Notes_Style_B ( parPv_id, notesSTR, parRtag_name, parProj_id )
458 
 
459 
		Case Else
460 
			Call Generate_Notes_Style_A ( parPv_id, notesSTR, parRtag_name, parProj_id )
153 ghuddy 461 
 
119 ghuddy 462 
	End Select
153 ghuddy 463 
 
119 ghuddy 464 
	If WScript.Arguments.Named.Item("file") = "" Then
465 
		Call SaveFile( rootPath &"\"& DOC_FOLDER, Format_FileName( parPkg_name, parPkg_Version, parPv_id ) , notesSTR )
466 
	Else
467 
		Call SaveFile( AppPath &"temp", WScript.Arguments.Named.Item("file") , notesSTR )
468 
	End If
153 ghuddy 469 
 
119 ghuddy 470 
	' ----------------------------------------------
153 ghuddy 471 
 
119 ghuddy 472 
End Sub
473 
'-----------------------------------------------------------------------------------------------------------------
474 
Function Format_CQ_CHANGE_REQUEST ( sInternal, sExternal )
475 
    If NOT IsNull( sInternal ) Then
476 
        If UCase( sInternal ) = "TRUE" AND UCase( sExternal ) = "TRUE" Then
477 
            Format_CQ_CHANGE_REQUEST  = "Internal/External"
153 ghuddy 478 
 
119 ghuddy 479 
        ElseIf UCase( sInternal ) = "TRUE" Then
480 
            Format_CQ_CHANGE_REQUEST  = "Internal"
153 ghuddy 481 
 
119 ghuddy 482 
        ElseIf UCase( sExternal) = "TRUE" Then
483 
            Format_CQ_CHANGE_REQUEST  = "External"
153 ghuddy 484 
 
119 ghuddy 485 
        Else
486 
            Format_CQ_CHANGE_REQUEST  = "--"
153 ghuddy 487 
 
119 ghuddy 488 
        End If
489 
    Else
490 
      Format_CQ_CHANGE_REQUEST  = "--"
153 ghuddy 491 
 
119 ghuddy 492 
    End If
493 
End Function
494 
'-----------------------------------------------------------------------------------------------------------------
495 
Function Format_Reason_For_Release ( nIss_id, sReason )
496 
    If IsNull( nIss_id ) Then
153 ghuddy 497 
        If IsNull( sReason ) Then
498 
            Format_Reason_For_Release =  "Reason for this version is not specified."
119 ghuddy 499 
        Else
153 ghuddy 500 
            Format_Reason_For_Release = FormatTextBox( HTML_Encode ( sReason ) )
119 ghuddy 501 
        End If
502 
    Else
153 ghuddy 503 
        If IsNull( sReason ) Then
504 
            Format_Reason_For_Release = ""
119 ghuddy 505 
        Else
153 ghuddy 506 
            Format_Reason_For_Release = FormatTextBox( HTML_Encode ( sReason ) )
119 ghuddy 507 
        End If
508 
    End If
509 
End Function
510 
'-----------------------------------------------------------------------------------------------------------------
511 
Sub Get_Dependency_CQ_Issues ( SSsql, OOrsCQ, DDdepIss, AAiss )
512 
	Dim recCnt
153 ghuddy 513 
	If OOrsCQ.State = 1 Then
119 ghuddy 514 
		OOrsCQ.Close
515 
	End If
153 ghuddy 516 
 
119 ghuddy 517 
	OOrsCQ.ActiveConnection = CQ_conn
518 
	OOrsCQ.Source = SSsql
519 
	OOrsCQ.CursorType = 0
520 
	OOrsCQ.CursorLocation = 2
521 
	OOrsCQ.LockType = 3
522 
	OOrsCQ.Open()
153 ghuddy 523 
 
119 ghuddy 524 
	recCnt = 1
153 ghuddy 525 
 
119 ghuddy 526 
	While ((NOT OOrsCQ.BOF) AND (NOT OOrsCQ.EOF))
527 
		ReDim Preserve AAiss( 20, recCnt )
528 
		DDdepIss.Add Cstr(OOrsCQ("iss_db") &"."& OOrsCQ("iss_id")), Cstr(recCnt)
529 
		AAiss( enumLoc_iss_db, recCnt ) 	    = NVL( OOrsCQ("iss_db") )
530 
		AAiss( enumLoc_iss_id, recCnt ) 	    = NVL( OOrsCQ("iss_id") )
531 
		AAiss( enumLoc_iss_num, recCnt )	    = NVL( OOrsCQ("iss_num") )
532 
		AAiss( enumLoc_summary, recCnt )	    = NVL( FormatTextBox ( HTML_Encode ( OOrsCQ("summary") ) ) )
533 
		AAiss( enumLoc_status, recCnt ) 	    = NVL( OOrsCQ("status") )
534 
		AAiss( enumLoc_priority, recCnt ) 	    = NVL( OOrsCQ("priority") )
535 
		AAiss( enumLoc_issue_type, recCnt )     = NVL( OOrsCQ("issue_type") )
536 
		AAiss( enumLoc_submitter, recCnt )      = NVL( OOrsCQ("submitter") )
537 
		AAiss( enumLoc_defect_in, recCnt )      = NVL( OOrsCQ("release_part1") &"."& OOrsCQ("release_part2") &"."& OOrsCQ("release_part3") )
538 
		AAiss( enumLoc_submit_date, recCnt )    = NVL( EuroDate ( OOrsCQ("submit_date") ) )
539 
		AAiss( enumLoc_project, recCnt )        = NVL( OOrsCQ("project") )
540 
		AAiss( enumLoc_owner, recCnt )          = NVL( OOrsCQ("owner") )
541 
		AAiss( enumLoc_product, recCnt )        = NVL( OOrsCQ("product") )
542 
		AAiss( enumLoc_approver, recCnt )       = NVL( OOrsCQ("approver") )
543 
		AAiss( enumLoc_package, recCnt )        = NVL( OOrsCQ("package_ref") )
544 
		AAiss( enumLoc_description, recCnt )    = NVL( FormatTextBox ( HTML_Encode ( OOrsCQ("description") ) ) )
545 
		AAiss( enumLoc_notes_log, recCnt )      = NVL( FormatTextBox ( HTML_Encode ( OOrsCQ("notes_log") ) ) )
546 
		AAiss( enumLoc_release_id, recCnt )     = NVL( OOrsCQ("release_id") )
547 
		AAiss( enumLoc_client_ref, recCnt )     = NVL( OOrsCQ("client_ref") )
548 
		AAiss( enumLoc_severity, recCnt )       = NVL( OOrsCQ("severity") )
549 
		AAiss( enumLoc_change_request, recCnt ) = Format_CQ_CHANGE_REQUEST ( OOrsCQ("cr_internal"), OOrsCQ("cr_external") )
153 ghuddy 550 
 
119 ghuddy 551 
		recCnt = recCnt + 1
552 
		OOrsCQ.MoveNext
553 
	WEnd
153 ghuddy 554 
 
119 ghuddy 555 
	OOrsCQ.Close
153 ghuddy 556 
End Sub
119 ghuddy 557 
'-----------------------------------------------------------------------------------------------------------------
558 
Sub Get_ORA_Package_Issues ( SSstate, outCQSQL )
559 
	Dim rsTemp, sqlstr, DEVIiss, TDSEiss
153 ghuddy 560 
 
119 ghuddy 561 
	Select Case SSstate
562 
	Case "Fixed_Issues"
563 
		sqlstr = " SELECT iss_db, iss_id, iss_state"&_
564 
		         "   FROM CQ_ISSUES "&_
565 
		         "  WHERE pv_id = "& parPv_id &_
566 
		         "    AND iss_state = "& enumISSUES_STATE_FIXED
567 
	Case "Outstanding_Issues"
568 
		sqlstr = " SELECT iss_db, iss_id, iss_state"&_
569 
		         "   FROM CQ_ISSUES "&_
570 
		         "  WHERE pv_id = "& parPv_id &_
571 
		         "    AND iss_state = "& enumISSUES_STATE_IMPORTED
572 
	Case "Dependency_Issues"
573 
		sqlstr = " SELECT iss_db, iss_id"&_
574 
				 "   FROM CQ_ISSUES "&_
575 
				 "  WHERE iss_state = "& enumISSUES_STATE_FIXED &_
576 
				 "    AND pv_id IN ( SELECT dpv_id FROM PACKAGE_DEPENDENCIES WHERE pv_id = "& parPv_id &" )"
577 
	End Select
153 ghuddy 578 
 
119 ghuddy 579 
	Set rsTemp = OraDatabase.DbCreateDynaset( sqlstr, cint(0))
153 ghuddy 580 
 
119 ghuddy 581 
	DEVIiss = "-1"
582 
	TDSEiss  = "-1"
153 ghuddy 583 
 
119 ghuddy 584 
	While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
585 
		If CInt(rsTemp("iss_db")) = CInt(enumCLEARQUEST_DEVI_ID) Then
586 
			DEVIiss = DEVIiss &","& rsTemp("iss_id")
153 ghuddy 587 
 
119 ghuddy 588 
		ElseIf CInt(rsTemp("iss_db")) = CInt(enumCLEARQUEST_TDSE_ID) Then
589 
			TDSEiss = TDSEiss &","& rsTemp("iss_id")
153 ghuddy 590 
 
119 ghuddy 591 
		End If
153 ghuddy 592 
 
119 ghuddy 593 
		rsTemp.MoveNext
594 
	WEnd
153 ghuddy 595 
 
119 ghuddy 596 
	' Construct SQL statement for CQ database
597 
	outCQSQL = ReadFile( AppPath & QUERIES_FOLDER & "\cq_issues_full.sql" )
598 
	outCQSQL = Replace( outCQSQL, "/*enumCLEARQUEST_DEVI_ID*/", enumCLEARQUEST_DEVI_ID)
599 
	outCQSQL = Replace( outCQSQL, "/*enumCLEARQUEST_TDSE_ID*/", enumCLEARQUEST_TDSE_ID)
600 
	outCQSQL = Replace( outCQSQL, "/*DEVIiss*/", DEVIiss)
601 
	outCQSQL = Replace( outCQSQL, "/*TDSEiss*/", TDSEiss)
153 ghuddy 602 
 
119 ghuddy 603 
	rsTemp.Close
604 
	Set rsTemp = nothing
605 
End Sub
606 
'-----------------------------------------------------------------------------------------------------------------
607 
Sub Get_JIRA_Package_Issues ( outJIRASQL )
608 
	Dim rsTemp, sqlstr, JIRAiss
153 ghuddy 609 
 
119 ghuddy 610 
	sqlstr = " SELECT *"&_
611 
			 " 	 FROM JIRA_ISSUES"&_
153 ghuddy 612 
			 "	WHERE pv_id = "& parPv_id
119 ghuddy 613 
 
153 ghuddy 614 
	Set rsTemp = OraDatabase.DbCreateDynaset( sqlstr, cint(0))
615 
 
616 
	JIRAiss = "'-1'"
617 
 
119 ghuddy 618 
	While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
619 
				JIRAiss = JIRAiss &",'"& rsTemp("iss_key")&"'"
620 
		rsTemp.MoveNext
153 ghuddy 621 
	WEnd
119 ghuddy 622 
 
153 ghuddy 623 
 
624 
 
119 ghuddy 625 
	'Construct SQL statement for JIRA database
153 ghuddy 626 
	If Len(JIRAiss) <> 1 Then
119 ghuddy 627 
		outJIRASQL = "SELECT I.pkey AS iss_num, I.summary, ISS.pname AS state,  IT.pname as IssueType, PR.pname as Priority, I.RESOLUTION "&_
628 
				" FROM jiraissue I, issuestatus ISS, issuetype IT, priority PR "&_
629 
				" WHERE I.pkey IN ("& JIRAIss &") "&_
630 
				" AND I.issuestatus = ISS.ID "&_
631 
				" AND IT.ID = I.issuetype "&_
632 
				" AND PR.ID = I.PRIORITY "
153 ghuddy 633 
 
634 
	End If
635 
 
636 
	rsTemp.Close
119 ghuddy 637 
	Set rsTemp = nothing
638 
 
639 
 
153 ghuddy 640 
 
119 ghuddy 641 
End Sub
642 
'-----------------------------------------------------------------------------------------------------------------
643 
Sub Get_CQ_Issues ( SSsql, OOrsCQ )
644 
	OOrsCQ.ActiveConnection = CQ_conn
645 
	OOrsCQ.Source = SSsql
646 
	OOrsCQ.CursorType = 0
647 
	OOrsCQ.CursorLocation = 2
648 
	OOrsCQ.LockType = 3
649 
	OOrsCQ.Open()
650 
End Sub
651 
'-----------------------------------------------------------------------------------------------------------------
652 
Sub Get_JIRA_Issues ( SSsql, OOrsJIRA )
181 brianf 653 
	OOrsJIRA.ActiveConnection = JIRA_conn
119 ghuddy 654 
	OOrsJIRA.Source = SSsql
655 
	OOrsJIRA.CursorType = 0
656 
	OOrsJIRA.CursorLocation = 2
657 
	OOrsJIRA.LockType = 3
658 
	OOrsJIRA.Open()
659 
End Sub
660 
'-----------------------------------------------------------------------------------------------------------------
661 
Sub EditReleaseInfoDetails ( nIssDB, nIssId, sNewInfo, sCurrentInfo )
662 
	Dim rsQry, Source, pos
663 
 
664 
	If NOT IsNull(sCurrentInfo) Then
665 
		pos = InStr( sCurrentInfo, sNewInfo )
666 
		'Wscript.Echo pos
667 
		'Wscript.Echo Len(sCurrentInfo)
668 
		If pos = 0 Then
669 
			If Len(sCurrentInfo) = 0 Then
670 
				sCurrentInfo = sNewInfo
671 
			Else
153 ghuddy 672 
				sCurrentInfo = sCurrentInfo + VBNewLine + sNewInfo
119 ghuddy 673 
			End If
674 
		Else
675 
			sCurrentInfo = sCurrentInfo
676 
		End If
677 
	Else
678 
		sCurrentInfo = sNewInfo
679 
	End If
153 ghuddy 680 
 
119 ghuddy 681 
	Wscript.Echo sCurrentInfo
682 
 
683 
	Set rsQry = CreateObject("ADODB.Connection")
684 
 
685 
	rsQry.Open CQ_conn
153 ghuddy 686 
 
119 ghuddy 687 
	If CInt(nIssDB) = enumCLEARQUEST_DEVI_ID Then
159 ghuddy 688 
                Source = "EXEC cq_devi.dbo.sp_RM_editReleaseInfoDetails "& nIssId &", '"& sCurrentInfo &"';"
119 ghuddy 689 
		rsQry.Execute Source
690 
	End If
153 ghuddy 691 
 
119 ghuddy 692 
	'On Error Resume Next
693 
 
153 ghuddy 694 
 
695 
 
119 ghuddy 696 
	rsQry.Close()
697 
	Set rsQry = nothing
698 
End Sub
699 
'-----------------------------------------------------------------------------------------------------------------
700 
'-------------------- MAIN LINE ----------------------
701 
WScript.Echo "==================== job:GenerateReleaseNotes ===================="
702 
 
703 
Set objArgs = WScript.Arguments
704 
 
705 
If (objArgs.Unnamed.Count > 0) Then
706 
	Wscript.Echo "ERROR: Unnamed parameters!"
707 
	objArgs.ShowUsage
708 
   	WScript.Quit
153 ghuddy 709 
 
119 ghuddy 710 
Else
711 
	parPkg_name = objArgs.Named.Item("pkg_name")
712 
	parPkg_Version = objArgs.Named.Item("pkg_version")
713 
	parPv_id = objArgs.Named.Item("pv_id")
714 
	parRtag_name = objArgs.Named.Item("rtag_name")
715 
	parProj_id = objArgs.Named.Item("proj_id")
153 ghuddy 716 
 
119 ghuddy 717 
	If ( parPkg_name <> "" AND parPkg_Version <> "") Then
718 
		Call Get_PV_ID ( parPkg_name, parPkg_Version, parPv_id )
153 ghuddy 719 
 
119 ghuddy 720 
   	ElseIf parPv_id <> ""  Then
721 
   		Call Get_Pkg_Name_Version ( parPv_id, parPkg_name, parPkg_Version )
153 ghuddy 722 
 
119 ghuddy 723 
   	Else
724 
   		objArgs.ShowUsage
725 
   		WScript.Quit
153 ghuddy 726 
 
119 ghuddy 727 
   	End If
153 ghuddy 728 
 
119 ghuddy 729 
End If
730 
 
731 
Call Check_Requirements_To_Proceed ( parPv_id )
732 
Call Generate_Release_Notes ()
733 
 
734 
WScript.Echo "Release Notes generated successfully!"
735 
]]>
736 
		</script>
737 
	</job>
738 
	<job id="PostRun" args="/pv_id:30261 /f:Y" prompt="no">
739 
		<?job error="true" debug="true" ?>
740 
		<runtime>
741 
			<named helpstring="Package Name" name="pkg_name" required="false" type="string"/>
742 
			<named helpstring="Package Version" name="pkg_version" required="false" type="string"/>
743 
			<named helpstring="Package primary key" name="pv_id" required="false" type="simple"/>
744 
			<named helpstring="Force Release Notes Generation" name="f" required="false" type="string"/>
745 
			<usage>
153 ghuddy 746 
Usage:
119 ghuddy 747 
   on_Make_Official.wsf [/pkg_name:value] [/pkg_version:value]
748 
OR
749 
   on_Make_Official.wsf [/pv_id:value]
750 
 
751 
Options:
752 
 
753 
pkg_name     : Package Name
754 
pkg_version  : Package Version
755 
pv_id        : Package Version primary key
756 
			</usage>
757 
		</runtime>
758 
		<object id="Oracle_Objects_For_OLE" progid="OracleInProcServer.XOraSession" events="true"/>
759 
		<script language="VBScript" src="common_subs.vbs"/>
760 
		<script language="VBScript" src="config.vbs"/>
761 
		<script language="VBScript" src="pkg_archive.vbs"/>
762 
		<script id="PostRun" language="VBScript">
763 
<![CDATA[
764 
Option Explicit
765 
'=====================================================
766 
'        Name: 	PostRun
153 ghuddy 767 
' Description:	Process ran after the release notes
119 ghuddy 768 
'               have been generated.
769 
' 		INPUT:  pkg_name
770 
'				pkg_version
771 
'=====================================================
772 
 
773 
'================ Variable Definition ================
774 
Dim objArgs
775 
Dim parPv_id
776 
Dim parPkg_name
777 
Dim parRtag_name
778 
Dim parProj_id
779 
Dim parPkg_Version
780 
Dim objPkgFileSys
781 
Dim rootPath
782 
Dim notesLocation
161 iaugusti 783 
Dim outRTAG_ID
784 
Dim outPKG_ID
119 ghuddy 785 
'=============== Constants Declaration ===============
786 
'================== Variable Init ====================
787 
Set objPkgFileSys = New PkgArchive
788 
'=====================================================
789 
'-----------------------------------------------------------------------------------------------------------------
790 
Sub Move_Files_From_Web_Archive ()
791 
    Dim oFileSys, sPath, sSourcePath, sDestPath
792 
    Set oFileSys = CreateObject("Scripting.FileSystemObject")
153 ghuddy 793 
 
794 
 
119 ghuddy 795 
    ' Move doc folder contents
153 ghuddy 796 
    sSourcePath = AppPath & TEMP_FOLDER &"\"& parPkg_name &"\"& parPkg_Version &"\"& DOC_FOLDER
119 ghuddy 797 
    sDestPath = rootPath &"\"& DOC_FOLDER
153 ghuddy 798 
 
119 ghuddy 799 
    If oFileSys.FolderExists( sSourcePath ) Then
800 
        WScript.Echo "Moving attachments from Web Server..."
801 
        On Error Resume Next
153 ghuddy 802 
 
119 ghuddy 803 
        oFileSys.CopyFile sSourcePath &"\*", sDestPath, True   ' Copy with overwrite
804 
        Call ErrorCheck ( "[job:PostRun sub:Move_Files_From_Web_Archive]", _
805 
                  		  "sSourcePath: "& sSourcePath & VBNewLine &_
806 
                  		  "sDestPath: "& sDestPath  )
153 ghuddy 807 
 
119 ghuddy 808 
        oFileSys.DeleteFolder sSourcePath, True      ' Clean up
809 
        'Call ErrorCheck ( "[job:PostRun sub:Move_Files_From_Web_Archive]", _
810 
        '          		  "Delete Folder: "& sSourcePath )
153 ghuddy 811 
 
119 ghuddy 812 
    End If
153 ghuddy 813 
 
119 ghuddy 814 
    Call CleanUp_Folders ( AppPath & TEMP_FOLDER )
153 ghuddy 815 
 
119 ghuddy 816 
End Sub
817 
'-----------------------------------------------------------------------------------------------------------------
818 
Sub CleanUp_Folders ( sPath )
819 
	Dim currentFolder
820 
	' Attempt to remove PKG_NAME/PKG_VERSION folders on web server
821 
	WScript.Echo "Cleaning temp files/folders at Web Server..."
822 
    On Error Resume Next
823 
 
824 
	' Attempting to remove PKG_VERSION/
825 
	currentFolder = sPath &"\"& parPkg_name &"\"& parPkg_version
153 ghuddy 826 
	If Folder_Is_Empty ( currentFolder  ) Then
119 ghuddy 827 
	    Call DeleteFolder( currentFolder )
828 
	'Else
829 
	'    Call Raise_Event ( enumEVENT_WARNING, "[job:PostRun sub:CleanUp_Folders]", _
830 
	'										  "Deleting Folder: "& currentFolder , _
831 
	'					   					  "PKG_VERSION Folder is not empty and is not removed! Skipping this process.", NULL )
832 
	End If
153 ghuddy 833 
 
119 ghuddy 834 
	Call ErrorCheck ( "[job:PostRun sub:CleanUp_Folders]", _
835 
	                  "Delete Folder: "& currentFolder )
153 ghuddy 836 
 
837 
 
838 
 
119 ghuddy 839 
	' Attempting to remove PKG_NAME/
840 
	currentFolder = sPath &"\"& parPkg_name
153 ghuddy 841 
	If Folder_Is_Empty ( currentFolder  ) Then
119 ghuddy 842 
	    Call DeleteFolder( currentFolder )
843 
	'Else
844 
	'    Call Raise_Event ( enumEVENT_WARNING, "[job:PostRun sub:CleanUp_Folders]", _
845 
	'										  "Deleting Folder: "& currentFolder , _
846 
	'					   					  "PKG_NAME Folder is not empty and is not removed! Skipping this process.", NULL )
847 
	End If
153 ghuddy 848 
 
119 ghuddy 849 
	Call ErrorCheck ( "[job:PostRun sub:CleanUp_Folders]", _
850 
	                  "Delete Folder: "& currentFolder )
153 ghuddy 851 
 
119 ghuddy 852 
End Sub
853 
'-----------------------------------------------------------------------------------------------------------------
854 
Sub Initial_Setup ( oPkgFileSys, sRootPath, sNotesLocation )
3610 dpurdie 855 
    Dim MappedDrive
856 
 
119 ghuddy 857 
    oPkgFileSys.Map_Network_Drive  UNC_ARCHIVE, MappedDrive 	' Map Drive if required
858 
    oPkgFileSys.Remote_Host = TELNET_MACHINE
3610 dpurdie 859 
    oPkgFileSys.Archive_Path = TELNET_DPKG_ARCHIVE
153 ghuddy 860 
 
3610 dpurdie 861 
    sNotesLocation = URL_PATH_DPKG_ARCHIVE &"/"& parPkg_name &"/"& parPkg_Version &"/"& DOC_FOLDER &"/"& Format_FileName( parPkg_name, parPkg_Version, parPv_id )
862 
    sRootPath = MappedDrive & DPKG_ARCHIVE &"\"& parPkg_name &"\"& parPkg_Version
153 ghuddy 863 
 
119 ghuddy 864 
End Sub
865 
'-----------------------------------------------------------------------------------------------------------------
866 
'-------------------- MAIN LINE ----------------------
867 
WScript.Echo "==================== job:PostRun ===================="
868 
 
869 
Set objArgs = WScript.Arguments
870 
 
871 
If (objArgs.Unnamed.Count > 0) Then
872 
	Wscript.Echo "ERROR: Unnamed parameters!"
873 
	objArgs.ShowUsage
874 
   	WScript.Quit
153 ghuddy 875 
 
119 ghuddy 876 
Else
877 
	parPkg_name = objArgs.Named.Item("pkg_name")
878 
	parPkg_Version = objArgs.Named.Item("pkg_version")
879 
	parPv_id = objArgs.Named.Item("pv_id")
880 
	parRtag_name = objArgs.Named.Item("rtag_name")
881 
	parProj_id = objArgs.Named.Item("proj_id")
153 ghuddy 882 
 
119 ghuddy 883 
	If ( parPkg_name <> "" AND parPkg_Version <> "") Then
884 
		Call Get_PV_ID ( parPkg_name, parPkg_Version, parPv_id )
153 ghuddy 885 
 
119 ghuddy 886 
   	ElseIf parPv_id <> ""  Then
887 
   		Call Get_Pkg_Name_Version ( parPv_id, parPkg_name, parPkg_Version )
153 ghuddy 888 
 
119 ghuddy 889 
   	Else
890 
   		objArgs.ShowUsage
891 
   		WScript.Quit
153 ghuddy 892 
 
119 ghuddy 893 
   	End If
153 ghuddy 894 
 
119 ghuddy 895 
End If
896 
 
897 
Call Check_Requirements_To_Proceed ( parPv_id )
898 
Call Initial_Setup ( objPkgFileSys, rootPath, notesLocation )
899 
 
900 
Call Move_Files_From_Web_Archive ()
901 
 
902 
WScript.Echo "Making all READ ONLY from folder "& parPkg_Version &"/"
903 
objPkgFileSys.All_Read_Only  parPkg_name, parPkg_Version        ' Make sure all file and folders are read only. Starting from version folder.
904 
 
905 
Call Write_To_Release_Notes_Info ( parPv_id, notesLocation )
906 
 
907 
Set objPkgFileSys = Nothing
908 
 
909 
WScript.Echo "PostRun completed successfully!"
910 
]]>
911 
		</script>
912 
	</job>
165 brianf 913 
	<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">
914 
		<?job error="true" debug="true" ?>
915 
		<runtime>
916 
			<named helpstring="Package Name" name="pkg_name" required="false" type="string"/>
917 
			<named helpstring="Package Version" name="pkg_version" required="false" type="string"/>
918 
			<named helpstring="Release Tag Id" name="rtag_id" required="false" type="string"/>
919 
			<named helpstring="Package Id" name="pkg_id" required="false" type="string"/>
920 
			<named helpstring="Package version Id" name="pv_id" required="false" type="string"/>
921 
			<named helpstring="Project Id" name="proj_id" required="false" type="string"/>
922 
			<named helpstring="Change Mode Id" name="mode_id" required="false" type="simple"/>
923 
			<usage>
924 
Usage:
925 
   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]
926 
 
927 
Options:
928 
 
929 
pkg_name     : Package Name
930 
pkg_version  : Package Version
931 
rtag_id      : Release Tag Id
932 
pkg_id       : Package Id
933 
pv_id        : Package version Id
934 
proj_id      : Project Id
935 
mode_id      : Package Change Mode Id
936 
			</usage>
937 
		</runtime>
938 
		<object id="Object1" progid="OracleInProcServer.XOraSession" events="true"/>
939 
		<script language="VBScript" src="common_subs.vbs"/>
940 
		<script language="VBScript" src="config.vbs"/>
941 
		<script language="VBScript" src="pkg_archive.vbs"/>
942 
		<script id="ReleaseChanged" language="VBScript">
943 
<![CDATA[
944 
Option Explicit
945 
'=====================================================
946 
'        Name: 	ReleaseChanged
947 
' Description:	Process that is called after the content of a release has changed
948 
' 		INPUT:
949 
'               pkg_name
950 
'               pkg_version
951 
'               rtag_id
952 
'               pkg_id
953 
'               pv_id
954 
'               proj_id
955 
'               mode_id
956 
'=====================================================
957 
 
958 
'================ Variable Definition ================
959 
Dim objArgs
960 
Dim parPkg_name,parPkg_version,parRtag_id,parPkg_id,parPv_id,parProj_id,parMode_id
961 
Dim objPkgFileSys
962 
'=============== Constants Declaration ===============
963 
'-----------------------------------------------------------------------------------------------------------------
964 
'================== Variable Init ====================
965 
Set objPkgFileSys = New PkgArchive
966 
'=====================================================
967 
'-------------------- MAIN LINE ----------------------
968 
WScript.Echo "==================== job:ReleaseChanged ===================="
969 
 
970 
Set objArgs = WScript.Arguments
971 
 
972 
If (objArgs.Unnamed.Count > 0) Then
973 
	Wscript.Echo "ERROR: Unnamed parameters!"
974 
	objArgs.ShowUsage
975 
   	WScript.Quit
976 
Else
977 
	parPkg_name = objArgs.Named.Item("pkg_name")
978 
	parPkg_Version = objArgs.Named.Item("pkg_version")
979 
	parRtag_id = objArgs.Named.Item("rtag_id")
980 
	parPkg_id = objArgs.Named.Item("pkg_id")
981 
	parPv_id = objArgs.Named.Item("pv_id")
982 
	parProj_id = objArgs.Named.Item("proj_id")
983 
	parMode_id = objArgs.Named.Item("mode_id")
984 
   	If parPv_id = ""  Then
985 
   	  objArgs.ShowUsage
986 
   	  WScript.Quit
987 
   	End If
988 
End If
989 
 
990 
objPkgFileSys.Map_Network_Drive  UNC_ARCHIVE, MappedDrive 	' Map Drive if required
991 
objPkgFileSys.Remote_Host = TELNET_MACHINE
3610 dpurdie 992 
objPkgFileSys.Archive_Path = TELNET_DPKG_ARCHIVE
165 brianf 993 
 
994 
Call objPkgFileSys.Make_Release_Changed(parPkg_name,parPkg_version,parRtag_id,parPkg_id,parPv_id,parProj_id,parMode_id,false)
995 
 
996 
Set objPkgFileSys = Nothing
997 
 
998 
WScript.Echo "ReleaseChanged completed successfully!"
999 
 
1000 
]]>
1001 
		</script>
1002 
	</job>
119 ghuddy 1003 
</package>