on dbus notification reply with a path that is valid. replacing - by _ in the uuid.

diff --git a/xenvm/vmact.ml b/xenvm/vmact.ml
index fc4a446698abd6644a4ca223ba84212cdff8e91e..9dd769b903d386823de590aa2c247a2083b0f495 100644 (file)
--- a/xenvm/vmact.ml
+++ b/xenvm/vmact.ml
@@ -57,7 +57,7 @@ let _notify state code l =
                ()
        | NotifyDBus path ->
                (* path/intf/method arbitrary for now. *)
-               let dbus_path = sprintf "/org/xen/vm/%s" state.vm_uuid in
+               let dbus_path = sprintf "/org/xen/vm/%s" (String.replace "-" "_" state.vm_uuid) in
                let dbus_intf = "xenvm.signal.notify" in
                let dbus_meth = "notify" in
                let bus = DBus.Bus.get DBus.Bus.System in