Subversion Repositories DevTools

ElseIf (parOpr = "lxrAccessTest") Then

    Call lxrAccessTest

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

' Function:    lxrAccessTest

' Description: Test dpkg_archive access - can we map it

'

Sub lxrAccessTest

    Dim oXMLHTTP

    Dim testUrl

    Dim testAccess

    testAccess = False

    testUrl = LXR_URL

    Set oXMLHTTP = CreateObject("MSXML2.ServerXMLHTTP.3.0")

    ' Use error handling in case dpkg_archive is not available

    ' Use HEAD to test existence

    Err.Clear

    On Error Resume Next

    oXMLHTTP.Open "HEAD", testUrl, False

    oXMLHTTP.Send

    ' Do not combine the next two If statments - it will not work

    If Err.Number = 0  Then

    If oXMLHTTP.Status = 200 Then 

        testAccess = True

    End If

    End If

    On Error Goto 0

    If testAccess Then

        result = 0

    Else

        result = 1

        oJSON.data("emsgSummary") = "LXR Server not responding"

    End If

End Sub