- Http_daemon.respond_file
- ~fname:(sprintf "%s/%s" pages_dir (remove_fragment page)) outchan
- | page -> Http_daemon.respond_forbidden ~url:page outchan)
+ let fname = sprintf "%s/%s" pages_dir (remove_fragment page) in
+ if preprocess then begin
+ Http_daemon.send_basic_headers ~code:200 outchan;
+ Http_daemon.send_CRLF outchan;
+ iter_file
+ (fun line ->
+ output_string outchan
+ ((apply_substs
+ [processorURL_RE, req#param "processorURL"] line) ^
+ "\n"))
+ fname
+ end else
+ Http_daemon.respond_file ~fname outchan
+ | page -> Http_daemon.respond_forbidden ~url:page outchan))