add triggers for profiling and cache flushing (this may go away in the future)

This commit is contained in:
interp 2002-09-14 16:43:58 +00:00
parent e857b32057
commit 7c5de69604
1 changed files with 10 additions and 0 deletions

View File

@ -38,6 +38,16 @@
(let ((request-method (request:method req))
(full-path (uri-path-list->path path)))
(cond
((string=? full-path "profile") ; triggers profiling
(http-syslog (syslog-level debug)
"profiling: triggered in servlet-handler [~a]"
(profile-space)) ; PROFILE
(make-http-error-response http-status/accepted req "profiled"))
((string=? full-path "reset") ; triggers cache clearing
(http-syslog (syslog-level debug)
"servlet-handler: clearing plugin cache")
(reset-plugin-cache!)
(make-http-error-response http-status/accepted req "plugin cache cleared"))
((or (string=? request-method "GET")
(string=? request-method "PUT"))
(with-cwd