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

All stubs are accessible through HTTP on the download server.

Browse Source
This commit is contained in:
Eli Barzilay 2010-06-15 13:17:43 -04:00
parent 0905701e89
commit 05877f4537
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/meta/web/config.rkt
View File

@ -18,5 +18,4 @@
;; Each is a "hostname:dest-path", and then a list of directories to ;; Each is a "hostname:dest-path", and then a list of directories to
;; put in that path. (Warning: "dest" should not be a top-level ;; put in that path. (Warning: "dest" should not be a top-level
;; directory that already exists.) ;; directory that already exists.)
'(["champlain:/www" "www" "download" "lists" "stubs/mailman"] '(["champlain:/www" "www" "download" "lists" "stubs"]))
["winooski:~wwwplanet/html-template/" "stubs/planet/"])) ; note "/"s

5
collects/meta/web/download/index.rkt
View File

@ -5,8 +5,9 @@
(define (in-ftp . paths) (define (in-ftp . paths)
(string-join (cons "/var/ftp/pub/racket" paths) "/")) (string-join (cons "/var/ftp/pub/racket" paths) "/"))
(define docs (symlink (in-ftp "docs"))) (define docs (symlink (in-ftp "docs")))
(define installers (symlink (in-ftp "installers"))) (define installers (symlink (in-ftp "installers")))
(define stubs (symlink "/www/stubs"))
(provide index) (provide index)
(define index (define index