Anubis / Xlib

Commit 6cc3293c28e1f669a21f8716d60e631804f45179

Authored by David RENE
1 parent 328c516a

add some time measurement

Showing 1 changed file with 9 additions and 3 deletions   Show diff stats
Inline Side-by-side
calexium_lib/web/CXM_multihost_http_server.anubis
  Show/Hide comments   View file @6cc3293
... ... @@ -165,6 +165,7 @@
165 165 read CXM_common.anubis
166 166 read tools/basis.anubis
167 167 read system/string.anubis
  168 +read system/files.anubis
168 169 read CXM_mime.anubis
169 170  
170 171  
... ... @@ -2104,7 +2105,8 @@ define One
2104 2105 {
2105 2106 false then
2106 2107 forget(reliable_write(connection,to_byte_array("HTTP/1.1 200 OK"+crlf)));
2107   - forget(reliable_write(connection,[format_headers(headers + headers_for_send_file(mime_type, size, current_etag, mb_ftimes)) , crlf]));
  2108 + forget(reliable_write(connection,[format_headers(headers + headers_for_send_file(mime_type, size, current_etag, mb_ftimes)) , crlf]));
  2109 + //forget(copy_file_to_Connection(file, connection, size)),
2108 2110 send_file_body(desc,connection,file,size,0,filename),
2109 2111 true then
2110 2112 forget(reliable_write(connection,to_byte_array("HTTP/1.1 304 Not Modified"+crlf)));
... ... @@ -2262,6 +2264,7 @@ define One
2262 2264 http_info(ip_addr,uri,headers,generate_tt),
2263 2265 all_web_args,
2264 2266 is_SSL(connection)),
  2267 + print_delta("After page generation");
2265 2268 if answer_headers_body is (additional_headers,answer_body) then
2266 2269 forget(reliable_write(connection,
2267 2270 [ "HTTP/1.1 200 OK", crlf,
... ... @@ -2269,7 +2272,9 @@ define One
2269 2272 format_headers(standard_headers_for_html(length(answer_body),charset(desc))),
2270 2273 format_headers(additional_headers),
2271 2274 crlf .
2272   - answer_body])))
  2275 + answer_body]));
  2276 + print_delta("After sending page")
  2277 + )
2273 2278 else (send_file(desc,
2274 2279 connection,
2275 2280 uri,
... ... @@ -2280,7 +2285,8 @@ define One
2280 2285 not_found then failure,
2281 2286 found(v) then success(v)
2282 2287 },
2283   - (One u) |-> before_send_file(desc)(all_web_args)))).
  2288 + (One u) |-> before_send_file(desc)(all_web_args));
  2289 + print_delta("After sending file"))).
2284 2290  
2285 2291  
2286 2292  
... ...