suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

allow environment variable-based spec of the url to download planet packages from

Browse Source 
svn: r16521
This commit is contained in:
Robby Findler 2009-11-03 17:36:45 +00:00
parent b49896f2f7
commit 82b9a9f4dd
2 changed files with 13 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
collects/planet/config.ss
View File

@ -4,11 +4,12 @@
(PLANET-SERVER-NAME "planet.plt-scheme.org")
(PLANET-SERVER-PORT 270)
(PLANET-CODE-VERSION "300")
(PLANET-BASE-DIR (if (getenv "PLTPLANETDIR")
(string->path (getenv "PLTPLANETDIR"))
(PLANET-BASE-DIR (let ([plt-planet-dir-env-var (getenv "PLTPLANETDIR")])
(if plt-planet-dir-env-var
(string->path plt-planet-dir-env-var)
(build-path (find-system-path 'addon-dir)
"planet"
(PLANET-CODE-VERSION))))
(PLANET-CODE-VERSION)))))
(PLANET-DIR (build-path (PLANET-BASE-DIR) (version)))
(CACHE-DIR (build-path (PLANET-DIR) "cache"))
(UNINSTALLED-PACKAGE-CACHE (build-path (PLANET-BASE-DIR) "packages"))
@ -19,6 +20,8 @@
(DEFAULT-PACKAGE-LANGUAGE (version))
(USE-HTTP-DOWNLOADS? #t)
(HTTP-DOWNLOAD-SERVLET-URL "http://planet.plt-scheme.org/servlets/planet-servlet.ss")
(HTTP-DOWNLOAD-SERVLET-URL (let ([plt-planet-url-env-var (getenv "PLTPLANETURL")])
(or plt-planet-url-env-var
"http://planet.plt-scheme.org/servlets/planet-servlet.ss")))
(PLANET-ARCHIVE-FILTER #f)))

6
collects/planet/planet.scrbl
View File

@ -518,8 +518,10 @@ this parameter to @scheme[#f] is not recommended.}
@defparam[HTTP-DOWNLOAD-SERVLET-URL url string?]{
The URL for the servlet that will provide PLaneT packages if
@scheme[USE-HTTP-DOWNLOADS?] is @scheme[#t], represented as a string. The default
value is @scheme["http://planet.plt-scheme.org/servlets/planet-servlet.ss"].}
@scheme[USE-HTTP-DOWNLOADS?] is @scheme[#t], represented as a string.
This defaults to the value of the @indexed-envvar{PLTPLANETURL} environment
variable if it is set and otherwise is
@scheme["http://planet.plt-scheme.org/servlets/planet-servlet.ss"].}
@defparam[PLANET-SERVER-NAME host string?]{
The name of the PLaneT server to which the client should connect if