WebSVN – DevTools – Diff – /ManagerSuite/Release_Manager/trunk/scripts/on_Make_Official.wsf

 			<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:
 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
 '=====================================================
 '-----------------------------------------------------------------------------------------------------------------
 Sub DESCPKG_File_Check ( sPath )
     Dim  oFileSys
 	Set oFileSys = CreateObject ("Scripting.FileSystemObject")
     If NOT oFileSys.FileExists( sPath &"\"& DESCPKG_FILE ) Then
 		Call SaveFile( sPath, DESCPKG_FILE, parPkg_name &" "& parPkg_Version )      ' Create descpkg file
 	End If
 End Sub
 '-----------------------------------------------------------------------------------------------------------------
 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
 	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
 		'%%%%% Creation of Product folder is just temporary.
 		'%%%%% Remove the line objPkgFileSys.Create_Pkg_Folder parPkg_name, parPkg_version when depoly_archive is in production
 		objPkgFileSys.Create_Pkg_Folder parPkg_name, parPkg_Version
 		'%%%%% Remove line above ^^^^^^^^^^
 	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
 	    Call DESCPKG_File_Check ( rootPath )        ' Create descpkg file if required
 		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 )
 					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 ===================="
 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 )
 			<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:
 			</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 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 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
 		'%%%%% Creation of Product folder is just temporary.
 		'%%%%% Remove the line objPkgFileSys.Create_Pkg_Folder parPkg_name, parPkg_version when depoly_archive is in production
 		objPkgFileSys.Create_Pkg_Folder parPkg_name, parPkg_Version
 		'%%%%% Remove line above ^^^^^^^^^^
 	Else
 		rootPath = MappedDrive & DPKG_ARCHIVE &"\"& parPkg_name &"\"& parPkg_Version
 		objPkgFileSys.Archive_Path = TELNET_DPKG_ARCHIVE
 	End If
     objPkgFileSys.Ensure_Read_Write parPkg_name, parPkg_version		' Make sure all files and folders can be read
 	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_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 &_
 		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'"
-	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.LockType = 3
 	OOrsCQ.Open()
 End Sub
 '-----------------------------------------------------------------------------------------------------------------
 Sub Get_JIRA_Issues ( SSsql, OOrsJIRA )
-	OOrsJIRA.ActiveConnection = "Provider=sqloledb;Data Source=auperatcm04;Initial Catalog=JIRA_341;User Id=jirauser;Password=jirauser"
+	OOrsJIRA.ActiveConnection = "Provider=sqloledb;Data Source=auperaprj02;Initial Catalog=JIRA;User Id=jirauser;Password=jirauser"
 	OOrsJIRA.Source = SSsql
 	OOrsJIRA.CursorType = 0
 	OOrsJIRA.CursorLocation = 2
 	OOrsJIRA.LockType = 3
 	OOrsJIRA.Open()
 		'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 devi_prod.dbo.sp_RM_editReleaseInfoDetails "& nIssId &", '"& sCurrentInfo &"';"
 		rsQry.Execute Source
 	End If
 	'On Error Resume Next
 	rsQry.Close()
 	Set rsQry = nothing
 End Sub
 '-----------------------------------------------------------------------------------------------------------------
 '-------------------- MAIN LINE ----------------------
 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 ()
 			<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:
 		<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
 '=====================================================
 '=====================================================
 '-----------------------------------------------------------------------------------------------------------------
 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
         '%%%%% Creation of Product folder is just temporary.
         '%%%%% Remove the line objPkgFileSys.Create_Pkg_Folder parPkg_name, parPkg_version when depoly_archive is in production
         oPkgFileSys.Create_Pkg_Folder parPkg_name, parPkg_Version
         '%%%%% Remove line above ^^^^^^^^^^
     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
     objPkgFileSys.Ensure_Read_Write parPkg_name, parPkg_version		' Make sure all files and folders can be read
     oPkgFileSys.Create_Doc_Folder parPkg_name, parPkg_Version, DOC_FOLDER	' Create document folder if required
 End Sub
 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 )

Subversion Repositories DevTools

(root)/ManagerSuite/Release_Manager/trunk/scripts/on_Make_Official.wsf @ 153 – Rev 119 → 153