Subversion Repositories DevTools

<%@LANGUAGE="VBSCRIPT"%>
<%
'=====================================================
'   _make_rejected.asp
'   Reject a package from pending back to a WIP
'       Used to Reject a failed build
'       Used to Reject before being built    
'=====================================================
%>
<%
Option explicit
' Good idea to set when using redirect
Response.Expires = 0   ' always load the page, dont store
%>

<!--#include file="common/conf.asp"-->
<!--#include file="common/globals.asp"-->
<!--#include file="common/formating.asp"-->
<!--#include file="common/qstr.asp"-->
<!--#include file="common/common_subs.asp"-->
<!--#include file="common/common_dbedit.asp"-->
<%
'------------ ACCESS CONTROL ------------------
%>
<!--#include file="_access_control_login.asp"-->
<!--#include file="_access_control_general.asp"-->
<!--#include file="_access_control_project.asp"-->
<%
'------------ Variable Definition -------------
Dim isDLocked
'------------ Constants Declaration -----------
'------------ Variable Init -------------------
'----------------------------------------------
%>
<%
Sub MakeReject ()

   objEH.TryORA ( OraSession )
   On Error Resume Next

   OraDatabase.Parameters.Add "PV_ID",   Request("pv_id"),        ORAPARM_INPUT, ORATYPE_NUMBER
   OraDatabase.Parameters.Add "RTAG_ID", Request("rtag_id"),      ORAPARM_INPUT, ORATYPE_NUMBER
   OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER

   OraDatabase.ExecuteSQL _
   "BEGIN "&_
   " PK_ENVIRONMENT.MAKE_REJECT ( :PV_ID, :RTAG_ID, :USER_ID ); "&_
   "END; "

   objEH.CatchORA ( OraSession )

   OraDatabase.Parameters.Remove "PV_ID"
   OraDatabase.Parameters.Remove "RTAG_ID"
   OraDatabase.Parameters.Remove "USER_ID"

End Sub

Sub RejectAutobuild()

   OraDatabase.Parameters.Add "PV_ID",            Request("pv_id"),        ORAPARM_INPUT, ORATYPE_NUMBER
   OraDatabase.Parameters.Add "RTAG_ID",          Request("rtag_id"),      ORAPARM_INPUT, ORATYPE_NUMBER
   OraDatabase.Parameters.Add "USER_ID",          objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER
   OraDatabase.Parameters.Add "ACTION_TYPE_NAME", "reject_package",        ORAPARM_INPUT, ORATYPE_VARCHAR2
   OraDatabase.Parameters.Add "DESCRIPTION",      "Rejected manually following autobuild failure", ORAPARM_INPUT, ORATYPE_VARCHAR2

   On Error Resume Next
   objEH.TryORA( OraSession )

   ' Move package back to work-in-progress table (changes dlocked to "R" in doing so)
   OraDatabase.ExecuteSQL ("BEGIN PK_ENVIRONMENT.MAKE_REJECT ( :PV_ID, :RTAG_ID, :USER_ID ); END; ")

   If Err.Number = 0 Then

      ' Remove the entry from the do not ripple table but only if it is a direct exlusion entry caused by some build problem.
      ' This way, if user has deliberately excluded the package from the build (root_pv_id is null, root_cause is null
      ' and root_file is null) then it will remain exlcuded, as it will if there is some underlying package that has caused
      ' the exclusion.
      Dim count : count = 0
      count = OraDatabase.ExecuteSQL ("DELETE FROM do_not_ripple " &_
                                      "WHERE pv_id   = :PV_ID " &_
                                      "  AND rtag_id = :RTAG_ID " &_
                                      "  AND nvl(root_pv_id,-1) < 0" &_
                                      "  AND ((root_cause IS NOT NULL) OR (root_file IS NOT NULL))" )

        If Err.Number = 0 Then
            OraDatabase.ExecuteSQL ("BEGIN Log_Action ( :PV_ID, :ACTION_TYPE_NAME, :USER_ID, :DESCRIPTION ); END;")

            '
            ' If we have removed a package from the do_not_ripple list, then we need to increment the release sequence
            ' number so that the build system will come and re-plan the build.
            '
            If count > 0 Then
                OraDatabase.ExecuteSQL ("BEGIN PK_RELEASE.SET_RELEASE_MODIFIED(:RTAG_ID); END; ")
            End If
        End If
   End If

   objEH.CatchORA( OraSession )

   OraDatabase.Parameters.Remove "PV_ID"
   OraDatabase.Parameters.Remove "RTAG_ID"
   OraDatabase.Parameters.Remove "USER_ID"
   OraDatabase.Parameters.Remove "ACTION_TYPE_NAME"
   OraDatabase.Parameters.Remove "DESCRIPTION"

End Sub

%>
<%
'-----------------------  MAIN LINE  ---------------------------

'--- Process submit ---
If (Request("rtag_id") <> "") AND (Request("pv_id") <> "")  Then


   Call Get_Pkg_Short_Info( Request("pv_id"), NULL, NULL, NULL, NULL, NULL, isDLocked )

   If isDLocked = "A" Then
      'Do the reject operation - this execution path rejects an Approved package version back to Pending

      'We can only do this operation if the build daemon is not going to be doing anything with the entry in
      'the "package versions" table. We can only guarantee this 
      '     if the Daemon has failed to build the package version and placed an entry for it in the "do not ripple" table
      '     OR the release has no active build daemons
      If activeDaemonCount(parRtag_id) = 0 OR isInDoNotRippleTable( Request("rtag_id"), Request("pv_id") ) = TRUE Then
         Call RejectAutobuild()
      Else
         Call RaiseMsg(enum_MSG_ERROR, "Cannot reject unless item is certain not to be examined concurrently by a build daemon during the reject operation. Wait for the build to fail.")
      End If
   Else
      'Do the reject operation - this execution path rejects a Pending package version back to Work In Progress
      Call MakeReject()
   End If

   Call Destroy_All_Objects
   Response.Redirect ( RequestDefault("rfile", "dependencies.asp") &"?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id") )

Else
   Response.write "Some mandatory parameters are missing!" & "<br>" 'TODO
   Response.write QSTR_FullQuery
End If
%>
<!-- DESTRUCTOR ------->
<!--#include file="common/destructor.asp"-->