Subversion Repositories DevTools

<?xml version="1.0" ?>

<package>

	<comment>

	PrimalCode wizard generated file.

	</comment>

	<job id="GetComponents" args="/pv_id:24498 /f:Y" prompt="no">

		<?job error="true" debug="true" ?>

		<runtime>

			<named helpstring="Package Name" name="pkg_name" required="false" type="string"/>

			<named helpstring="Package Version" name="pkg_version" required="false" type="string"/>

			<named helpstring="Package primary key" name="pv_id" required="false" type="string"/>

			<named helpstring="Force Release Notes Generation" name="f" required="false" type="string"/>

			<usage>

Usage:

   on_Make_Official.wsf [/pkg_name:value] [/pkg_version:value]

OR

   on_Make_Official.wsf [/pv_id:value]

Options:

pkg_name     : Package Name

pkg_version  : Package Version

pv_id        : Package Version primary key

f:  Set to [Y] to force release notes generation

			</usage>

		</runtime>

		<object id="CDOMessage_Class" progid="CDO.Message" events="true"/>

		<object id="Oracle_Objects_For_OLE" progid="OracleInProcServer.XOraSession" events="true"/>

		<script language="VBScript" src="common_subs.vbs"/>

		<script language="VBScript" src="config.vbs"/>

		<script language="VBScript" src="pkg_archive.vbs"/>

		<script id="GetComponents" language="VBScript">

<![CDATA[

Option Explicit

'=====================================================

'        Name: 	GetComponents

' Description:	Connects to dpkg_archive and gets the

' 				content of folders and files of certain

' 				package. It then stores this info into

'				Release Manager database. This info can

' 				later be included in release notes Or

' 				searched with search engine.

' 		INPUT:  pkg_name

'				pkg_version

'=====================================================

'================ Variable Definition ================

Dim compARR()

Dim objArgs

Dim parPv_id

Dim parPkg_name

Dim parRtag_name

Dim parProj_id

Dim parPkg_Version

Dim No_Components

'=============== Constants Declaration ===============

Const COL_file_name = 0

Const COL_file_path = 1

Const COL_byte_size = 2

Const COL_crc_cksum = 3

Const COL_crc_modcrc= 4

Const NUMBER_OF_COLS_IN_ARRcomp = 5

Const MODCRC_FILE_TYPES = "*.thx"		' Comma separated file types to be CRCed with modcrc. E.g. "*.thx, *.bin, *.blah"

'================== Variable Init ====================

No_Components = True

'=====================================================

'-----------------------------------------------------------------------------------------------------------------

Function Get_All_Files ( SSpath )

	Dim sysShell, oExec, outStdErr, outStrOut

	Set sysShell = WScript.CreateObject("WScript.Shell")

	Set oExec = sysShell.Exec( "cmd /c dir /S /B /A:-D "& SSpath )

	outStrOut = oExec.StdOut.ReadAll

	Get_All_Files = outStrOut

End Function

'-----------------------------------------------------------------------------------------------------------------

Function Get_All_Folders ( SSpath )

	Dim sysShell, oExec, outStdErr, outStrOut

	Set sysShell = WScript.CreateObject("WScript.Shell")

	Set oExec = sysShell.Exec( "cmd /c dir /S /B /A:D "& SSpath )

	outStrOut = oExec.StdOut.ReadAll

	Get_All_Folders = outStrOut

End Function

'-----------------------------------------------------------------------------------------------------------------

Function File_Extention ( SSfile_name )

	If InStr ( SSfile_name, "." ) Then

		File_Extention = Right ( SSfile_name, Len(SSfile_name) - InStrRev( SSfile_name, "." ) + 1 )

	Else

		' No dot seperator

		File_Extention = ""

	End If

End Function

'-----------------------------------------------------------------------------------------------------------------

Sub Split_Path ( SSpath, outFile_name, outFile_path, outFile_ext )

	Dim rightSlashLoc

	If InStr( SSpath, "\" ) Then

		rightSlashLoc = InStrRev( SSpath, "\" )

		outFile_path = Left( SSpath, rightSlashLoc )

		outFile_name = Replace( SSpath, outFile_path, "" )

		outFile_ext  = File_Extention ( outFile_name )

	Else

		outFile_name = SSpath

		outFile_path = ""

		outFile_ext  = File_Extention ( outFile_name )

	End If

End Sub

'-----------------------------------------------------------------------------------------------------------------

Sub Generate_CRC ( SSfile_name, SSfile_path, SSfile_ext, outSize, outCRC_cksum, outCRC_modcrc )

	Dim ModCRC_fileTypes

	ModCRC_fileTypes = Replace( MODCRC_FILE_TYPES, " ", "" )				' Remove spaces

	ModCRC_fileTypes = Replace( ModCRC_fileTypes, "*", "" )					' Remove *

	ModCRC_fileTypes = "|"& Replace( ModCRC_fileTypes, ",", "||" ) &"|"		' Convert to from "a,b,c" to "|a||b||c|"

	' --- cksum CRC ---

	Call CRC_cksum ( SSfile_path & SSfile_name, outCRC_cksum, outSize )

	' --- modcrc CRC ---

	If InStr( ModCRC_fileTypes, "|"& SSfile_ext &"|" ) > 0 Then

		Call CRC_modcrc ( Left( SSfile_name, Len(SSfile_name) - Len(SSfile_ext) ), SSfile_path, outCRC_modcrc, outSize )

	End If

	WScript.Echo SSfile_name &" "& outCRC_cksum &" "& outSize &" "& outCRC_modcrc

End Sub

'-----------------------------------------------------------------------------------------------------------------

Sub Get_Components ( ARRcomp )

	Dim fileSys, rootPath, contentsDump, recCnt, objPkgFileSys

	Dim file_ext, path, tempARR, pkgType

	Set objPkgFileSys = New PkgArchive

	objPkgFileSys.Map_Network_Drive  UNC_ARCHIVE, MappedDrive 	' Map Drive if required

	pkgType = Get_Package_Type ( parPv_id )

	' Is this package ERG PRODUCT

	objPkgFileSys.Remote_Host = TELNET_MACHINE

	If pkgType = enumPKG_TYPE_ERG_PRODUCT Then

		rootPath = MappedDrive & DEPLOY_ARCHIVE &"\"& parPkg_name &"\"& parPkg_Version

		objPkgFileSys.Archive_Path = TELNET_DEPLOY_ARCHIVE

	Else

		rootPath = MappedDrive & DPKG_ARCHIVE &"\"& parPkg_name &"\"& parPkg_Version

		objPkgFileSys.Archive_Path = TELNET_DPKG_ARCHIVE

	End If

	Set fileSys = CreateObject("Scripting.FileSystemObject")

	Dim contentsFolderDump, aFolders, oFolders, sFolderName

	If fileSys.FolderExists( rootPath ) Then

	        objPkgFileSys.Ensure_Read_Write parPkg_name, parPkg_version		' Make sure all files and folders can be read

		contentsDump = Get_All_Files ( rootPath )

		contentsFolderDump = Get_All_Folders ( rootPath )

		contentsDump = contentsFolderDump & contentsDump	' Combine Files and Folders

		contentsDump = Replace( contentsDump, "/", "\" )			' Make sure "\" is used

		contentsDump = Replace( contentsDump, rootPath &"\", "" )	' Remove UNC root path

		contentsFolderDump = Replace( contentsFolderDump, "/", "\" )			' Make sure "\" is used

		contentsFolderDump = Replace( contentsFolderDump, rootPath &"\", "" )	' Remove UNC root path

		tempARR = Split( contentsDump, VBNewLine )		' Split each line containing path + file name

		aFolders = Split( contentsFolderDump, VBNewLine )		' Split each line containing path

		'-- Populate Folder dictionary --

		Set oFolders = CreateObject("Scripting.Dictionary")

		' Continue if folders exist

		If Len(contentsFolderDump) > 1 Then

			For Each sFolderName In aFolders

				oFolders.Item ( sFolderName ) = ""

			Next

		End If

		'-- Generate file list

		WScript.Echo "Attempting to generate file list..."

		recCnt = 0

		For Each path In tempARR

			If path <> "" Then

				ReDim Preserve ARRcomp( NUMBER_OF_COLS_IN_ARRcomp, recCnt )

				Call Split_Path ( path, _

								  ARRcomp( COL_file_name,  recCnt ), _

								  ARRcomp( COL_file_path,  recCnt ), _

								  file_ext )

				' Don't do CRC on folders

				If oFolders.Exists( path ) Then

					' Store Folder information

					ARRcomp( COL_file_name,  recCnt ) = ""

					ARRcomp( COL_file_path,  recCnt ) = path

					ARRcomp( COL_byte_size,  recCnt ) = 0

					ARRcomp( COL_crc_cksum,  recCnt ) = ""

					ARRcomp( COL_crc_modcrc,  recCnt ) = ""

				Else

					Call Generate_CRC ( ARRcomp( COL_file_name,  recCnt ), _

										rootPath &"\"& ARRcomp( COL_file_path,  recCnt ), _

										file_ext, _

										ARRcomp( COL_byte_size,  recCnt ), _

										ARRcomp( COL_crc_cksum,  recCnt ), _

										ARRcomp( COL_crc_modcrc,  recCnt ) )

				End If

				recCnt = recCnt + 1

			End If

			No_Components = FALSE

		Next

	Else

		Call Raise_Event ( enumEVENT_ERROR, "[job:GetComponents  sub:Get_Components]", rootPath, "Path not found!", enum_RELEASE_NOTES_NOT_FOUND_IN_ARCHIVE )

	End If

End Sub

'-----------------------------------------------------------------------------------------------------------------

Sub Insert_Into_Database ( ARRcomp )

	Dim i

	If No_Components Then Exit Sub	' If no file components are found, there is nothing to do.

	' Insert into database

	If parPv_id <> -1 Then

		OraSession.BeginTrans

		WScript.Echo "Deleting old entries from [release_components] table for PV_ID = "& parPv_id

		OraDatabase.ExecuteSQL "DELETE FROM release_components WHERE pv_id = "& parPv_id		' Make sure it doesnot exists

		WScript.Echo "Inserting new component details In [release_components] table."

		For i = 0 To UBound( ARRcomp, 2 )

			OraDatabase.ExecuteSQL _

				" INSERT INTO release_components ( pv_id, file_name, file_path, byte_size, crc_cksum, crc_modcrc )"&_

				" VALUES ( "&_

				parPv_id &", "&_

				" '"& ARRcomp( COL_file_name,  i ) &"', "&_

				" '"& ARRcomp( COL_file_path,  i ) &"', "&_

				ARRcomp( COL_byte_size,  i ) &", "&_

				" '"& ARRcomp( COL_crc_cksum,  i ) &"', "&_

				" '"& ARRcomp( COL_crc_modcrc, i ) &"' "&_

				"        )"

		Next

	  	OraSession.CommitTrans

  	End If

End Sub

'-----------------------------------------------------------------------------------------------------------------

'-------------------- MAIN LINE ----------------------

WScript.Echo "==================== job:GenerateComponents ===================="

Set objArgs = WScript.Arguments

If (objArgs.Unnamed.Count > 0) Then

	Wscript.Echo "ERROR: Unnamed parameters!"

	objArgs.ShowUsage

   	WScript.Quit

Else

	parPkg_name = objArgs.Named.Item("pkg_name")

	parPkg_Version = objArgs.Named.Item("pkg_version")

	parPv_id = objArgs.Named.Item("pv_id")

	parRtag_name = objArgs.Named.Item("rtag_name")

	parProj_id = objArgs.Named.Item("proj_id")

	If ( parPkg_name <> "" AND parPkg_Version <> "") Then

		Call Get_PV_ID ( parPkg_name, parPkg_Version, parPv_id )

   	ElseIf parPv_id <> ""  Then

   		Call Get_Pkg_Name_Version ( parPv_id, parPkg_name, parPkg_Version )

   	Else

   		objArgs.ShowUsage

   		WScript.Quit

   	End If

End If

Call Check_Requirements_To_Proceed ( parPv_id )

Call Get_Components ( compARR )

Call Insert_Into_Database ( compARR )

WScript.Echo "Components generated successfully!"

]]>

		</script>

	</job>

	<job id="GenerateReleaseNotes" args="/pv_id:30261 /f:Y" prompt="no">

		<?job error="true" debug="true" ?>

		<runtime>

			<named helpstring="Package Name" name="pkg_name" required="false" type="string"/>

			<named helpstring="Package Version" name="pkg_version" required="false" type="string"/>

			<named helpstring="Package primary key" name="pv_id" required="false" type="simple"/>

			<named helpstring="Force Release Notes Generation" name="f" required="false" type="string"/>

			<named helpstring="Output release notes file" name="file" required="false" type="string"/>

			<usage>

Usage:

   on_Make_Official.wsf [/pkg_name:value] [/pkg_version:value]

OR

   on_Make_Official.wsf [/pv_id:value]

Options:

pkg_name     : Package Name

pkg_version  : Package Version

pv_id        : Package Version primary key

			</usage>

		</runtime>

		<object id="Oracle_Objects_For_OLE" progid="OracleInProcServer.XOraSession" events="true"/>

		<resource id="Runtime Dependencies"><![CDATA[**** SSH key

SSH needs to be run manually first time to obtain the key from

the telnet server.

Example: plink -ssh username@telnetserver

**** SMTP server

To be able to receive email notifications from the web server,

make sure that SMTP server is running. This server is also used

by Release Manager notification facility.

]]></resource>

		<script language="VBScript" src="templates\style_b_generator.vbs"/>

		<script language="VBScript" src="templates\style_a_generator.vbs"/>

		<script language="VBScript" src="common_subs.vbs"/>

		<script language="VBScript" src="config.vbs"/>

		<script language="VBScript" src="pkg_archive.vbs"/>

		<script id="GenerateReleaseNotes" language="VBScript">

<![CDATA[

Option Explicit

'=====================================================

'        Name: 	GenerateReleaseNotes

' Description:	Generates release notes from

'				Release Manager database and stores

' 				it into doc folder on dpkg / deploy

' 		INPUT:  pkg_name

'				pkg_version

'=====================================================

'================ Variable Definition ================

Dim objArgs

Dim parPv_id

Dim parPkg_name

Dim parRtag_name

Dim parProj_id

Dim parPkg_Version

'=============== Constants Declaration ===============

Const enumLoc_iss_db        = 0

Const enumLoc_iss_id        = 1

Const enumLoc_iss_num       = 2

Const enumLoc_summary       = 3

Const enumLoc_status        = 4

Const enumLoc_priority      = 5

Const enumLoc_issue_type    = 6

Const enumLoc_submitter     = 7

Const enumLoc_defect_in     = 8

Const enumLoc_submit_date   = 9

Const enumLoc_project       = 10

Const enumLoc_owner         = 11

Const enumLoc_product       = 12

Const enumLoc_approver      = 13

Const enumLoc_package       = 14

Const enumLoc_description   = 15

Const enumLoc_notes_log     = 16

Const enumLoc_release_id    = 17

Const enumLoc_client_ref    = 18

Const enumLoc_severity      = 19

Const enumLoc_change_request = 20

'================== Variable Init ====================

'=====================================================

'-----------------------------------------------------------------------------------------------------------------

Sub Get_Snippet ( SSname, SSnotesSTR, outSnippetSTR, outInsertFrom )

	Dim beginSnippet, endSnippet

	beginSnippet = InStr( SSnotesSTR, "SnippetName="""& SSname &"""")

	If beginSnippet <> 0 Then

		beginSnippet =  InStr( beginSnippet, SSnotesSTR, VBNewLine )	' Find beginning of the code

		endSnippet = InStr( beginSnippet, SSnotesSTR, "EndOfSnippet" ) - 1

		outInsertFrom = InStr( endSnippet, SSnotesSTR, "-->" ) + 3

		outSnippetSTR = Mid( SSnotesSTR, beginSnippet, endSnippet - beginSnippet )

	Else

		Call Raise_Event ( enumEVENT_ERROR, "[job:GenerateReleaseNotes  sub:Get_Snippet]", _

						   					"SnippetName: "& SSname , _

						   					"SnippetName not found!", enum_RELEASE_NOTES_FAILED )

	End If

End Sub

'-----------------------------------------------------------------------------------------------------------------

Function ArrayRecord ( NNcolumn, SSrecCode, DDdepIss, AAdepIss )

	If NOT DDdepIss.Exists ( SSrecCode ) Then Exit Function

	ArrayRecord = NVL( AAdepIss ( NNcolumn, CInt( DDdepIss.Item (SSrecCode) ) ) )

End Function

'-----------------------------------------------------------------------------------------------------------------

Sub Insert_To_Page ( notesSTR, insertFrom, insterSTR )

	notesSTR = Left( notesSTR, insertFrom ) & insterSTR & Right( notesSTR, Len(notesSTR) - insertFrom )

	insterSTR = NULL	' Clear the insert string

End Sub

'-----------------------------------------------------------------------------------------------------------------

Sub Group_By ( rsG, outCurrG, snippetSTR, outSTR, BBchanged )

	If rsG = outCurrG Then Exit Sub

	outSTR = outSTR & snippetSTR

	outCurrG = rsG

	BBchanged = TRUE

End Sub

'-----------------------------------------------------------------------------------------------------------------

Sub Generate_Release_Notes ( )

	Dim objPkgFileSys, docPath, rootPath

	Dim notesSTR, pkgType

	Set objPkgFileSys = New PkgArchive

	objPkgFileSys.Map_Network_Drive  UNC_ARCHIVE, MappedDrive 	' Map Drive if required

	pkgType = Get_Package_Type ( parPv_id )

	objPkgFileSys.Remote_Host = TELNET_MACHINE

	If pkgType = enumPKG_TYPE_ERG_PRODUCT Then

		rootPath = MappedDrive & DEPLOY_ARCHIVE &"\"& parPkg_name &"\"& parPkg_Version

		objPkgFileSys.Archive_Path = TELNET_DEPLOY_ARCHIVE

	Else

		rootPath = MappedDrive & DPKG_ARCHIVE &"\"& parPkg_name &"\"& parPkg_Version

		objPkgFileSys.Archive_Path = TELNET_DPKG_ARCHIVE

	End If

	objPkgFileSys.Create_Doc_Folder parPkg_name, parPkg_Version, DOC_FOLDER	' Create document folder if required

	' --------------- RELEASE NOTES ----------------

	Select Case pkgType

		Case enumPKG_TYPE_GENERIC_DPKG

			Call Generate_Notes_Style_A ( parPv_id, notesSTR, parRtag_name, parProj_id )

		Case enumPKG_TYPE_DB_PATCH_DPKG

			Call Generate_Notes_Style_A ( parPv_id, notesSTR, parRtag_name, parProj_id )

		Case enumPKG_TYPE_DEVICE_DPKG

			Call Generate_Notes_Style_A ( parPv_id, notesSTR, parRtag_name, parProj_id )

		Case enumPKG_TYPE_ERG_PRODUCT

			Call Generate_Notes_Style_B ( parPv_id, notesSTR, parRtag_name, parProj_id )

		Case Else

			Call Generate_Notes_Style_A ( parPv_id, notesSTR, parRtag_name, parProj_id )

	End Select

	If WScript.Arguments.Named.Item("file") = "" Then

		Call SaveFile( rootPath &"\"& DOC_FOLDER, Format_FileName( parPkg_name, parPkg_Version, parPv_id ) , notesSTR )

	Else

		Call SaveFile( AppPath &"temp", WScript.Arguments.Named.Item("file") , notesSTR )

	End If

	' ----------------------------------------------

End Sub

'-----------------------------------------------------------------------------------------------------------------

Function Format_CQ_CHANGE_REQUEST ( sInternal, sExternal )

    If NOT IsNull( sInternal ) Then

        If UCase( sInternal ) = "TRUE" AND UCase( sExternal ) = "TRUE" Then

            Format_CQ_CHANGE_REQUEST  = "Internal/External"

        ElseIf UCase( sInternal ) = "TRUE" Then

            Format_CQ_CHANGE_REQUEST  = "Internal"

        ElseIf UCase( sExternal) = "TRUE" Then

            Format_CQ_CHANGE_REQUEST  = "External"

        Else

            Format_CQ_CHANGE_REQUEST  = "--"

        End If

    Else

      Format_CQ_CHANGE_REQUEST  = "--"

    End If

End Function

'-----------------------------------------------------------------------------------------------------------------

Function Format_Reason_For_Release ( nIss_id, sReason )

    If IsNull( nIss_id ) Then

        If IsNull( sReason ) Then

            Format_Reason_For_Release =  "Reason for this version is not specified."

        Else

            Format_Reason_For_Release = FormatTextBox( HTML_Encode ( sReason ) )

        End If

    Else

        If IsNull( sReason ) Then

            Format_Reason_For_Release = ""

        Else

            Format_Reason_For_Release = FormatTextBox( HTML_Encode ( sReason ) )

        End If

    End If

End Function

'-----------------------------------------------------------------------------------------------------------------

Sub Get_Dependency_CQ_Issues ( SSsql, OOrsCQ, DDdepIss, AAiss )

	Dim recCnt

	If OOrsCQ.State = 1 Then

		OOrsCQ.Close

	End If

	OOrsCQ.ActiveConnection = CQ_conn

	OOrsCQ.Source = SSsql

	OOrsCQ.CursorType = 0

	OOrsCQ.CursorLocation = 2

	OOrsCQ.LockType = 3

	OOrsCQ.Open()

	recCnt = 1

	While ((NOT OOrsCQ.BOF) AND (NOT OOrsCQ.EOF))

		ReDim Preserve AAiss( 20, recCnt )

		DDdepIss.Add Cstr(OOrsCQ("iss_db") &"."& OOrsCQ("iss_id")), Cstr(recCnt)

		AAiss( enumLoc_iss_db, recCnt ) 	    = NVL( OOrsCQ("iss_db") )

		AAiss( enumLoc_iss_id, recCnt ) 	    = NVL( OOrsCQ("iss_id") )

		AAiss( enumLoc_iss_num, recCnt )	    = NVL( OOrsCQ("iss_num") )

		AAiss( enumLoc_summary, recCnt )	    = NVL( FormatTextBox ( HTML_Encode ( OOrsCQ("summary") ) ) )

		AAiss( enumLoc_status, recCnt ) 	    = NVL( OOrsCQ("status") )

		AAiss( enumLoc_priority, recCnt ) 	    = NVL( OOrsCQ("priority") )

		AAiss( enumLoc_issue_type, recCnt )     = NVL( OOrsCQ("issue_type") )

		AAiss( enumLoc_submitter, recCnt )      = NVL( OOrsCQ("submitter") )

		AAiss( enumLoc_defect_in, recCnt )      = NVL( OOrsCQ("release_part1") &"."& OOrsCQ("release_part2") &"."& OOrsCQ("release_part3") )

		AAiss( enumLoc_submit_date, recCnt )    = NVL( EuroDate ( OOrsCQ("submit_date") ) )

		AAiss( enumLoc_project, recCnt )        = NVL( OOrsCQ("project") )

		AAiss( enumLoc_owner, recCnt )          = NVL( OOrsCQ("owner") )

		AAiss( enumLoc_product, recCnt )        = NVL( OOrsCQ("product") )

		AAiss( enumLoc_approver, recCnt )       = NVL( OOrsCQ("approver") )

		AAiss( enumLoc_package, recCnt )        = NVL( OOrsCQ("package_ref") )

		AAiss( enumLoc_description, recCnt )    = NVL( FormatTextBox ( HTML_Encode ( OOrsCQ("description") ) ) )

		AAiss( enumLoc_notes_log, recCnt )      = NVL( FormatTextBox ( HTML_Encode ( OOrsCQ("notes_log") ) ) )

		AAiss( enumLoc_release_id, recCnt )     = NVL( OOrsCQ("release_id") )

		AAiss( enumLoc_client_ref, recCnt )     = NVL( OOrsCQ("client_ref") )

		AAiss( enumLoc_severity, recCnt )       = NVL( OOrsCQ("severity") )

		AAiss( enumLoc_change_request, recCnt ) = Format_CQ_CHANGE_REQUEST ( OOrsCQ("cr_internal"), OOrsCQ("cr_external") )

		recCnt = recCnt + 1

		OOrsCQ.MoveNext

	WEnd

	OOrsCQ.Close

End Sub

'-----------------------------------------------------------------------------------------------------------------

Sub Get_ORA_Package_Issues ( SSstate, outCQSQL )

	Dim rsTemp, sqlstr, DEVIiss, TDSEiss

	Select Case SSstate

	Case "Fixed_Issues"

		sqlstr = " SELECT iss_db, iss_id, iss_state"&_

		         "   FROM CQ_ISSUES "&_

		         "  WHERE pv_id = "& parPv_id &_

		         "    AND iss_state = "& enumISSUES_STATE_FIXED

	Case "Outstanding_Issues"

		sqlstr = " SELECT iss_db, iss_id, iss_state"&_

		         "   FROM CQ_ISSUES "&_

		         "  WHERE pv_id = "& parPv_id &_

		         "    AND iss_state = "& enumISSUES_STATE_IMPORTED

	Case "Dependency_Issues"

		sqlstr = " SELECT iss_db, iss_id"&_

				 "   FROM CQ_ISSUES "&_

				 "  WHERE iss_state = "& enumISSUES_STATE_FIXED &_

				 "    AND pv_id IN ( SELECT dpv_id FROM PACKAGE_DEPENDENCIES WHERE pv_id = "& parPv_id &" )"

	End Select

	Set rsTemp = OraDatabase.DbCreateDynaset( sqlstr, cint(0))

	DEVIiss = "-1"

	TDSEiss  = "-1"

	While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))

		If CInt(rsTemp("iss_db")) = CInt(enumCLEARQUEST_DEVI_ID) Then

			DEVIiss = DEVIiss &","& rsTemp("iss_id")

		ElseIf CInt(rsTemp("iss_db")) = CInt(enumCLEARQUEST_TDSE_ID) Then

			TDSEiss = TDSEiss &","& rsTemp("iss_id")

		End If

		rsTemp.MoveNext

	WEnd

	' Construct SQL statement for CQ database

	outCQSQL = ReadFile( AppPath & QUERIES_FOLDER & "\cq_issues_full.sql" )

	outCQSQL = Replace( outCQSQL, "/*enumCLEARQUEST_DEVI_ID*/", enumCLEARQUEST_DEVI_ID)

	outCQSQL = Replace( outCQSQL, "/*enumCLEARQUEST_TDSE_ID*/", enumCLEARQUEST_TDSE_ID)

	outCQSQL = Replace( outCQSQL, "/*DEVIiss*/", DEVIiss)

	outCQSQL = Replace( outCQSQL, "/*TDSEiss*/", TDSEiss)

	rsTemp.Close

	Set rsTemp = nothing

End Sub

'-----------------------------------------------------------------------------------------------------------------

Sub Get_JIRA_Package_Issues ( outJIRASQL )

	Dim rsTemp, sqlstr, JIRAiss

	sqlstr = " SELECT *"&_

			 " 	 FROM JIRA_ISSUES"&_

			 "	WHERE pv_id = "& parPv_id

	Set rsTemp = OraDatabase.DbCreateDynaset( sqlstr, cint(0))

	JIRAiss = "'-1'"

	While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))

				JIRAiss = JIRAiss &",'"& rsTemp("iss_key")&"'"

		rsTemp.MoveNext

	WEnd

	'Construct SQL statement for JIRA database

	If Len(JIRAiss) <> 1 Then

		outJIRASQL = "SELECT I.pkey AS iss_num, I.summary, ISS.pname AS state,  IT.pname as IssueType, PR.pname as Priority, I.RESOLUTION "&_

				" FROM jiraissue I, issuestatus ISS, issuetype IT, priority PR "&_

				" WHERE I.pkey IN ("& JIRAIss &") "&_

				" AND I.issuestatus = ISS.ID "&_

				" AND IT.ID = I.issuetype "&_

				" AND PR.ID = I.PRIORITY "

	End If

	rsTemp.Close

	Set rsTemp = nothing

End Sub

'-----------------------------------------------------------------------------------------------------------------

Sub Get_CQ_Issues ( SSsql, OOrsCQ )

	OOrsCQ.ActiveConnection = CQ_conn

	OOrsCQ.Source = SSsql

	OOrsCQ.CursorType = 0

	OOrsCQ.CursorLocation = 2

	OOrsCQ.LockType = 3

	OOrsCQ.Open()

End Sub

'-----------------------------------------------------------------------------------------------------------------

Sub Get_JIRA_Issues ( SSsql, OOrsJIRA )

	OOrsJIRA.ActiveConnection = JIRA_conn

	OOrsJIRA.Source = SSsql

	OOrsJIRA.CursorType = 0

	OOrsJIRA.CursorLocation = 2

	OOrsJIRA.LockType = 3

	OOrsJIRA.Open()

End Sub

'-----------------------------------------------------------------------------------------------------------------

Sub EditReleaseInfoDetails ( nIssDB, nIssId, sNewInfo, sCurrentInfo )

	Dim rsQry, Source, pos

	If NOT IsNull(sCurrentInfo) Then

		pos = InStr( sCurrentInfo, sNewInfo )

		'Wscript.Echo pos

		'Wscript.Echo Len(sCurrentInfo)

		If pos = 0 Then

			If Len(sCurrentInfo) = 0 Then

				sCurrentInfo = sNewInfo

			Else

				sCurrentInfo = sCurrentInfo + VBNewLine + sNewInfo

			End If

		Else

			sCurrentInfo = sCurrentInfo

		End If

	Else

		sCurrentInfo = sNewInfo

	End If

	Wscript.Echo sCurrentInfo

	Set rsQry = CreateObject("ADODB.Connection")

	rsQry.Open CQ_conn

	If CInt(nIssDB) = enumCLEARQUEST_DEVI_ID Then

                Source = "EXEC cq_devi.dbo.sp_RM_editReleaseInfoDetails "& nIssId &", '"& sCurrentInfo &"';"

		rsQry.Execute Source

	End If

	'On Error Resume Next

	rsQry.Close()

	Set rsQry = nothing

End Sub

'-----------------------------------------------------------------------------------------------------------------

'-------------------- MAIN LINE ----------------------

WScript.Echo "==================== job:GenerateReleaseNotes ===================="

Set objArgs = WScript.Arguments

If (objArgs.Unnamed.Count > 0) Then

	Wscript.Echo "ERROR: Unnamed parameters!"

	objArgs.ShowUsage

   	WScript.Quit

Else

	parPkg_name = objArgs.Named.Item("pkg_name")

	parPkg_Version = objArgs.Named.Item("pkg_version")

	parPv_id = objArgs.Named.Item("pv_id")

	parRtag_name = objArgs.Named.Item("rtag_name")

	parProj_id = objArgs.Named.Item("proj_id")

	If ( parPkg_name <> "" AND parPkg_Version <> "") Then

		Call Get_PV_ID ( parPkg_name, parPkg_Version, parPv_id )

   	ElseIf parPv_id <> ""  Then

   		Call Get_Pkg_Name_Version ( parPv_id, parPkg_name, parPkg_Version )

   	Else

   		objArgs.ShowUsage

   		WScript.Quit

   	End If

End If

Call Check_Requirements_To_Proceed ( parPv_id )

Call Generate_Release_Notes ()

WScript.Echo "Release Notes generated successfully!"

]]>

		</script>

	</job>

	<job id="PostRun" args="/pv_id:30261 /f:Y" prompt="no">

		<?job error="true" debug="true" ?>

		<runtime>

			<named helpstring="Package Name" name="pkg_name" required="false" type="string"/>

			<named helpstring="Package Version" name="pkg_version" required="false" type="string"/>

			<named helpstring="Package primary key" name="pv_id" required="false" type="simple"/>

			<named helpstring="Force Release Notes Generation" name="f" required="false" type="string"/>

			<usage>

Usage:

   on_Make_Official.wsf [/pkg_name:value] [/pkg_version:value]

OR

   on_Make_Official.wsf [/pv_id:value]

Options:

pkg_name     : Package Name

pkg_version  : Package Version

pv_id        : Package Version primary key

			</usage>

		</runtime>

		<object id="Oracle_Objects_For_OLE" progid="OracleInProcServer.XOraSession" events="true"/>

		<script language="VBScript" src="common_subs.vbs"/>

		<script language="VBScript" src="config.vbs"/>

		<script language="VBScript" src="pkg_archive.vbs"/>

		<script id="PostRun" language="VBScript">

<![CDATA[

Option Explicit

'=====================================================

'        Name: 	PostRun

' Description:	Process ran after the release notes

'               have been generated.

' 		INPUT:  pkg_name

'				pkg_version

'=====================================================

'================ Variable Definition ================

Dim objArgs

Dim parPv_id

Dim parPkg_name

Dim parRtag_name

Dim parProj_id

Dim parPkg_Version

Dim objPkgFileSys

Dim rootPath

Dim notesLocation

Dim outRTAG_ID

Dim outPKG_ID

'=============== Constants Declaration ===============

'================== Variable Init ====================

Set objPkgFileSys = New PkgArchive

'=====================================================

'-----------------------------------------------------------------------------------------------------------------

Sub Move_Files_From_Web_Archive ()

    Dim oFileSys, sPath, sSourcePath, sDestPath

    Set oFileSys = CreateObject("Scripting.FileSystemObject")

    ' Move doc folder contents

    sSourcePath = AppPath & TEMP_FOLDER &"\"& parPkg_name &"\"& parPkg_Version &"\"& DOC_FOLDER

    sDestPath = rootPath &"\"& DOC_FOLDER

    If oFileSys.FolderExists( sSourcePath ) Then

        WScript.Echo "Moving attachments from Web Server..."

        On Error Resume Next

        oFileSys.CopyFile sSourcePath &"\*", sDestPath, True   ' Copy with overwrite

        Call ErrorCheck ( "[job:PostRun sub:Move_Files_From_Web_Archive]", _

                  		  "sSourcePath: "& sSourcePath & VBNewLine &_

                  		  "sDestPath: "& sDestPath  )

        oFileSys.DeleteFolder sSourcePath, True      ' Clean up

        'Call ErrorCheck ( "[job:PostRun sub:Move_Files_From_Web_Archive]", _

        '          		  "Delete Folder: "& sSourcePath )

    End If

    Call CleanUp_Folders ( AppPath & TEMP_FOLDER )

End Sub

'-----------------------------------------------------------------------------------------------------------------

Sub CleanUp_Folders ( sPath )

	Dim currentFolder

	' Attempt to remove PKG_NAME/PKG_VERSION folders on web server

	WScript.Echo "Cleaning temp files/folders at Web Server..."

    On Error Resume Next

	' Attempting to remove PKG_VERSION/

	currentFolder = sPath &"\"& parPkg_name &"\"& parPkg_version

	If Folder_Is_Empty ( currentFolder  ) Then

	    Call DeleteFolder( currentFolder )

	'Else

	'    Call Raise_Event ( enumEVENT_WARNING, "[job:PostRun sub:CleanUp_Folders]", _

	'										  "Deleting Folder: "& currentFolder , _

	'					   					  "PKG_VERSION Folder is not empty and is not removed! Skipping this process.", NULL )

	End If

	Call ErrorCheck ( "[job:PostRun sub:CleanUp_Folders]", _

	                  "Delete Folder: "& currentFolder )

	' Attempting to remove PKG_NAME/

	currentFolder = sPath &"\"& parPkg_name

	If Folder_Is_Empty ( currentFolder  ) Then

	    Call DeleteFolder( currentFolder )

	'Else

	'    Call Raise_Event ( enumEVENT_WARNING, "[job:PostRun sub:CleanUp_Folders]", _

	'										  "Deleting Folder: "& currentFolder , _

	'					   					  "PKG_NAME Folder is not empty and is not removed! Skipping this process.", NULL )

	End If

	Call ErrorCheck ( "[job:PostRun sub:CleanUp_Folders]", _

	                  "Delete Folder: "& currentFolder )

End Sub

'-----------------------------------------------------------------------------------------------------------------

Sub Initial_Setup ( oPkgFileSys, sRootPath, sNotesLocation )

    Dim MappedDrive, nPkgType

    oPkgFileSys.Map_Network_Drive  UNC_ARCHIVE, MappedDrive 	' Map Drive if required

    nPkgType = Get_Package_Type ( parPv_id )

    oPkgFileSys.Remote_Host = TELNET_MACHINE

    If nPkgType = enumPKG_TYPE_ERG_PRODUCT Then

        sNotesLocation = URL_PATH_DEPLOY_ARCHIVE &"/"& parPkg_name &"/"& parPkg_Version &"/"& DOC_FOLDER &"/"& Format_FileName( parPkg_name, parPkg_Version, parPv_id )

        sRootPath = MappedDrive & DEPLOY_ARCHIVE &"\"& parPkg_name &"\"& parPkg_Version

        oPkgFileSys.Archive_Path = TELNET_DEPLOY_ARCHIVE

    Else

        sNotesLocation = URL_PATH_DPKG_ARCHIVE &"/"& parPkg_name &"/"& parPkg_Version &"/"& DOC_FOLDER &"/"& Format_FileName( parPkg_name, parPkg_Version, parPv_id )

        sRootPath = MappedDrive & DPKG_ARCHIVE &"\"& parPkg_name &"\"& parPkg_Version

        oPkgFileSys.Archive_Path = TELNET_DPKG_ARCHIVE

    End If

End Sub

'-----------------------------------------------------------------------------------------------------------------

'-------------------- MAIN LINE ----------------------

WScript.Echo "==================== job:PostRun ===================="

Set objArgs = WScript.Arguments

If (objArgs.Unnamed.Count > 0) Then

	Wscript.Echo "ERROR: Unnamed parameters!"

	objArgs.ShowUsage

   	WScript.Quit

Else

	parPkg_name = objArgs.Named.Item("pkg_name")

	parPkg_Version = objArgs.Named.Item("pkg_version")

	parPv_id = objArgs.Named.Item("pv_id")

	parRtag_name = objArgs.Named.Item("rtag_name")

	parProj_id = objArgs.Named.Item("proj_id")

	If ( parPkg_name <> "" AND parPkg_Version <> "") Then

		Call Get_PV_ID ( parPkg_name, parPkg_Version, parPv_id )

   	ElseIf parPv_id <> ""  Then

   		Call Get_Pkg_Name_Version ( parPv_id, parPkg_name, parPkg_Version )

   	Else

   		objArgs.ShowUsage

   		WScript.Quit

   	End If

End If

Call Check_Requirements_To_Proceed ( parPv_id )

Call Initial_Setup ( objPkgFileSys, rootPath, notesLocation )

Call Move_Files_From_Web_Archive ()

WScript.Echo "Making all READ ONLY from folder "& parPkg_Version &"/"

objPkgFileSys.All_Read_Only  parPkg_name, parPkg_Version        ' Make sure all file and folders are read only. Starting from version folder.

Call Write_To_Release_Notes_Info ( parPv_id, notesLocation )

Set objPkgFileSys = Nothing

WScript.Echo "PostRun completed successfully!"

]]>

		</script>

	</job>

	<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">

		<?job error="true" debug="true" ?>

		<runtime>

			<named helpstring="Package Name" name="pkg_name" required="false" type="string"/>

			<named helpstring="Package Version" name="pkg_version" required="false" type="string"/>

			<named helpstring="Release Tag Id" name="rtag_id" required="false" type="string"/>

			<named helpstring="Package Id" name="pkg_id" required="false" type="string"/>

			<named helpstring="Package version Id" name="pv_id" required="false" type="string"/>

			<named helpstring="Project Id" name="proj_id" required="false" type="string"/>

			<named helpstring="Change Mode Id" name="mode_id" required="false" type="simple"/>

			<usage>

Usage:

   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]

Options:

pkg_name     : Package Name

pkg_version  : Package Version

rtag_id      : Release Tag Id

pkg_id       : Package Id

pv_id        : Package version Id

proj_id      : Project Id

mode_id      : Package Change Mode Id

			</usage>

		</runtime>

		<object id="Object1" progid="OracleInProcServer.XOraSession" events="true"/>

		<script language="VBScript" src="common_subs.vbs"/>

		<script language="VBScript" src="config.vbs"/>

		<script language="VBScript" src="pkg_archive.vbs"/>

		<script id="ReleaseChanged" language="VBScript">

<![CDATA[

Option Explicit

'=====================================================

'        Name: 	ReleaseChanged

' Description:	Process that is called after the content of a release has changed

' 		INPUT:  

'               pkg_name

'               pkg_version

'               rtag_id

'               pkg_id

'               pv_id

'               proj_id

'               mode_id

'=====================================================