From 6cc3293c28e1f669a21f8716d60e631804f45179 Mon Sep 17 00:00:00 2001 From: David RENE Date: Sun, 11 Nov 2007 00:56:22 +0000 Subject: [PATCH] add some time measurement --- calexium_lib/web/CXM_multihost_http_server.anubis | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) diff --git a/calexium_lib/web/CXM_multihost_http_server.anubis b/calexium_lib/web/CXM_multihost_http_server.anubis index aeed0d6..6b527b6 100644 --- a/calexium_lib/web/CXM_multihost_http_server.anubis +++ b/calexium_lib/web/CXM_multihost_http_server.anubis @@ -165,6 +165,7 @@ read CXM_common.anubis read tools/basis.anubis read system/string.anubis +read system/files.anubis read CXM_mime.anubis @@ -2104,7 +2105,8 @@ define One { false then forget(reliable_write(connection,to_byte_array("HTTP/1.1 200 OK"+crlf))); - forget(reliable_write(connection,[format_headers(headers + headers_for_send_file(mime_type, size, current_etag, mb_ftimes)) , crlf])); + forget(reliable_write(connection,[format_headers(headers + headers_for_send_file(mime_type, size, current_etag, mb_ftimes)) , crlf])); + //forget(copy_file_to_Connection(file, connection, size)), send_file_body(desc,connection,file,size,0,filename), true then forget(reliable_write(connection,to_byte_array("HTTP/1.1 304 Not Modified"+crlf))); @@ -2262,6 +2264,7 @@ define One http_info(ip_addr,uri,headers,generate_tt), all_web_args, is_SSL(connection)), + print_delta("After page generation"); if answer_headers_body is (additional_headers,answer_body) then forget(reliable_write(connection, [ "HTTP/1.1 200 OK", crlf, @@ -2269,7 +2272,9 @@ define One format_headers(standard_headers_for_html(length(answer_body),charset(desc))), format_headers(additional_headers), crlf . - answer_body]))) + answer_body])); + print_delta("After sending page") + ) else (send_file(desc, connection, uri, @@ -2280,7 +2285,8 @@ define One not_found then failure, found(v) then success(v) }, - (One u) |-> before_send_file(desc)(all_web_args)))). + (One u) |-> before_send_file(desc)(all_web_args)); + print_delta("After sending file"))). -- libgit2 0.21.4