23 lines
595 B
Scheme
23 lines
595 B
Scheme
(define-structure servlet servlet-interface
|
|
(open scsh
|
|
scheme
|
|
servlets
|
|
servlet-handler/admin
|
|
)
|
|
(begin
|
|
|
|
(define (main-page)
|
|
`(html (title "Servlet Administration")
|
|
(body (h1 "Servlet Administration")
|
|
(p "This servlet allows you to do some adminstration tasks.")
|
|
(p "Choose one of the following submenus:")
|
|
(p
|
|
(ul
|
|
(li (URL "admin-handler.scm" "Set handler options..."))
|
|
(li (URL "admin-servlets.scm" "Servlets..."))
|
|
(li (URL "admin-profiling.scm" "Profiling...")))))))
|
|
|
|
(define (main req)
|
|
(send-html (main-page)))
|
|
|
|
)) |