Subversion Repositories DevTools

<%@LANGUAGE="VBSCRIPT"%>

<%

'=====================================================

'              UPDATE dependencies

'               --- PROCESS FORM ---

'=====================================================

%>

<%

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"-->

<%

' Set rfile parameter. This is a return page after Login

Call objPMod.StoreParameter ( "rfile", "dependencies.asp" )

'------------ ACCESS CONTROL ------------------

%>

<!--#include file="_access_control_login.asp"-->

<!--#include file="_access_control_general.asp"-->

<!--#include file="_access_control_project.asp"-->

<%

'------------ Variable Definition -------------

Dim depArray()

Dim array_is_empty

'------------ Constants Declaration -----------

Const enumlocal_DONOT_DELETE_OLD_DEPENDENCIES = 0

Const enumlocal_DELETE_OLD_DEPENDENCIES = 1

Const COL_pkg_name = 0

Const COL_pkg_version = 1

Const COL_build_type = 2

'------------ Variable Init -------------------

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

%>

<%

Sub Populate_depArray_from_Import ( SSdep_import, ARRdep, BBarray_is_empty )

   Dim recCnt, pkg_name, pkg_version, build_type, re, Matches, Match

   If (SSdep_import = "") Then Exit Sub      ' exit if no dependencies are submited

   ' Decode Server.URLEncode if present

   SSdep_import = URLDecode( SSdep_import )

   SSdep_import = Replace(SSdep_import, " ", "")            ' remove spaces

   SSdep_import = Replace(SSdep_import, VBTab, "")          ' remove horizontal tabs

   SSdep_import = Replace(SSdep_import, VBVerticalTab, "")  ' remove vertical tabs

   SSdep_import = Replace(SSdep_import, """", "'")          ' replace " with '

   Set re = New RegExp

   re.IgnoreCase = True

   re.Global = True

   'The following regular expression captures the package name and version on each matching line.

   'The following is an example of the format of the input string, SSdep_import.

   '

   'BuildPkgArchive ( 'linux_kernel_viper'  , '2.6.24.6.5000.cots' );

   '

   '#   Packages for creating the debian package

   '#LinkPkgArchive  ( 'debian_dpkg'         , '1.13.25000.cots' );

   'LinkPkgArchive  ( 'debian_packager'     , '1.1.0000.cr' );

   'LinkPkgArchive  ( 'Jasper Patch (JBoss/Tomcat Hotfix)' , '1.6.0,REV=2006.11.29.02.51' );

   'LinkPkgArchive  ( 'Java 2 SDK, Enterprise Edition (J2EE)' , '1.6.0,REV=2006.11.29.02.51' );

   '

   ' Note. Jants and Ant dependencies are formatted to look like:

   '    JantStyle('PackageName','PackageVersion');

   '    AntStyle('PackageName','PackageVersion');

   re.Pattern = "(^|\n)\s*([_A-Za-z0-9]+)\s*\(\s*\'([^\']*)\'\s*\,\s*\'([^\']*)\'\s*\)"

   Set Matches = re.Execute(SSdep_import)

   recCnt=0

   For Each Match in Matches

     build_type = Match.SubMatches(1)

     pkg_name = Match.SubMatches(2)

     pkg_version = Match.SubMatches(3)

      ' Proceed only if:

      '    pkg name is not empty,

      '    pkg version is not empty,

      If ( pkg_name <> "" )  AND  ( pkg_version <> "" ) Then

         ReDim Preserve ARRdep( 2, recCnt )

         ARRdep( COL_pkg_name, recCnt ) = pkg_name

         ARRdep( COL_pkg_version, recCnt ) = pkg_version

         ' Define build type

         If LCase(build_type) = LCase("BuildPkgArchive") Then

            ARRdep( COL_build_type, recCnt ) = enum_BUILD_PKG_ARCHIVE

         ElseIf LCase(build_type) = LCase("LinkPkgArchive") Then

            ARRdep( COL_build_type, recCnt ) = enum_LINK_PKG_ARCHIVE

         Else

            ARRdep( COL_build_type, recCnt ) = enum_BUILD_PKG_ARCHIVE   'neither build_package or link_package is found, hence set to...

         End If

         recCnt = recCnt + 1

         BBarray_is_empty = FALSE

     End If

   Next

End Sub

' This function is called when update_type is "add_custom". This is only the case when adding dependencies

' The list given via the actual parameter pkg_list is in fact a list of pv_id's supplied from the form_search_result_pkgs.asp

' and form_add_pkg_versions.asp files. In the past, it only ever used to be a list of package IDs, but this has now been

' changed so that users can only add package versions from the relevant release as dependencies to a packge also in that

' release, and to do this, the list has to hold pv_id's instead of pkg_id's, to cater for situations where a release

' contains 2 instances of a package, each one having different extensions (eg .mas, .sea).

Sub Populate_depArray_from_ADD_Custom ( NNpv_id_list, ARRdep, BBarray_is_empty )

   Dim depList, lastItem, i, recCnt, pkg_name, pkg_version, V_EXT

   Dim rsTemp, Query_String, PkgBaseView

   PkgBaseView = Get_Pkg_Base_View_ID ( Request("pv_id"), Request("rtag_id") )

   Query_String = _

   " SELECT pkgs.pkg_id, pkgs.pkg_name, pv.pv_id, pv.pkg_version"&_

   "  FROM packages pkgs, package_versions pv"&_

   " WHERE pv.pv_id IN ("& NNpv_id_list &")"&_

   "   AND pv.pkg_id = pkgs.pkg_id"

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

   recCnt = 0

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

      ReDim Preserve ARRdep( 2, recCnt )

      ARRdep( COL_pkg_name, recCnt ) = rsTemp("pkg_name")

      ARRdep( COL_pkg_version, recCnt ) = rsTemp("pkg_version")

      '// Dependencies comming from custom dependency add are set to LinkPkgArchive by default, unless it is a product

      If PkgBaseView = enumBASE_VIEW_PRODUCTS Then

         ARRdep( COL_build_type, recCnt ) = enum_BUILD_PKG_ARCHIVE

      Else

         ARRdep( COL_build_type, recCnt ) = enum_LINK_PKG_ARCHIVE

      End If

      recCnt = recCnt + 1

      BBarray_is_empty = FALSE

      rsTemp.MoveNext

   WEnd

   rsTemp.Close

   Set rsTemp = nothing

End Sub

// The form passed to us may only have information for packages that need to change

// The enumlocal_DONOT_DELETE_OLD_DEPENDENCIES does not appear to work

//  Must provide a full set of dependencies with either a new version or the existing version

//

Sub Populate_depArray_from_EDIT_Custom ( NNpv_id, ARRdep, BBarray_is_empty, sDependBlock )

   Dim depList, lastItem, i, recCnt, pkg_name, pkg_version, V_EXT

   Dim rsTemp, rsCurrent, Query_String

   Query_String = _

   " SELECT dpkg.pkg_name, dpv.pkg_version, dpv.pv_id"&_

   "  FROM package_dependencies dep,"&_

   "       package_versions dpv,"&_

   "       packages dpkg"&_

   " WHERE dep.dpv_id = dpv.pv_id"&_

   "   AND dpv.pkg_id = dpkg.pkg_id"&_

   "   AND dep.pv_id = "& NNpv_id

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

   recCnt = 0

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

      Dim pvid, pkgver, newver

      pvid = rsTemp("pv_id")

      pkgver = Request( "pkgn" & pvid )

      If pkgver <> "" Then

        newver = pkgver

      else

        newver = rsTemp("pkg_version")

      End if

      ReDim Preserve ARRdep( 2, recCnt )

      ARRdep( COL_pkg_name, recCnt )    = rsTemp("pkg_name")

      ARRdep( COL_pkg_version, recCnt ) = newver

      ARRdep( COL_build_type, recCnt )  = Request( "bt"& pvid )

      If not rsTemp("pkg_version") =  newver Then

         sDependBlock = rsTemp("pkg_name") & " " & newver

      End If

      recCnt = recCnt + 1

      BBarray_is_empty = FALSE

      rsTemp.MoveNext

   WEnd

   rsTemp.Close

   Set rsTemp = nothing

End Sub

Sub Update_Package_Dependencies ( ARRdep, NNpv_id, NNuser_id, NNdelete_old_dependency, sAction_type, sDependBlock )

   Dim i, OraParameter, sComments

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

   OraDatabase.Parameters.Add "PKG_NAME",         "",                      ORAPARM_INPUT, ORATYPE_VARCHAR2

   OraDatabase.Parameters.Add "PKG_VERSION",      "",                      ORAPARM_INPUT, ORATYPE_VARCHAR2

   OraDatabase.Parameters.Add "BUILD_TYPE",       "",                      ORAPARM_INPUT, ORATYPE_VARCHAR2

   OraDatabase.Parameters.Add "USER_ID",          NNuser_id,               ORAPARM_INPUT, ORATYPE_NUMBER

   OraDatabase.Parameters.Add "DELETE_PV_ID",     NNdelete_old_dependency, ORAPARM_INPUT, ORATYPE_NUMBER

   OraDatabase.Parameters.Add "ACTION_TYPE_NAME", sAction_type,            ORAPARM_INPUT, ORATYPE_VARCHAR2

   Set OraParameter = OraDatabase.Parameters

   For i = 0 To UBound( ARRdep, 2 )

      If not i = 0 Then

         sComments = sComments & ", "

      End If

      sComments = sComments & depArray(COL_pkg_name, i) & " " & ARRdep( COL_pkg_version, i )

      OraParameter("PKG_NAME").Value    = ARRdep( COL_pkg_name, i )

      OraParameter("PKG_VERSION").Value = ARRdep( COL_pkg_version, i )

      OraParameter("BUILD_TYPE").Value  = ARRdep( COL_build_type, i )

      OraDatabase.ExecuteSQL "BEGIN  Update_Package_Dependency ( :PV_ID, :PKG_NAME, :PKG_VERSION, :BUILD_TYPE, :USER_ID, :DELETE_PV_ID );  END;"

   Next

   Set OraParameter = Nothing

   If sAction_type = "depend_add" Then

      OraDatabase.Parameters.Add "COMMENTS",    sComments, ORAPARM_INPUT, ORATYPE_VARCHAR2

   Else

      If Len(sDependBlock) <= 4000 Then

         OraDatabase.Parameters.Add "COMMENTS",    sDependBlock, ORAPARM_INPUT, ORATYPE_VARCHAR2

      Else

         OraDatabase.Parameters.Add "COMMENTS",    "Description too long to be inserted!", ORAPARM_INPUT, ORATYPE_VARCHAR2

      End If

   End If

   OraDatabase.ExecuteSQL _

   "BEGIN  Log_Action ( :PV_ID, :ACTION_TYPE_NAME, :USER_ID, :COMMENTS );  END;"

   OraDatabase.Parameters.Remove "PV_ID"

   OraDatabase.Parameters.Remove "PKG_NAME"

   OraDatabase.Parameters.Remove "PKG_VERSION"

   OraDatabase.Parameters.Remove "BUILD_TYPE"

   OraDatabase.Parameters.Remove "USER_ID"

   OraDatabase.Parameters.Remove "DELETE_PV_ID"

   OraDatabase.Parameters.Remove "ACTION_TYPE_NAME"

   OraDatabase.Parameters.Remove "COMMENTS"

End Sub

Sub Remove_Old_Dependencies ( SSpv_id )

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

   OraDatabase.ExecuteSQL "DELETE FROM package_dependencies WHERE pv_id = :PV_ID"

   OraDatabase.Parameters.Remove "PV_ID"

End Sub

Sub Update_Mod_Details ( SSpv_id )

   OraDatabase.Parameters.Add "PV_ID",   SSpv_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 _

      " UPDATE package_versions "&_

       " SET modified_stamp = "& ORA_SYSDATETIME &", modifier_id = :USER_ID"&_

       " WHERE pv_id = :PV_ID"

   If Request("rtag_id") <> "" Then

      ' Package in release view

      OraDatabase.ExecuteSQL _

        "BEGIN "&_

      " Touch_Release ( :RTAG_ID ); "&_

      "END; "

   Else

      ' Package view

      OraDatabase.ExecuteSQL _

        "BEGIN "&_

      " PK_RELEASE.RUN_POST_ACTIONS_BULK ( :PV_ID ); "&_

      "END; "

   End If

   OraDatabase.Parameters.Remove "PV_ID"

   OraDatabase.Parameters.Remove "RTAG_ID"

   OraDatabase.Parameters.Remove "USER_ID"

End Sub

%>

<%

'-----------------------  MAIN LINE  ---------------------------

'Response.Write "<pre>------------<br>"

'Dim Item

'For Each Item In Request.Form

'    Response.Write "User Data: " &Item & ": " & Request.Form(Item) & "<br>"

'Next

'Response.Write "------------<br>"

Dim sDependBlock

'--- Process submition ---

If (QStrPar("pv_id") <> "")  Then

   ' All mandatory parameters FOUND

   Err.Clear

   On Error Resume Next

   OraSession.BeginTrans

   ' The called subroutines beneath here do not use "on error resume next", but this calling code does, so if any error

   ' occurs in the called functions, control will resume within this code somewhere. On the assumption that an error might

   ' be the result of some problem in the database, further database commands are not performed, achieved by making them

   ' conditional upon Err.Number being zero. Ultimately, this should result in a rollback

   array_is_empty = TRUE

   If Request("update_type") = "add_custom" Then

      '---- ADD CUSTOM dependency ----

      ' NOTE - this happens when user clicks the Add action button on the dependencies/runtime tabs. Although the underlying search operation

      ' (see form_search_pkgs.asp and form_search_result_pkgs.asp) returns a list called "pkg_list", it actually contains a pv_id list in these

      ' special cases.

      Call Populate_depArray_from_ADD_Custom ( Request("pkg_list"), depArray, array_is_empty )

      If ((NOT array_is_empty) AND (Err.number = 0)) Then

         Call Update_Package_Dependencies ( depArray, Request("pv_id"), objAccessControl.UserId, enumlocal_DELETE_OLD_DEPENDENCIES, "depend_add", null )

      End If

   ElseIf Request("update_type") = "edit_custom" Then

      '---- EDIT CUSTOM dependency ----

      Call Populate_depArray_from_EDIT_Custom ( Request("pv_id"), depArray, array_is_empty, sDependBlock )

      Call Remove_Old_Dependencies ( Request("pv_id") )

      If ((NOT array_is_empty) AND (Err.number = 0)) Then

         Call Update_Package_Dependencies ( depArray, Request("pv_id"), objAccessControl.UserId, enumlocal_DONOT_DELETE_OLD_DEPENDENCIES, "depend_update", sDependBlock )

      End If

   Else

      '---- JATS, ANT dependency import ----

      Call Populate_depArray_from_Import ( Request("FRdeps"), depArray, array_is_empty )

      Call Remove_Old_Dependencies ( Request("pv_id") )

      If ((NOT array_is_empty) AND (Err.number = 0)) Then

         Call Update_Package_Dependencies ( depArray, Request("pv_id"), objAccessControl.UserId, enumlocal_DONOT_DELETE_OLD_DEPENDENCIES, "depend_import", Request("FRdeps") )

      End If

   End If

   If Err.number = 0 Then

      Call Update_Mod_Details ( Request("pv_id") )

   End If

   If Err.number <> 0 Then

      OraSession.RollBack

      Call RaiseMsg ( enum_MSG_ERROR, Err.description &"<br>"& Err.Source )

   Else

      OraSession.CommitTrans

   End If

   Response.Redirect("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_All

End If

%>

<!-- DESTRUCTOR ------->

<!--#include file="common/destructor.asp"-->