;; Non-incremental servlet with arguments on the URL, in text/html, with URL
;; path.
(module test5 mzscheme
  (require (lib "servlet.ss" "web-server")
           (lib "servlet-sig.ss" "web-server")
           )

  (provide start timeout interface-version)

  (define timeout 1)
  (define interface-version 'v1)

  (define (start req)
    (send/finish
      `(html
         (head
           (title "Title"))
         (body
           (h1 "Title")
           ,@(map
               (lambda (binding)
                 `(p ,(symbol->string (car binding)) ,(cdr binding)))
               (request-bindings req))
           (p "Current path: " ,(current-directory))))))
  )
