(module internal-hp mzscheme
  (require (lib "dirs.ss" "setup"))
  (provide internal-port internal-host
	   collects-hosts collects-dirs
	   doc-hosts doc-dirs)

  ;; Hostnames defined here should not exist as real machines

  ;; The general idea is that there's one virtual host for
  ;;  every filesystem tree that we need to access.
  ;; The "get-help-url.ss" library provides a function to
  ;;  convert a path into a suitable URL (i.e., a URL using
  ;;  the right virtual host).
  ;; The "gui.ss" library performs a bit of extra URL
  ;;  processing at the last minute, sometimes switching
  ;;  a URL for a manual to a different host. (That's needed
  ;;  when cross-manual references are implemented as relative
  ;;  URLs.)

  (define internal-host "helpdesk.plt-scheme.org")
  (define internal-port 8000)

  (define (generate-hosts prefix dirs)
    (let loop ([dirs dirs][n 0])
      (if (null? dirs)
	  null
	  (cons (format "~a~a.helpdesk.plt-scheme.org" prefix n)
		(loop (cdr dirs) (add1 n))))))

  (define collects-dirs
    (get-collects-search-dirs))
  (define collects-hosts 
    (generate-hosts "collects" collects-dirs))

  (define doc-dirs
    (get-doc-search-dirs))
  (define doc-hosts 
    (generate-hosts "doc" doc-dirs)))