# HG changeset patch
# User Marcus Granado <marcus.granado@xxxxxxxxxx>
# Date 1259780888 0
# Node ID c9d4cd95d8886b2201522e346f7f0d4a5d373115
# Parent  938c7defdf34865e1b6885268f63ba12a8f471b1
CA-33235: add some debug msgs for timed-out sessions

Signed-off-by: Marcus Granado <marcus.granado@xxxxxxxxxxxxx>

diff -r 938c7defdf34 -r c9d4cd95d888 ocaml/xapi/db_gc.ml
--- a/ocaml/xapi/db_gc.ml	Wed Dec 02 17:26:15 2009 +0000
+++ b/ocaml/xapi/db_gc.ml	Wed Dec 02 19:08:08 2009 +0000
@@ -216,7 +216,7 @@
   let cancel doc sessions = 
     List.iter
       (fun (s, active, uuid) ->
-	 debug "Session.destroy _ref=%s uuid=%s (last active %s): %s" (Ref.string_of s) uuid (Date.to_string (Date.of_float active)) doc;
+	 debug "Session.destroy _ref=%s uuid=%s %s (last active %s): %s" (Ref.string_of s) uuid (Context.trackid_of_session (Some s)) (Date.to_string (Date.of_float active)) doc;
 	 Xapi_session.destroy_db_session ~__context ~self:s
 	 ) sessions in
   (* Only the 'lucky' survive: the 'old' and 'unlucky' are destroyed *)
diff -r 938c7defdf34 -r c9d4cd95d888 ocaml/xapi/xapi_http.ml
--- a/ocaml/xapi/xapi_http.ml	Wed Dec 02 17:26:15 2009 +0000
+++ b/ocaml/xapi/xapi_http.ml	Wed Dec 02 19:08:08 2009 +0000
@@ -20,7 +20,7 @@
   try
     let (_: string) = Db.Session.get_uuid ~__context ~self:session_id in ()
   with _ ->
-    debug "Failed to find session_id in database. Perhaps it timed-out?";
+    debug "Failed to find session_id %s in database. Perhaps it timed-out?" (Context.trackid_of_session (Some session_id));
     raise (Http.Unauthorised realm)
 
 (* Talk to the master over the network. NB we deliberately use the network rather than