Subversion Repositories DevTools

ElseIf (parOpr = "abtLogAccess") Then

    Call abtLogAccess

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

' Function:    abtLogAccess

' Description: Test dpkg_archive access - can we map it

'

Sub abtLogAccess

    Dim oXMLHTTP

    Dim testUrl

    Dim testAccess

    testAccess = False

    testUrl = HTTP_PKG_ARCHIVE & "/cgi-bin/getBuildLogs.pl"

    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") = "ABTLOG Server not responding"

    End If

End Sub