scsh-conservatory
/
sunet
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
sunet/web-server/root/surflets/admin.scm

24 lines
663 B
Scheme
Raw Normal View History

Rename SERVLET --> SURFLET
2003-01-19 11:57:27 -05:00
(define-structure surflet surflet-interface
use SCHEME-WITH-SCSH instead of SCSH and SCHEME
2002-12-08 10:49:27 -05:00
(open scheme-with-scsh
Rename SERVLET --> SURFLET
2003-01-19 11:57:27 -05:00
surflets
surflet-handler/admin
+ serlvet administration tool Note that the picture generation in admin-profiling.scm currently fails because of current restrictions in the servlet-handler (that cannot serve data files). No error capturing on wrong input in input-fields.
2002-10-01 13:44:58 -04:00
)
(begin
(define (main-page)
Rename SERVLET --> SURFLET
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.")
+ serlvet administration tool Note that the picture generation in admin-profiling.scm currently fails because of current restrictions in the servlet-handler (that cannot serve data files). No error capturing on wrong input in input-fields.
2002-10-01 13:44:58 -04:00
(p "Choose one of the following submenus:")
(p
(ul
+ export conversion rules from surflets: default-rules (default, text, attribute, plain-html and url) surflet-form-rules (input-field and surflet-form) + according to mainzelm: lowercase URL tag to url in surflet-xml
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..."))))
Various changes and improvements, namely: + added links to previous menus + removed some typos + admin-servlets: + make unload all work + improved machine-user dialog + calculate.scm: + numbers are restored, if operator is changed Sorry for this packed commit, but my ISP went down on weekend.
2002-10-21 04:38:46 -04:00
(hr)
+ export conversion rules from surflets: default-rules (default, text, attribute, plain-html and url) surflet-form-rules (input-field and surflet-form) + according to mainzelm: lowercase URL tag to url in surflet-xml
2003-03-09 15:15:08 -05:00
(p (url "/" "Return to main menu.")))))
+ serlvet administration tool Note that the picture generation in admin-profiling.scm currently fails because of current restrictions in the servlet-handler (that cannot serve data files). No error capturing on wrong input in input-fields.
2002-10-01 13:44:58 -04:00
(define (main req)
Use send-html/finish instead of send-html for the single page.
2004-07-24 11:16:58 -04:00
(send-html/finish (main-page)))
+ serlvet administration tool Note that the picture generation in admin-profiling.scm currently fails because of current restrictions in the servlet-handler (that cannot serve data files). No error capturing on wrong input in input-fields.
2002-10-01 13:44:58 -04:00
))