(module manual-section mzscheme
  (require "../private/manuals.ss"
           "private/headelts.ss"
           (lib "servlet.ss" "web-server"))
  (provide interface-version timeout start)
  (define interface-version 'v1)
  (define timeout +inf.0)

  (define (start initial-request)
    (report-errors-to-browser send/finish)
    (let* ([bindings (request-bindings initial-request)]
           [manual (extract-binding/single 'manual bindings)]
           [raw-section (extract-binding/single 'section bindings)]
           ;; remove quotes
           [section (substring raw-section
                               1 (sub1 (string-length raw-section)))]
           [page (with-handlers
                     ([void (lambda _
                              (send/finish
                               `(html
                                 (head ,hd-css ,@hd-links
                                       (title "Can't find manual section"))
                                 (body
                                  "Error looking up PLT manual section"
                                  (p)
                                  "Requested manual: "
                                  ,manual (br)
                                  "Requested section: "
                                  ,section))))])
                   (finddoc-page-anchor manual section))])
      (send/finish (redirect-to page)))))