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 
%>