# HG changeset patch
# User Thomas Gazagnaire <thomas.gazagnaire@xxxxxxxxxx>
# Date 1260287268 0
# Node ID 4b50a8760edaeb233407dad9c510649bca0b703b
# Parent  1bddd966816481a5f7e240d73b0cb903c8f6c8fc
[mq]: xapi-report-the-window-error-code-on-snapshot-with-quiesce-errors

diff -r 1bddd9668164 -r 4b50a8760eda ocaml/xapi/xapi_vm_snapshot.ml
--- a/ocaml/xapi/xapi_vm_snapshot.ml	Tue Dec 08 15:43:39 2009 +0000
+++ b/ocaml/xapi/xapi_vm_snapshot.ml	Tue Dec 08 15:47:48 2009 +0000
@@ -107,6 +107,7 @@
 	| "snapshot-error" ->
 		(* If an error was occured we get the error type and return *)
 		let error_str = xs.Xs.read (snapshot_path ~xs ~domid "error") in
+		let error_code () = try xs.Xs.read (snapshot_path ~xs ~domid "error/code") with _ -> "0" in
 		error "wait_for_snapshot: %s" error_str;
 		if List.mem error_str [
 			Api_errors.xen_vss_req_error_init_failed;
@@ -117,7 +118,7 @@
 			Api_errors.xen_vss_req_error_preparing_writers;
 			Api_errors.xen_vss_req_error_creating_snapshot;
 			Api_errors.xen_vss_req_error_creating_snapshot_xml_string ]
-		then raise (Api_errors.Server_error (error_str, [ Ref.string_of vm ]))
+		then raise (Api_errors.Server_error (error_str, [ Ref.string_of vm; error_code () ]))
 		else raise (Api_errors.Server_error (Api_errors.vm_snapshot_with_quiesce_failed, [ Ref.string_of vm; error_str ]))
 
 	| e ->