Subversion Repositories DevTools

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

ElseIf (parOpr = "ddpTest") Then

    Call ddpTest

Sub ddpTest

    Dim rv

        Dim objRC: Set objRC = New ReleaseChanged

        Call objRC.Run_ReleaseChanged(62884,1042919,enumRELEASE_CHANGE_MODE_PKG_ADDED, true)

        rv = objRC.last_resultCode

        Set objRC = Nothing

        If rv = 0 Then

            result = 0

        Else

            result = 1

            oJSON.data("emsgSummary") = "Error:("&rv&")"

        End If

End Sub

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

' Function:    ddpTest

' Description:

' C:\WINDOWS\system32\cmd.exe" /c C:\clearcase\dpurdie_manager_suite\Release_Manager\scripts\bin\plink.exe -ssh -batch releasem@auperaarc01.vix.local -pw releasem "sudo ~/sbin/make_test_access;"

Sub ddpTest1

   Dim objWSH, rv, wCmdLine

   Dim plinkPath, plinkCmd, archiveServer, uname, upasswd, sudoCmd

      Dim sqry: sqry = "SELECT * FROM BUILD_SERVICE_CONFIG WHERE SERVICE='ARCHIVE SERVER'"

      Dim rsTemp

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

      archiveServer = rsTemp("config")

      rsTemp.Close()

      Set rsTemp = Nothing

      Dim pArchive_Path : pArchive_Path = "dpkg_archive"

      Dim apkg_name     : apkg_name     = "pkg_name"

      Dim apkg_version  : apkg_version  = "pkg_version"

      Dim artag_id      : artag_id      = "rtag_id"

      Dim apkg_id       : apkg_id       = "pkg_id"

      Dim apv_id        : apv_id        = "pv_id"

      Dim aproj_id      : aproj_id      = "proj_id"

      Dim amode_id      : amode_id      = "mode_id"

      sudoCmd = "~/sbin/make_release_changed" &_

             " archive=" & pArchive_Path &_

             " pkg_name='\""" & apkg_name & "\""'" &_

             " pkg_version='\"""& apkg_version &"\""'" &_

             " rtag_id="& artag_id &_

             " pkg_id=" & apkg_id &_

             " pv_id="& apv_id &_

             " proj_id="& aproj_id &_

             " mode_id="& amode_id

       uname = "releasem"

       upasswd = "releasem"

       plinkPath = Request.ServerVariables("APPL_PHYSICAL_PATH") & "Release_Manager\scripts\bin\plink.exe"

       plinkCmd =  "-ssh -batch " & uname & "@" & archiveServer & " -pw " & upasswd & " ""sudo " & sudoCmd & ";"""

       wCmdLine =  plinkPath & " " & plinkCmd

        Set objWSH = Server.CreateObject("WScript.Shell")

        rv = objWSH.Run (wCmdLine, 0, TRUE)

        Set objWSH = Nothing

        If rv = 105 Then

            result = 0

        Else

            result = 1

            oJSON.data("emsgSummary") = "Error:("&rv&")" & wCmdLine

        End If

End Sub