2003-01-19 11:57:27 -05:00
|
|
|
(define-structure surflet surflet-interface
|
2002-12-08 10:49:27 -05:00
|
|
|
(open scheme-with-scsh
|
2003-01-19 11:57:27 -05:00
|
|
|
surflets
|
|
|
|
surflet-handler/admin
|
2002-10-01 13:44:58 -04:00
|
|
|
)
|
|
|
|
(begin
|
|
|
|
|
|
|
|
(define (main-page)
|
2003-01-19 11:57:27 -05:00
|
|
|
`(html (title "SUrflet Administration")
|
|
|
|
(body (h1 "SUrflet Administration Menu")
|
|
|
|
(p "This SUrflet allows you to do some adminstration tasks.")
|
2002-10-01 13:44:58 -04:00
|
|
|
(p "Choose one of the following submenus:")
|
|
|
|
(p
|
|
|
|
(ul
|
2003-03-09 15:15:08 -05:00
|
|
|
(li (url "admin-handler.scm" "Set handler options..."))
|
|
|
|
(li (url "admin-surflets.scm" "SUrflets..."))
|
|
|
|
(li (url "admin-profiling.scm" "Profiling..."))))
|
2002-10-21 04:38:46 -04:00
|
|
|
(hr)
|
2003-03-09 15:15:08 -05:00
|
|
|
(p (url "/" "Return to main menu.")))))
|
2002-10-01 13:44:58 -04:00
|
|
|
|
|
|
|
(define (main req)
|
|
|
|
(send-html (main-page)))
|
|
|
|
|
|
|
|
))
|