Subversion Repositories DevTools

		outobjDetails.Item ("pdf_attachment_path") = rsQry("pdf_attachment_path")

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

Sub Get_Pkg_Short_Info( SSparPv_id, SSpkgID, SSpkgName, SSpkgVersion, SSsrc_path, SSpkgDesc, BBdlocked )

	Dim rsTemp, Query_String

	If IsEmpty(SSparPv_id) Then Exit Sub

	Query_String = _

	" SELECT pkg.pkg_id, pkg.pkg_name, pv.pkg_version, pv.src_path, pv.pv_description, pv.dlocked"&_

	"  FROM packages pkg, package_versions pv"&_

	" WHERE pkg.pkg_id = pv.pkg_id  AND pv.pv_id ="& SSparPv_id

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

	If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then

		SSpkgID = rsTemp.Fields("pkg_id")

		SSpkgName = rsTemp.Fields("pkg_name")

		SSpkgVersion = rsTemp.Fields("pkg_version")

		SSsrc_path = rsTemp.Fields("src_path")

		SSpkgDesc = rsTemp.Fields("pv_description")

		BBdlocked = rsTemp.Fields("dlocked")

	End If

	rsTemp.Close

	Set rsTemp = nothing

End Sub

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

Sub Create_Folder ( sCreateIn, sFolderName )

	Dim filesys, currfolder, folcoll, subfol

	Set filesys = CreateObject("Scripting.FileSystemObject")

	If filesys.FolderExists( sCreateIn ) Then

		Set currfolder = filesys.GetFolder( sCreateIn )

		Set folcoll = currfolder.SubFolders

		If NOT filesys.FolderExists( sCreateIn &"\"& sFolderName ) Then

			folcoll.Add( sFolderName )

		End If

	End If

End Sub

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

Sub DeleteFile( SSpath )

	Dim filesys

	Set filesys = CreateObject("Scripting.FileSystemObject")

	If filesys.FileExists(SSpath) Then

   		filesys.DeleteFile SSpath, TRUE

	End If 

	Set filesys = nothing

End Sub

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

Sub Get_Pkg_Info ( SSpv_id, NNrtag )

	Dim rsTemp, Query_String

	OraDatabase.Parameters.Add "PV_ID", 		SSpv_id,	ORAPARM_INPUT, ORATYPE_NUMBER 

	OraDatabase.Parameters.Add "RTAG_ID", 		NNrtag,		ORAPARM_INPUT, ORATYPE_NUMBER 

	OraDatabase.Parameters.Add "RETURN_NUMBER", NULL,		ORAPARM_OUTPUT, ORATYPE_NUMBER 

	pkgInfoHash.Item ("can_unofficial") = "false"

	'/* Get Package Details */

	Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("PackageDetails.sql"), cint(0))

	If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then

		pkgInfoHash.Add "pv_id", (rsTemp.Fields("pv_id"))

		pkgInfoHash.Add "pkg_id", (rsTemp.Fields("pkg_id"))

		pkgInfoHash.Add "pkg_name", (rsTemp.Fields("pkg_name"))

		pkgInfoHash.Add "pkg_version", (rsTemp.Fields("pkg_version"))

		pkgInfoHash.Add "v_ext", (rsTemp.Fields("v_ext"))

		pkgInfoHash.Add "comments", (rsTemp.Fields("comments"))

		pkgInfoHash.Add "modified_stamp", (rsTemp.Fields("modified_stamp"))

		pkgInfoHash.Add "modifier", (rsTemp.Fields("modifier"))

		pkgInfoHash.Add "modifier_id", (rsTemp.Fields("modifier_id"))

		pkgInfoHash.Add "modifier_email", (rsTemp.Fields("modifier_email"))

		pkgInfoHash.Add "created_stamp", (rsTemp.Fields("created_stamp"))

		pkgInfoHash.Add "creator", (rsTemp.Fields("creator"))

		pkgInfoHash.Add "creator_email", (rsTemp.Fields("creator_email"))

		pkgInfoHash.Add "owner", (rsTemp.Fields("owner"))

		pkgInfoHash.Add "owner_email", (rsTemp.Fields("owner_email"))

		pkgInfoHash.Add "dlocked", (rsTemp.Fields("dlocked"))

		pkgInfoHash.Add "proj_id", (rsTemp.Fields("proj_id"))

		pkgInfoHash.Add "rtag_id", (rsTemp.Fields("rtag_id"))

		pkgInfoHash.Add "rtag_name", (rsTemp.Fields("rtag_name"))

		pkgInfoHash.Add "pkg_label", (rsTemp.Fields("pkg_label"))

		pkgInfoHash.Add "src_path", (rsTemp.Fields("src_path"))

		pkgInfoHash.Add "pv_description", (rsTemp.Fields("pv_description"))

		pkgInfoHash.Add "last_pv_id", (rsTemp.Fields("last_pv_id"))

		pkgInfoHash.Add "previous_version", (rsTemp.Fields("previous_version"))

		pkgInfoHash.Add "release_notes_info", (rsTemp.Fields("release_notes_info"))

		pkgInfoHash.Add "is_patch", (rsTemp.Fields("is_patch"))

		pkgInfoHash.Add "is_obsolete", (rsTemp.Fields("is_obsolete"))

		pkgInfoHash.Add "obsolete_comments", (rsTemp.Fields("obsolete_comments"))

		pkgInfoHash.Add "build_type", (rsTemp.Fields("build_type"))

		pkgInfoHash.Add "change_type", (rsTemp.Fields("change_type"))

	End If

End Sub

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

Function Folder_Is_Empty ( sPath )

	Dim filesys, oFolder

	Set filesys = CreateObject("Scripting.FileSystemObject") 

	If filesys.FolderExists( sPath ) Then

		Set oFolder = filesys.GetFolder( sPath )  

		If ( oFolder.Files.Count + oFolder.SubFolders.Count ) > 0 Then

			Folder_Is_Empty = FALSE

		Else

			Folder_Is_Empty = TRUE

		End If

	Else

		Folder_Is_Empty = TRUE

	End If

End Function

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

Sub DeleteFolder( SSpath )

	Dim  filesys

	Set filesys = CreateObject ("Scripting.FileSystemObject")

	If filesys.FolderExists( SSpath ) Then

		'Set oFolder = filesys.GetFolder( SSpath )

		filesys.DeleteFolder SSpath ,TRUE

	End If

End Sub

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

Sub PopulateSBOMField( nBomId, nProdId, sPkgName, sPkgVersion )

	Dim rsTemp, BomLocationDetails

	If IsNull(nProdId) Then

		Dim Query

		Query = "select pv.pv_id from package_versions pv, packages pkg where pv.pkg_id = pkg.pkg_id "&_

				" and pv.pkg_version = '"&sPkgVersion&"' and pkg.pkg_name = '"&sPkgName&"'"

		'Response.Write Query

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

		nProdId = rsTemp("pv_id")

	End If

	'OraDatabase.Parameters.Add "BOM_ID", nBomId,	ORAPARM_INPUT, ORATYPE_NUMBER

	'/* Get SBOM Details */

	Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("BomLocationDetails.sql"), cint(0))

	BomLocationDetails = rsTemp("proj_name") + " > " + rsTemp("branch_name") + " > " &_

						+ rsTemp("bom_name") + " " + rsTemp("bom_version") + "." &_

						+ rsTemp("bom_lifecycle")

	'Response.Write BomLocationDetails 'Data to be inserted into the 'sbom' field

	Call Insert_Into_ClearQuest_Schema( nProdId, BomLocationDetails )

	'OraDatabase.Parameters.Remove "BOM_ID"

	rsTemp.Close()

	Set rsTemp = Nothing

End Sub

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

Sub Insert_Into_ClearQuest_Schema( nProdId, sBomDetails )

	Dim sqlstr, DEVIiss, TDSEiss, Query_String, rsCQ, rsTemp

	Set rsCQ = CreateObject("ADODB.Recordset")

	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 = "& nProdId &" )"

	'Response.Write sqlstr

	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

	Query_String = ReadFile( rootPath & "queries\cq_issues_full.sql" )

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

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

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

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

	'Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))

	'Response.Write Query_String

	Call Get_CQ_Issues ( Query_String, rsCQ )

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

		If CInt(rsCQ("iss_db")) = enumCLEARQUEST_DEVI_ID AND IsNull(rsCQ("sbom")) Then

			'Response.Write rsCQ("iss_num")

			Set rsTemp = CreateObject("ADODB.Connection")

			rsTemp.Open CQ_conn

			rsTemp.Execute "EXEC devi_prod.dbo.sp_DM_editSBOMDetails "& rsCQ("iss_id") &", '"& sBomDetails &"';"	

			rsTemp.Close()

			Set rsTemp = Nothing

		End If

		rsCQ.MoveNext

	Wend

	rsCQ.Close()

	Set rsCQ = 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

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