sunet/web-server/root/surflets/admin.scm

24 lines
656 B
Scheme
Raw Normal View History

2003-01-19 11:57:27 -05:00
(define-structure surflet surflet-interface
(open scheme-with-scsh
2003-01-19 11:57:27 -05:00
surflets
surflet-handler/admin
)
(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.")
(p "Choose one of the following submenus:")
(p
(ul
(li (url "admin-handler.scm" "Set handler options..."))
(li (url "admin-surflets.scm" "SUrflets..."))
(li (url "admin-profiling.scm" "Profiling..."))))
(hr)
(p (url "/" "Return to main menu.")))))
(define (main req)
(send-html (main-page)))
))