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 <[email protected]> # Date 1259780888 0 # Node ID c9d4cd95d8886b2201522e346f7f0d4a5d373115 # Parent 938c7defdf34865e1b6885268f63ba12a8f471b1 CA-33235: add some debug msgs for timed-out sessions Signed-off-by: Marcus Granado <[email protected]> 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
# HG changeset patch # User Marcus Granado <[email protected]> # Date 1259780888 0 # Node ID c9d4cd95d8886b2201522e346f7f0d4a5d373115 # Parent 938c7defdf34865e1b6885268f63ba12a8f471b1 CA-33235: add some debug msgs for timed-out sessions Signed-off-by: Marcus Granado <[email protected]> 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
_______________________________________________ xen-api mailing list [email protected] http://lists.xensource.com/mailman/listinfo/xen-api
