2019-11-06 16:27:38 +01:00
|
|
|
#lang racket/base
|
|
|
|
|
|
|
|
|
|
(module+ test
|
|
|
|
|
(require rackunit)
|
|
|
|
|
;; Tests to be run with raco test
|
|
|
|
|
)
|
|
|
|
|
|
|
|
|
|
(module+ main
|
2019-11-07 12:14:41 +01:00
|
|
|
(require
|
|
|
|
|
"src/webcontainer/webcontainer.rkt")
|
|
|
|
|
(require
|
|
|
|
|
"src/webcontainer/weblets.rkt")
|
2019-11-06 16:27:38 +01:00
|
|
|
;; Main entry point, executed when run with the `racket` executable or DrRacket.
|
2019-11-07 12:14:41 +01:00
|
|
|
(define *webcontainer* (make-webcontainer))
|
|
|
|
|
(webcontainer-add-weblet!
|
|
|
|
|
*webcontainer*
|
|
|
|
|
"/"
|
|
|
|
|
(html-page-weblet
|
|
|
|
|
#:body '(html (body (h1 "Hello World")))))
|
|
|
|
|
(webcontainer-add-matching-weblet!
|
|
|
|
|
*webcontainer*
|
|
|
|
|
"/{name}"
|
|
|
|
|
(html-page-weblet
|
|
|
|
|
#:body (lambda (req params)
|
|
|
|
|
`(html (body (h1 "Hello " ,(hash-ref params 'name)))))))
|
|
|
|
|
(webcontainer-set-404-weblet!
|
|
|
|
|
*webcontainer*
|
|
|
|
|
(html-page-weblet
|
|
|
|
|
#:body '(html (body (h1 "Sorry") (p "Nothing found here")))))
|
|
|
|
|
(display "Starting server...")(newline)
|
|
|
|
|
(webcontainer-start *webcontainer*))
|
