#lang scheme/base
(require (planet bzlib/shp/start)
mzlib/etc
"planet.ss"
"repository.ss"
"depend.ss"
scheme/cmdline
)
(define (start!)
(let ((path (or (getenv "BZLIB_PLANET_REPO_PATH")
"/var/data/plt/planet-repo"))
(port 9000))
(command-line #:program "planet-proxy"
#:once-each
(("-p" "--port") p
"Specify the port - default to 9000"
(assert! p string->number)
(set! port (string->number p)))
(("-r" "--repository")
repo
"Specify the repository /var/data/plt/planet-repo"
(set! path repo))
#:args ()
(assert! path directory-exists?)
(printf "planet-proxy -r ~a -p ~a\n" path port)
(parameterize ((repository-path path))
(start-shp-server! (build-path (this-expression-source-directory) "shp")
#:port port
)))))
(provide start!)