Subversion Repositories DevTools

<%
'=====================================================
'                release_changed.asp
'=====================================================
%>
<%
' Release Change Mode
Const enumRELEASE_CHANGE_MODE_PKG_ADDED = 1 'Package added to release
Const enumRELEASE_CHANGE_MODE_PKG_REMOVED = 2 'Package removed from release
Const enumRELEASE_CHANGE_MODE_PKG_RELEASED = 3 'Package released


Class ReleaseChanged

private m_pkg_name
private m_pkg_version
private m_pkg_id
private m_proj_id

'-----------------------------------------------------------------------------------------------------------------
' Retrieves package infomation for the specified package version
' This information is required for the make_release_changed script
Public Sub Get_Package_Info (artag_id,apv_id)
   Dim ssql, rsTemp
  
   ' Get package information   
   ssql = _
   " SELECT pv.pkg_id,pk.pkg_name,pv.pkg_version,rt.proj_id"&_
   " FROM package_versions pv, packages pk, release_tags rt"&_
   " WHERE" &_
   "     pv.pv_id = " & apv_id &_
   " AND pv.pkg_id = pk.pkg_id" &_
   " AND rt.rtag_id = " & artag_id

   Set rsTemp = OraDatabase.CreateDynaset( ssql, cint(0))

   If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then
      m_pkg_name = rsTemp("pkg_name")
      m_pkg_version = rsTemp("pkg_version")
      m_pkg_id = rsTemp("pkg_id")
      m_proj_id = rsTemp("proj_id")
   Else
      Err.Raise 8, "Error getting package information.  PV_ID, " & APV_ID & " not found in."
      Call RaiseMsg ( enum_MSG_ERROR, Err.description )
   End If
   rsTemp.Close
   Set rsTemp = Nothing
End Sub

'-----------------------------------------------------------------------------------------------------------------
' Run script job, ReleaseChanged, of script, on_Make_Official.wsf for the specified list of package versions.
' apv_id_list is a comma separated list of pv_id's
Sub Run_ReleaseChanged_List(artag_id,apv_id_list,amode_id)
  Dim pv_id, idArr

  idArr = Split(apv_id_list,",")
  For Each pv_id in idArr
    If IsReleased(artag_id,pv_id) Then
      Call Run_ReleaseChanged(artag_id,pv_id,amode_id,true)
    End If
  Next
End Sub

'-----------------------------------------------------------------------------------------------------------------
' Run script job, ReleaseChanged, of script, on_Make_Official.wsf for the specified package version.
' This job calls the unix script, make_release_changed
Sub Run_ReleaseChanged(artag_id,apv_id,amode_id,aget_info)
  Dim sysShell: Set sysShell = Server.CreateObject("WScript.Shell")

  if aget_info then
    Call Get_Package_Info (artag_id,apv_id)
  end if

  Call sysSHell.Run("cmd.exe /c cscript.exe //B //NoLogo " & rootPath & SCRIPTS_FOLDER &"\on_Make_Official.wsf //job:ReleaseChanged" & " /pkg_name:""" & m_pkg_name & """" & " /pkg_version:""" & m_pkg_version & """" & " /rtag_id:" & artag_id & " /pkg_id:" & m_pkg_id & " /pv_id:" & apv_id & " /proj_id:" & m_proj_id & " /mode_id:" & amode_id, 0, False)
  Set sysShell = Nothing
End Sub

'-----------------------------------------------------------------------------------------------------------------------------
' Get the package are in which the package version resides (ie wip, planned, released)
Function Get_Pkg_Area (artagId, apvId)
   OraDatabase.Parameters.Add "RTAG_ID",        artagId,                 ORAPARM_INPUT, ORATYPE_NUMBER
   OraDatabase.Parameters.Add "PV_ID",          apvId,                   ORAPARM_INPUT, ORATYPE_NUMBER
   OraDatabase.Parameters.Add "PKG_AREA",       -1,                      ORAPARM_OUTPUT,ORATYPE_NUMBER

   OraDatabase.ExecuteSQL _
   "BEGIN "&_
   " :PKG_AREA := PK_ENVIRONMENT.GET_PACKAGE_AREA ( :PV_ID, :RTAG_ID ); "&_
   "END; "
   Get_Pkg_Area = OraDatabase.Parameters("PKG_AREA").Value
   
   OraDatabase.Parameters.Remove "RTAG_ID"
   OraDatabase.Parameters.Remove "PV_ID"
   OraDatabase.Parameters.Remove "PKG_AREA"
End Function

'-----------------------------------------------------------------------------------------------------------------------------
' Returns TRUE if the specified package is released
Function IsReleased (artagId, apvId)
  IsReleased = (CInt(Get_Pkg_Area(artagId, apvId)) = CInt(enum_PKG_AREA_RELEASED))
End Function

End Class
%>