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

%>