<%@LANGUAGE="VBSCRIPT"%>
<%
'=====================================================
' diffmerge.asp
'=====================================================
%>
<%
Option explicit
' Good idea to set when using redirect
Response.Expires = 0 ' always load the page, dont store
%>
<%
'To enable the script timeout to 5 mins
Server.ScriptTimeout=600
%>
<%
' Set rfile parameter. This is a return page after Login
'Call objPMod.StoreParameter ( "rfile", "rtree.asp" )
'objPMod.PersistInQryString("proj_id")
'------------ ACCESS CONTROL ------------------
%>
<%
'------------ Variable Definition -------------
Dim rsQry
Dim objRelCollectorA
Dim objRelCollectorB
Dim parRtagA
Dim parRtagB
Dim parSBOMA
Dim parSBOMB
Dim dDiffFilter
Dim colorA, colorB, ChangeTypeIcon
Dim btnMerge, btnRemove
Dim rowId
Dim email
Dim FSO
Dim NewTextFile
Dim pkgA, pkgB, pkgname, delimiter, rsQryA, rsQryB, rsQryCommentsA, rsQryCommentsB, sqlstrA, counterA, sqlstrB, counterB
Dim SSsql, retVal, rsCQ, DEVIiss
Dim a, b, c, d, pkgversion, errormsg, source_change
'------------ Constants Declaration -----------
Const LIMG_UPDATED = ""
Const LIMG_ADDED = ""
Const LIMG_REMOVED = ""
Const LIMG_FILTER_ON = ""
Const LIMG_FILTER_OFF = ""
Const LIMG_DROP_DOWN_ARROW = ""
Const LCOLOR_NOT_CHANGED = "#F5F5F5"
Const LCOLOR_CHANGED = "#d2f7c9"
Const LCOLOR_BLANK = "#FFFFFF"
Const LIMG_MERGE = ""
Const LIMG_MERGE_WARN = ""
Const LIMG_REMOVE = ""
Const LIMG_UNDO = ""
'------------ Variable Init -------------------
Set rsCQ = Server.CreateObject("ADODB.Recordset")
parRtagA = Request("rtagA")
parRtagB = Request("rtagB")
parSBOMA = Request("sbomA")
parSBOMB = Request("sbomB")
Set objRelCollectorA = CreateObject("Scripting.Dictionary")
Set objRelCollectorB = CreateObject("Scripting.Dictionary")
Set dDiffFilter = CreateObject("Scripting.Dictionary")
'----------------------------------------------
If Request("btn") = "Mail Me Report" Then
email = true
End If
%>
<%
'--------------------------------------------------------------------------------------------------------------------------
Sub GetDiffFilterValues ( outDepFilter )
Dim FilterVal, aFilterValues
If Request.Cookies(enum_RELMGR_COOKIE_DOMAIN)(COOKIE_HIDE_DIFF_FILTER) <> "" Then
aFilterValues = Split( Replace( Request.Cookies(enum_RELMGR_COOKIE_DOMAIN)(COOKIE_HIDE_DIFF_FILTER), " ", ""), ",")
For Each FilterVal In aFilterValues
outDepFilter.Item (CStr( FilterVal )) = ""
Next
End If
End Sub
'--------------------------------------------------------------------------------------------------------------------------
Sub GetFixedIssues(pv_id)
Set sqlstrA = OraDatabase.DbCreateDynaset("SELECT iss_db, iss_id, iss_state, notes FROM CQ_ISSUES WHERE pv_id="& pv_id &" AND iss_state = "& enumISSUES_STATE_FIXED, cint(0))
If sqlstrA.RecordCount <> 0 Then
NewTextFile.WriteLine()
NewTextFile.WriteLine("
Fixed Issues:
")
End If
For counterA=1 to sqlstrA.RecordCount
DEVIiss = "-1"
If CInt(sqlstrA("iss_db")) = CInt(enumCLEARQUEST_DEVI_ID) Then
DEVIiss = DEVIiss &","& sqlstrA("iss_id")
End If
SSsql = ReadFile( QUERIES_PATH & "\cq_issues.sql" )
SSsql = Replace( SSsql, "/*enumCLEARQUEST_DEVI_ID*/", enumCLEARQUEST_DEVI_ID)
SSsql = Replace( SSsql, "/*DEVIiss*/", DEVIiss)
retVal = Get_CQ_Issues ( SSsql, rsCQ )
If rsCQ("iss_num") <> "" Then
NewTextFile.Write("
"&rsCQ("iss_num")&": ")
End If
If rsCQ("summary") <> "" Then
NewTextFile.WriteLine(rsCQ("summary")&"
")
End If
sqlstrA.MoveNext
Next
sqlstrA.Close()
End Sub
'--------------------------------------------------------------------------------------------------------------------------
Sub GetDependencies(pv_id_a, pv_id_b)
Set sqlstrA = OraDatabase.DbCreateDynaset("select * from package_dependencies where pv_id = "& pv_id_b &" and dpv_id NOT IN (SELECT dpv_id from package_dependencies where pv_id ="& pv_id_a &" )", cint(0))
If sqlstrA.RecordCount <> 0 Then
NewTextFile.WriteLine()
NewTextFile.WriteLine("Dependencies Changed:")
End If
For counterA=1 to sqlstrA.RecordCount
Call dependencyComments(sqlstrA("dpv_id"))
sqlstrA.MoveNext
Next
sqlstrA.Close()
End Sub
'--------------------------------------------------------------------------------------------------------------------------
Sub dependencyComments(pv_id)
Set sqlstrB = OraDatabase.DbCreateDynaset("SELECT * FROM PACKAGE_VERSIONS pv, PACKAGES pkg WHERE pkg.pkg_id = pv.pkg_id AND PV_ID ="&pv_id, cint(0))
NewTextFile.Write("
")
End Sub
'--------------------------------------------------------------------------------------------------------------------------
Sub LastPvIdA(a)
Dim qryA
Set qryA = OraDatabase.DbCreateDynaset("SELECT LAST_PV_ID FROM PACKAGE_VERSIONS WHERE PV_ID="&a , cint(0))
If a <> qryA("last_pv_id") Then
a = qryA("last_pv_id")
Else
errormsg = true
End If
qryA.Close()
End Sub
'--------------------------------------------------------------------------------------------------------------------------
Sub LastPvIdB(b)
Dim qryB
Set qryB = OraDatabase.DbCreateDynaset("SELECT LAST_PV_ID FROM PACKAGE_VERSIONS WHERE PV_ID="&b , cint(0))
If b <> qryB("last_pv_id") Then
b = qryB("last_pv_id")
Else
errormsg = true
End If
qryB.Close()
End Sub
'--------------------------------------------------------------------------------------------------------------------------
Sub pkg_Version(pv)
Dim qry
Set qry = OraDatabase.DbCreateDynaset("SELECT PKG_VERSION FROM PACKAGE_VERSIONS WHERE PV_ID="&pv , cint(0))
pkgversion = qry("pkg_version")
qry.Close()
End Sub
'--------------------------------------------------------------------------------------------------------------------------
Sub LastPvIdAa(a)
Dim qryA
Set qryA = OraDatabase.DbCreateDynaset("SELECT LAST_PV_ID FROM PACKAGE_VERSIONS WHERE PV_ID="&a , cint(0))
c = qryA("last_pv_id")
qryA.Close()
End Sub
'--------------------------------------------------------------------------------------------------------------------------
Sub LastPvIdBb(b)
Dim qryB
Set qryB = OraDatabase.DbCreateDynaset("SELECT LAST_PV_ID FROM PACKAGE_VERSIONS WHERE PV_ID="&b , cint(0))
d = qryB("last_pv_id")
qryB.Close()
End Sub
'--------------------------------------------------------------------------------------------------------------------------
Sub Comments(Pv_Id)
Dim comments
Set comments = OraDatabase.DbCreateDynaset("SELECT COMMENTS, PKG_VERSION FROM PACKAGE_VERSIONS WHERE PV_ID="&Pv_id , cint(0))
If comments("comments") <> "Rippled Build." Then
NewTextFile.WriteLine("
Version: "& comments("pkg_version")&"
")
If comments("comments") <> "" Then
NewTextFile.WriteLine("
Comments:
")
NewTextFile.WriteLine("
"& TextToHTML(comments("comments")) &"
")
source_change = true
End If
End If
End Sub
'--------------------------------------------------------------------------------------------------------------------------
Sub Release(pvId)
Dim release
Set release = OraDatabase.DbCreateDynaset("SELECT INSERT_STAMP FROM RELEASE_CONTENT WHERE PV_ID="&pvId , cint(0))
If release("insert_stamp") <> "" Then
NewTextFile.Write(release("insert_stamp"))
Else
NewTextFile.Write("Version Not Used.")
End If
End Sub
'--------------------------------------------------------------------------------------------------------------------------
Sub Header()
NewTextFile.WriteLine("")
End Sub
'--------------------------------------------------------------------------------------------------------------------------
Sub Footer()
NewTextFile.WriteLine("")
End Sub
'--------------------------------------------------------------------------------------------------------------------------
Function GetIsDiffFilterInUseIcon()
GetIsDiffFilterInUseIcon = LIMG_FILTER_OFF & LIMG_DROP_DOWN_ARROW
If dDiffFilter.Count > 0 Then
GetIsDiffFilterInUseIcon = LIMG_FILTER_ON & LIMG_DROP_DOWN_ARROW
End If
End Function
'--------------------------------------------------------------------------------------------------------------------------
Function GetIsDiffFilterChecked( nFilterId )
If dDiffFilter.Exists ( CStr(nFilterId) ) Then
GetIsDiffFilterChecked = "checked"
End If
End Function
'---------------------------------------------------------------------------------------------------------------------------
Function Get_CQ_Issues ( SSsql, OOrsCQ )
On Error Resume Next
Set OOrsCQ = OraDatabase.DbCreateDynaset( SSsql, cint(0))
Get_CQ_Issues = Err.Number
End Function
'--------------------------------------------------------------------------------------------------------------------------
Public Function TextToHTML ( sString )
Dim mString
If (sString = "") OR IsNull(sString) Then Exit Function
mString = Server.HTMLEncode( sString )
mString = Replace(mString, VBNewLine, " ")
TextToHTML = mString
End Function
'--------------------------------------------------------------------------------------------------------------------------
Sub GetFormDetails ( nSourceSBOM, ByRef outobjDetails )
Dim rsQry, query
' Exit if nSourceRtagId is empty
If nSourceSBOM = "" Then Exit Sub
OraDatabase.Parameters.Add "SBOM", nSourceSBOM, ORAPARM_INPUT, ORATYPE_NUMBER
query = _
" SELECT pr.PROJ_NAME ||' > '|| br.BRANCH_NAME ||' > '|| b.BOM_VERSION ||'.'||b.BOM_LIFECYCLE AS LOCATION, "&_
" pr.PROJ_ID, b.BOM_ID, b.IS_READONLY, br.BRANCH_ID"&_
" FROM BRANCHES br,"&_
" BOMS b,"&_
" DM_PROJECTS pr"&_
" WHERE br.PROJ_ID = pr.PROJ_ID"&_
" AND b.BRANCH_ID = br.BRANCH_ID"&_
" AND b.BOM_ID = :SBOM"
Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )
OraDatabase.Parameters.Remove "SBOM"
If rsQry.RecordCount > 0 Then
outobjDetails.Item ("location") = rsQry("location")
outobjDetails.Item ("official") = rsQry("IS_READONLY")
outobjDetails.Item ("proj_id") = rsQry("proj_id")
outobjDetails.Item ("branch_id") = rsQry("branch_id")
outobjDetails.Item ("bom_id") = rsQry("bom_id")
outobjDetails.Item ("is_readonly") = rsQry("is_readonly")
Else
Err.Raise 8, "Sub GetFormDetails in "& SCRIPT_NAME, "Empty record set returned. nSourceSBOM="& nSourceSBOM
End If
If outobjDetails.Item ("location") = "" Then
outobjDetails.Item ("location") = "N"
End If
rsQry.Close
Set rsQry = Nothing
End Sub
'--------------------------------------------------------------------------------------------------------------------------
Sub GetDiffStateIcon( nDiffState, outIcon )
Select Case nDiffState
Case "U"
outIcon = LIMG_UPDATED
Case "UW"
outIcon = LIMG_UPDATED
Case "A"
outIcon = LIMG_ADDED
Case "R"
outIcon = LIMG_REMOVED
Case Else
outIcon = ""
End Select
End Sub
'--------------------------------------------------------------------------------------------------------------------------
Sub MergePackages ()
Dim aFullList, aAddPkgList, aRemovePkgList, dAddPkgList, dRemovePkgList, PvId
Dim OraParameter
Set dAddPkgList = CreateObject("Scripting.Dictionary")
Set dRemovePkgList = CreateObject("Scripting.Dictionary")
'--- Get Add Packages ---
' Get full list of "addpkg" parameter
aFullList = Split ( Replace( Request("addpkg"), " ", "" ), "," )
' Clean empty parameters
For Each PvId In aFullList
If PvId <> "" Then
dAddPkgList.Add CStr( PvId ), Empty
End If
Next
aFullList = NULL
aAddPkgList = dAddPkgList.Keys
'--- Get Remove Packages ---
' Get full list of "removepkg" parameter
aFullList = Split ( Replace( Request("removepkg"), " ", "" ), "," )
' Clean empty parameters
For Each PvId In aFullList
If PvId <> "" Then
dRemovePkgList.Add CStr( PvId ), Empty
End If
Next
aFullList = NULL
aRemovePkgList = dRemovePkgList.Keys
'-- Add package List to release --
OraDatabase.Parameters.Add "PV_ID", NULL, ORAPARM_INPUT, ORATYPE_NUMBER
OraDatabase.Parameters.Add "VIEW_ID", NULL, ORAPARM_BOTH, ORATYPE_NUMBER
OraDatabase.Parameters.Add "SBOM_A", parSBOMA, ORAPARM_INPUT, ORATYPE_NUMBER
OraDatabase.Parameters.Add "SBOM_B", parSBOMB, ORAPARM_INPUT, ORATYPE_NUMBER
OraDatabase.Parameters.Add "PROJB", objRelCollectorB.Item("proj_id"), ORAPARM_INPUT, ORATYPE_NUMBER
OraDatabase.Parameters.Add "COMMENTS", "Merging from "& objRelCollectorA.Item("location") &" to "& objRelCollectorB.Item("location"), ORAPARM_INPUT, ORATYPE_VARCHAR2
OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER
Set OraParameter = OraDatabase.Parameters
On Error Resume Next
' Begin Database entry
objEH.TryORA ( OraSession )
OraSession.BeginTrans
'-- Add Packages --
For Each PvId In aAddPkgList
OraParameter("PV_ID").Value = PvId
Dim rsQry, rsQryNodeCount
Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("MergeManagerA.sql"), cint(0))
'OraDatabase.Parameters.Add "OS_ID", rsQry("os_id"), ORAPARM_INPUT, ORATYPE_NUMBER
'OraDatabase.Parameters.Add "NODE_ID", rsQry("node_id"), ORAPARM_INPUT, ORATYPE_NUMBER
Set rsQryNodeCount = OraDatabase.DbCreateDynaset( "SELECT nn.NODE_NAME, nn.NODE_ID, os.OS_NAME, os.OS_ID, osc.PROD_ID, P.PKG_NAME FROM BOM_CONTENTS bc, NETWORK_NODES nn, OPERATING_SYSTEMS os, PACKAGES p, PACKAGE_VERSIONS pv, OS_CONTENTS osc WHERE bc.NODE_ID = nn.NODE_ID AND os.OS_ID = osc.OS_ID AND osc.PROD_ID = pv.PV_ID AND p.PKG_ID = pv.PKG_ID AND os.NODE_ID = nn.NODE_ID AND bc.BOM_ID ="&parSBOMB, cint(0))
While ((NOT rsQryNodeCount.BOF) AND (NOT rsQryNodeCount.EOF))
If rsQryNodeCount("node_name") = rsQry("node_name_a") Then
If rsQryNodeCount("os_name") = rsQry("os_name_a") Then
If rsQryNodeCount("pkg_name") = rsQry("pkg_name_a") Then
If rsQry("change_type") = "U" OR rsQry("change_type") = "UW" Then
OraSession.BeginTrans
OraDatabase.ExecuteSQL _
"UPDATE OS_CONTENTS SET PROD_ID ="& rsQry("pv_id_a") &", PRODUCT_COMMENTS ='"& rsQry("product_comments_a") &"' WHERE OS_ID ="& rsQryNodeCount("os_id") &" AND PROD_ID ="& rsQry("pv_id_b") &" "
OraSession.CommitTrans
ElseIf rsQry("change_type") = "R" Then
End If
End If
End If
End If
rsQryNodeCount.MoveNext
Wend
'OraDatabase.ExecuteSQL _
'"BEGIN "&_
'" PK_PRODUCT_TEST.ADD_PACKAGE ( :PV_ID, :OS_ID, :NODE_ID, :SBOM_B, :USER_ID ); "&_
'"END;"
rsQry.Close
Set rsQry = nothing
rsQryNodeCount.Close
Set rsQryNodeCount = nothing
'OraDatabase.Parameters.Remove "OS_ID"
'OraDatabase.Parameters.Remove "NODE_ID"
Next
'-- Remove Packages --
For Each PvId In aRemovePkgList
OraParameter("PV_ID").Value = PvId
Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("MergeManagerB.sql"), cint(0))
OraSession.BeginTrans
OraDatabase.ExecuteSQL _
"DELETE FROM OS_CONTENTS WHERE PROD_ID ="& rsQry("pv_id_b") &" AND OS_ID ="& rsQry("os_id_b") &""
OraSession.CommitTrans
Next
rsQry.Close
Set rsQry = nothing
'-- Log Project Merge Action
'OraDatabase.ExecuteSQL _
'"BEGIN LOG_PROJECT_ACTION ( :PROJB, 'merge_release', :USER_ID, :COMMENTS ); END;"
'-- Force package state recalculate
'OraDatabase.ExecuteSQL _
'"BEGIN "&_
'" TOUCH_RELEASE ( :RTAG_B ); "&_
'"END;"
OraSession.CommitTrans
objEH.CatchORA ( OraSession )
Set OraParameter = Nothing
OraDatabase.Parameters.Remove "PV_ID"
OraDatabase.Parameters.Remove "VIEW_ID"
OraDatabase.Parameters.Remove "SBOM_A"
OraDatabase.Parameters.Remove "SBOM_B"
OraDatabase.Parameters.Remove "USER_ID"
OraDatabase.Parameters.Remove "PROJB"
OraDatabase.Parameters.Remove "COMMENTS"
'Response.write " "& sAddPkgList &"-"& dAddPkgList.Count &"-"& UBound( aFullList )
End Sub
'--------------------------------------------------------------------------------------------------------------------------
%>
<%
'------------ RUN BEFORE PAGE RENDER ----------
If Request("btn") = "Exit" Then
Call OpenInWindow ( "reports.asp" )
End If
' Get release details
Call GetFormDetails ( parSBOMA, objRelCollectorA )
Call GetFormDetails ( parSBOMB, objRelCollectorB )
If (Request("btn") = "Merge") Then
If objRelCollectorB.Item("official") <> "Y" Then
Call MergePackages ()
End If
End If
If Request("btn") = "Swap Compare" Then
Call OpenInWindow ( SCRIPT_NAME &"?sbomA="& parSBOMB &"&sbomB="& parSBOMA )
End If
If Request("btn") = "Hide" Then
' Store filter in cookie
Response.Cookies(enum_RELMGR_COOKIE_DOMAIN)(COOKIE_HIDE_DIFF_FILTER) = Request("difilter")
End If
Call GetDiffFilterValues ( dDiffFilter )
'----------------------------------------------
%>
Deployment Manager SBOM Differences
<%
If email Then
Dim myMail, LocalPath
Set myMail=Server.CreateObject("Persits.MailSender")
LocalPath = Server.MapPath("docs\compareReleases_"&objAccessControl.UserName&".html")
myMail.Host = SMTP_HOST
myMail.Subject="Release Comparisons from Release Manager"
myMail.From="releasem@vixtechnology.com"
myMail.AddAddress objAccessControl.UserEmail
' Attach the file
myMail.AddAttachment LocalPath
myMail.Body = "Your requested report..."
myMail.Send
set myMail=nothing
End If
%>
"
Const LIMG_ADDED = "
"
Const LIMG_REMOVED = "
"
Const LIMG_FILTER_ON = "
"
Const LIMG_FILTER_OFF = "
"
Const LIMG_DROP_DOWN_ARROW = "
"
Const LCOLOR_NOT_CHANGED = "#F5F5F5"
Const LCOLOR_CHANGED = "#d2f7c9"
Const LCOLOR_BLANK = "#FFFFFF"
Const LIMG_MERGE = "
"
Const LIMG_MERGE_WARN = "
"
Const LIMG_REMOVE = "
"
Const LIMG_UNDO = "
"
'------------ Variable Init -------------------
Set rsCQ = Server.CreateObject("ADODB.Recordset")
parRtagA = Request("rtagA")
parRtagB = Request("rtagB")
parSBOMA = Request("sbomA")
parSBOMB = Request("sbomB")
Set objRelCollectorA = CreateObject("Scripting.Dictionary")
Set objRelCollectorB = CreateObject("Scripting.Dictionary")
Set dDiffFilter = CreateObject("Scripting.Dictionary")
'----------------------------------------------
If Request("btn") = "Mail Me Report" Then
email = true
End If
%>
<%
'--------------------------------------------------------------------------------------------------------------------------
Sub GetDiffFilterValues ( outDepFilter )
Dim FilterVal, aFilterValues
If Request.Cookies(enum_RELMGR_COOKIE_DOMAIN)(COOKIE_HIDE_DIFF_FILTER) <> "" Then
aFilterValues = Split( Replace( Request.Cookies(enum_RELMGR_COOKIE_DOMAIN)(COOKIE_HIDE_DIFF_FILTER), " ", ""), ",")
For Each FilterVal In aFilterValues
outDepFilter.Item (CStr( FilterVal )) = ""
Next
End If
End Sub
'--------------------------------------------------------------------------------------------------------------------------
Sub GetFixedIssues(pv_id)
Set sqlstrA = OraDatabase.DbCreateDynaset("SELECT iss_db, iss_id, iss_state, notes FROM CQ_ISSUES WHERE pv_id="& pv_id &" AND iss_state = "& enumISSUES_STATE_FIXED, cint(0))
If sqlstrA.RecordCount <> 0 Then
NewTextFile.WriteLine()
NewTextFile.WriteLine("