Subversion Repositories DevTools

<%@LANGUAGE="VBSCRIPT"%>

<%

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

'       Release Manager Admin Tests

'       Designed to be called via AJAX and to return

'       JSON formatted data to dynamic page

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

%>

<%

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/qstr.asp"-->

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

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

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

<SCRIPT LANGUAGE="VBScript" RUNAT=SERVER SRC="common/base64encode.vbs"></SCRIPT> 

<SCRIPT LANGUAGE="VBScript" RUNAT=SERVER SRC="class/classaspJSON.vbs"></SCRIPT> 

<%

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

Dim parOpr, newitem

Dim result

' Basic Parameters

parOpr = QStrPar("Opr")

result = -1

' Init the output JSON class

'   Operations can add data

'   Default data will be added at the end

Dim oJSON

Set oJSON = New aspJSON

'

'   Determine the operation to be performed

'   Invoke target routine

'   Expect:

'       result                    - test result

'       oJSON.data("emsgSummary") - Error detail

'

'

If (parOpr = "zipTest") Then

    Call zipFile

ElseIf (parOpr = "eventTest") Then

    Call sendEvent

ElseIf (parOpr = "emailTest") Then

    Call sendEmail

ElseIf (parOpr = "emailWshTest") Then

    Call sendWshEmail

ElseIf (parOpr = "remExecTest") Then

    Call remExec

ElseIf (parOpr = "pkgAccessTest") Then

    Call pkgAccess

ElseIf (parOpr = "ddpTest") Then

    Call ddpTest

Else

    oJSON.data("emsgSummary") = "Unknown operation requested:" & parOpr

End If

'

'   Create JSON data for the user

'   Important fields

'       result

'

'   Debug fields

'       Request (Array)

'

'Write single value

oJSON.data("result") = result

' DEBUG: An array of the user provided requests

Set oJSON.data("Request") = oJSON.Collection()

Set newitem = oJSON.AddToCollection(oJSON.data("Request"))

Dim variableName

for each variableName in Request.QueryString

    newitem.add variableName, Request.QueryString(variableName)

next

'Return the object

Response.Write oJSON.JSONoutput()

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

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

' Function:    zipFile

' Description: Test the File Zipping process

Sub zipFile

    '

    ' Create a test file in a known directory

    '

    Dim objZIPObject, ZipFile

    Dim outFile, objFSO, LocalDir, objFile

    Set objFSO=CreateObject("Scripting.FileSystemObject")

    LocalDir = Request.ServerVariables("APPL_PHYSICAL_PATH") & "release_manager\temp\"

    If NOT objFSO.FolderExists( LocalDir ) Then

        result = 1

        oJSON.data("emsgSummary") = "Folder not found:" & LocalDir

    Else

        ' Create a known file to zip up

        '

        outFile = LocalDir & "zipTestFile.txt"

        Set objFile = objFSO.CreateTextFile(outFile,True)

        objFile.Write "test string" & vbCrLf

        objFile.Close

        ' Zip up a test file

        '

        ZipFile = LocalDir & "zipTest.zip"

        If objFSO.FileExists(ZipFile) Then

       	    objFSO.DeleteFile ZipFile, TRUE

        End If

        On Error Resume Next

    	Set objZIPObject = Server.CreateObject("XStandard.Zip")

        If Err.Number <> 0 then

            result = 1

            oJSON.data("emsgSummary") = "Create XStandard.Zip:" & Err.Description

        Else

            objZIPObject.Pack outFile, ZipFile

            If objZIPObject.ErrorCode <> 0 then

                    result = 1

                    oJSON.data("emsgSummary") = "Zip Error XStandard:" & objZIPObject.ErrorCode & ":" & objZIPObject.ErrorDescription

            Else

                ' All done - must have passed

                result = 0

            End If

        End If

        '

        ' Clean up

        If objFSO.FileExists(outFile) Then

       	    objFSO.DeleteFile outFile, TRUE

        End If

        If objFSO.FileExists(ZipFile) Then

       	    objFSO.DeleteFile ZipFile, TRUE

        End If

        objZIPObject = Nothing

    End If

    set objFSO = Nothing

End Sub

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

' Function:    sendEvent

' Description: Send an Event to the Windows Log

Sub sendEvent

   Dim objWSH, rv

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

    rv = objWSH.Run ("cmd.exe /c cscript.exe //B //NoLogo " & rootPath & SCRIPTS_FOLDER & "\Admin_Test.wsf //job:onRaiseEvent", 0, TRUE)

    Set objWSH = Nothing

    If rv = 0 Then

        result = 0

    Else

        result = 1

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

    End If

End Sub

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

' Function:     sendEmail

' Description:  Send an email

Sub sendEmail

   Dim Mode, Attachment, Message

   Attachment = Null

   Message = "This is a Test Email generated by the Release Manager Test."

   Mode = QStrPar("Mode")

   If Mode = "Attach" Then

        Attachment = Server.MapPath("images\img_reports_admin.jpg")

        Message = Message & " This message should have an attachment"

   End If

    Call Send_Email ( "Release Manager Notification", _

                       adminEmail, _

                       objAccessControl.UserEmail, _

                       "Test Email", _

                       Message, _

                       Attachment )

    result = Err.Number

    oJSON.data("emsgSummary") = Err.Description

    'oJSON.data("Info1") = Mode

    'oJSON.data("Info2") = Attachment

End Sub

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

' Function:     sendWshEmail

' Description:  Send an email from a Wsh Script

Sub sendWshEmail

    Dim objWSH, rv

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

    rv = objWSH.Run ("cmd.exe /c cscript.exe //B //NoLogo " & rootPath & SCRIPTS_FOLDER & "\Admin_Test.wsf //job:onTestMail", 0, TRUE)

    Set objWSH = Nothing

    If rv = 0 Then

        result = 0

    Else

        result = 1

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

    End If

End Sub

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

' Function:    remExec

' Description:  Test Release Manager Remote cmd Execution

Sub remExec

    Dim objWSH, rv

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

    rv = objWSH.Run ("cmd.exe /c cscript.exe //B //NoLogo " & rootPath & SCRIPTS_FOLDER & "\Admin_Test.wsf //job:onTestArchiveAccess", 0, TRUE)

    Set objWSH = Nothing

    If rv = 0 Then

        result = 0

    Else

        result = 1

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

    End If

End Sub

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

' Function:    pkgAccess

' Description: Test dpkg_archive access - can we map it

'

Sub pkgAccess

    Dim objWSH, rv

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

    rv = objWSH.Run ("cmd.exe /c cscript.exe //B //NoLogo " & rootPath & SCRIPTS_FOLDER & "\Admin_Test.wsf //job:onTestMapArchive", 0, TRUE)

    Set objWSH = Nothing

    If rv = 0 Then

        result = 0

    Else

        result = 1

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

    End If

End Sub

%>