Subversion Repositories DevTools

Rev

Rev 4705 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 4705 Rev 4710
Line 1795... Line 1795...
1795
    rsTemp.Close()
1795
    rsTemp.Close()
1796
    Set rsTemp = Nothing
1796
    Set rsTemp = Nothing
1797
  End If
1797
  End If
1798
End Function
1798
End Function
1799
 
1799
 
-
 
1800
'----------------------------------------------
-
 
1801
' Test that specified package/version exists in dpkg_archive
-
 
1802
' Can also test prsense of the archive
-
 
1803
'   Use http interface as it does not require authetication
-
 
1804
Function testArchiveAccessPkg(pkgName, pkgVersion)
-
 
1805
  Dim oXMLHTTP
-
 
1806
  Dim testUrl
-
 
1807
 
-
 
1808
  testArchiveAccessPkg = False
-
 
1809
  testUrl = dpkg_archiveURL
-
 
1810
  If pkgName <> "" Then
-
 
1811
      testUrl = testUrl & pkgName & "/" & pkgVersion
-
 
1812
  End If
-
 
1813
  Set oXMLHTTP = CreateObject("MSXML2.ServerXMLHTTP.3.0")
-
 
1814
 
-
 
1815
  ' Use HEAD to test existence
-
 
1816
  oXMLHTTP.Open "HEAD", testUrl, False
-
 
1817
  oXMLHTTP.Send
-
 
1818
 
-
 
1819
  If oXMLHTTP.Status = 200 Then
-
 
1820
    testArchiveAccessPkg = True
-
 
1821
  End If
-
 
1822
End Function
1800
%>
1823
%>