diff --git a/scheme/httpd/surflets/surflet-handler.scm b/scheme/httpd/surflets/surflet-handler.scm index 0458196..48053f4 100644 --- a/scheme/httpd/surflets/surflet-handler.scm +++ b/scheme/httpd/surflets/surflet-handler.scm @@ -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