From 7c5de696047324137b23b0c9da955a447bd46a5c Mon Sep 17 00:00:00 2001 From: interp Date: Sat, 14 Sep 2002 16:43:58 +0000 Subject: [PATCH] add triggers for profiling and cache flushing (this may go away in the future) --- scheme/httpd/surflets/surflet-handler.scm | 10 ++++++++++ 1 file changed, 10 insertions(+) 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