[Xen-API] [PATCH] improve checkpoint error message

[David Scott <dave.scott@xxxxxxxxxxxxx>]

# HG changeset patch
# User David Scott <dave.scott@xxxxxxxxxxxxx>
# Date 1269955331 -3600
# Node ID 419d6473c6afec9cf87b2d8554ef5fb641294026
# Parent  c41d0a69a0603cf6a2bfba50bca0e0ca98454130
CA-39435: when no suspend SR is available, use the same error message in 
VM.checkpoint that we do in VM.suspend (VM_NO_SUSPEND_SR).

Signed-off-by: David Scott <dave.scott@xxxxxxxxxxxxx>

diff -r c41d0a69a060 -r 419d6473c6af ocaml/xapi/xapi_vm_snapshot.ml
--- a/ocaml/xapi/xapi_vm_snapshot.ml    Tue Mar 30 11:34:27 2010 +0100
+++ b/ocaml/xapi/xapi_vm_snapshot.ml    Tue Mar 30 14:22:11 2010 +0100
@@ -189,6 +189,9 @@
                                | 
Api_errors.Server_error("SR_BACKEND_FAILURE_44", _) as e ->
                                        error "Not enough space to create the 
suspend image";
                                        raise e
+                               | Api_errors.Server_error(code, _) as e when 
code = Api_errors.vm_no_suspend_sr ->
+                                         error "No suspend SR available for 
this VM";
+                                         raise e
                                | _ -> raise (Api_errors.Server_error 
(Api_errors.vm_checkpoint_suspend_failed, [Ref.string_of vm]))
                end;
 
1 file changed, 3 insertions(+)
ocaml/xapi/xapi_vm_snapshot.ml |    3 +++

xen-api.hg.patch
Description: Text Data

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