let to_strings item =
let date = Time.to_filename (time item) in
match item.content with
| `Creation -> [date; "Creation"]
| `Incoming_request hr -> [date; "Incomming HTTP request"; hr.uri]
| `End_of_request (hr, rl) ->
[date; "End of HTTP request";
hr.uri;
Int.to_string rl.body_length;
rl.response; ]
| `Tag t -> [date; "Tag"; t]