From a417437f46df98ce3e05808679dbba5d6e4eb938 Mon Sep 17 00:00:00 2001
From: Marcus Granado <marcus.granado@eu.citrix.com>
Date: Tue, 12 Oct 2010 11:08:46 +0100
Subject: [PATCH] CA-46108: vmpp message must contain body and data

Signed-off-by: Marcus Granado <marcus.granado@eu.citrix.com>
---
 ocaml/xapi/xapi_vmpp.ml | 8 ++++----
 scripts/mail-alarm      | 6 +++++-
 2 files changed, 9 insertions(+), 5 deletions(-)

diff --git a/ocaml/xapi/xapi_vmpp.ml b/ocaml/xapi/xapi_vmpp.ml
index d05ab73a..e94fa1a5 100644
--- a/ocaml/xapi/xapi_vmpp.ml
+++ b/ocaml/xapi/xapi_vmpp.ml
@@ -59,9 +59,9 @@ let add_to_recent_alerts ~__context ~vmpp ~value =
 
 let create_alert ~__context ~vmpp ~name ~priority ~body ~data =
   assert_licensed ~__context;
-  let value =
-    (*"<message><email>"^body^"</email><data>"^data^"</data></message>"*)
-    data
+  let value = data in
+  let msg = 
+    "<message><email>"^body^"</email><data>"^value^"</data></message>"
   in
   let successful = priority < 5L in
   if successful
@@ -72,7 +72,7 @@ let create_alert ~__context ~vmpp ~name ~priority ~body ~data =
     add_to_recent_alerts ~__context ~vmpp ~value;
     let cls = `VMPP in
     let obj_uuid = Db.VMPP.get_uuid ~__context ~self:vmpp in
-    Xapi_message.create ~__context ~name ~priority ~cls ~obj_uuid ~body;
+    Xapi_message.create ~__context ~name ~priority ~cls ~obj_uuid ~body:msg;
     ()
   )
 
diff --git a/scripts/mail-alarm b/scripts/mail-alarm
index 93e3ffa1..1a328b56 100755
--- a/scripts/mail-alarm
+++ b/scripts/mail-alarm
@@ -297,11 +297,15 @@ class VmppETG(EmailTextGenerator):
 
     def generate_body(self):
         msg = self.msg
+        msg_body = unescape(msg.body)
         try:
+            xmldoc = minidom.parseString(msg_body)
+            body_message = xmldoc.getElementsByTagName('message')[0]
+            email_message = body_message.getElementsByTagName('email')[0].firstChild.data
             return \
             "Field\t\tValue\n-----\t\t-----\nName:\t\t%s\nPriority:\t%s\nClass:\t\t%s\n" \
             "Object UUID:\t%s\nTimestamp:\t%s\nMessage UUID:\t%s\nPool name:\t%s\nBody:\t\t%s\n" % \
-            (msg.name,msg.priority,msg.cls,msg.obj_uuid,msg.timestamp,msg.uuid,msg.pool_name,msg.body)
+            (msg.name,msg.priority,msg.cls,msg.obj_uuid,msg.timestamp,msg.uuid,msg.pool_name,email_message)
         except:
             log_err("Badly formatted XML, or missing field")
             sys.exit(1)
-- 
2.39.5