From caeba1b9b9a59f0ecb344b4600eaf9727fa4ced4 Mon Sep 17 00:00:00 2001 From: Claudio Sacerdoti Coen Date: Tue, 18 Mar 2003 14:57:43 +0000 Subject: [PATCH] CVS repository fix: reversion of some lines (related to libhttp) to a working version. --- helm/searchEngine/searchEngine.ml | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) diff --git a/helm/searchEngine/searchEngine.ml b/helm/searchEngine/searchEngine.ml index 999d858aa..109baa45c 100644 --- a/helm/searchEngine/searchEngine.ml +++ b/helm/searchEngine/searchEngine.ml @@ -139,11 +139,8 @@ let callback (req: Http_types.request) outchan = let page = remove_fragment (req#param "url") in match page with | page when is_permitted page -> - let fname = sprintf "%s/%s" pages_dir (remove_fragment page) in - debug_print (sprintf "Returning file: %s" fname); - Http_daemon.send_basic_headers ~code:200 outchan; - Http_daemon.send_CRLF outchan; - Http_daemon.send_file ~name:fname outchan + Http_daemon.respond_file + ~fname:(sprintf "%s/%s" pages_dir (remove_fragment page)) outchan | page -> Http_daemon.respond_forbidden ~url:page outchan) | "/searchPattern" -> let term_string = req#param "term" in -- 2.39.2