add triggers for profiling and cache flushing (this may go away in the future)
This commit is contained in:
parent
e857b32057
commit
7c5de69604
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue