[Xen-API] [PATCH] CA-33235: add some debug msgs for timed-out sessions

[Marcus Granado <marcus.granado@xxxxxxxxxx>]

2 files changed, 2 insertions(+), 2 deletions(-)
ocaml/xapi/db_gc.ml     |    2 +-
ocaml/xapi/xapi_http.ml |    2 +-


# 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

Attachment: xen-api.hg.patch
Description: Text Data

_______________________________________________
xen-api mailing list
xen-api@xxxxxxxxxxxxxxxxxxx
http://lists.xensource.com/mailman/listinfo/xen-api