# HG changeset patch
# User David Scott <dave.scott@xxxxxxxxxxxxx>
# Date 1269798687 -3600
# Node ID e1ff2ddf639451cf2e58d86fefe2425288059a18
# Parent  e24b309abff793922bbe67004e50f5945a49a8bb
CA-29183: add a CLI 'message-destroy' to make it easier to clear out old messages (alerts).

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

diff -r e24b309abff7 -r e1ff2ddf6394 ocaml/xapi/cli_frontend.ml
--- a/ocaml/xapi/cli_frontend.ml	Sun Mar 28 14:19:01 2010 +0100
+++ b/ocaml/xapi/cli_frontend.ml	Sun Mar 28 18:51:27 2010 +0100
@@ -128,6 +128,15 @@
       implementation=No_fd Cli_operations.message_create;
       flags=[];
     };
+
+	"message-destroy",
+	  {
+		  reqd=["uuid"];
+		  optn=[];
+		  help="Destroy an existing message.";
+		  implementation=No_fd Cli_operations.message_destroy;
+		  flags=[];
+	  };
 
 (*    "host-introduce",
     {
diff -r e24b309abff7 -r e1ff2ddf6394 ocaml/xapi/cli_operations.ml
--- a/ocaml/xapi/cli_operations.ml	Sun Mar 28 14:19:01 2010 +0100
+++ b/ocaml/xapi/cli_operations.ml	Sun Mar 28 18:51:27 2010 +0100
@@ -736,6 +736,10 @@
   in
   ignore(Client.Message.create rpc session_id name priority cls uuid body)
 
+let message_destroy printer rpc session_id params = 
+  let uuid = List.assoc "uuid" params in
+  let message = Client.Message.get_by_uuid rpc session_id uuid in
+  Client.Message.destroy rpc session_id message
 
 (* Pool operations *)