Subversion Repositories DevTools

Rev

Rev 5957 | Rev 6645 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5957 Rev 6070
Line 246... Line 246...
246 
 
 246 
 
247 
    Dim oXMLHTTP
 247 
    Dim oXMLHTTP
248 
    Dim testUrl
 248 
    Dim testUrl
249 
    Dim testAccess
 249 
    Dim testAccess
250 
    testAccess = False
 250 
    testAccess = False
251 
    testUrl = LXR_URL
 251 
    testUrl = LXR_URL & ".test"
252 
    Set oXMLHTTP = CreateObject("MSXML2.ServerXMLHTTP.3.0")
 252 
    Set oXMLHTTP = CreateObject("MSXML2.ServerXMLHTTP.3.0")
253 
 
 253 
 
254 
    ' Use error handling in case dpkg_archive is not available
 254 
    ' Use error handling in case dpkg_archive is not available
255 
    ' Use HEAD to test existence
 255 
    ' Use HEAD to test existence
256 
    Err.Clear
 256 
    Err.Clear
Line 258... Line 258...
258 
    oXMLHTTP.Open "HEAD", testUrl, False
 258 
    oXMLHTTP.Open "HEAD", testUrl, False
259 
    oXMLHTTP.Send
 259 
    oXMLHTTP.Send
260 
 
 260 
 
261 
    ' Do not combine the next two If statments - it will not work
 261 
    ' Do not combine the next two If statments - it will not work
262 
    If Err.Number = 0  Then
 262 
    If Err.Number = 0  Then
263 
    If oXMLHTTP.Status = 200 Then
263 
        If oXMLHTTP.Status = 200 Then
264 
        testAccess = True
 264 
            testAccess = True
265 
    End If
 265 
        End If
266 
    End If
 266 
    End If
267 
    On Error Goto 0
 267 
    On Error Goto 0
268 
 
 268 
 
269 
    If testAccess Then
 269 
    If testAccess Then
270 
        result = 0
 270 
        result = 0