add dbus notification option dummy

diff --git a/xenvm/vmact.ml b/xenvm/vmact.ml
index 38d140890425a95f835ce999e9984c63a84668f7..56562ecbd46beedb4defd7fdef2b8542c9a43214 100644 (file)
--- a/xenvm/vmact.ml
+++ b/xenvm/vmact.ml
@@ -47,6 +47,8 @@ let _notify state code l =
                        Some fd
                | NotifyTcp6 _ ->
                        None
+               | NotifyDBus path ->
+                       None
                | NotifyNone ->
                        None
                in

diff --git a/xenvm/vmconfig.ml b/xenvm/vmconfig.ml
index e732cb3e877ffc3a5b81ae3ed56dafff09148274..249341998c56d553cf326f29c12fffd678b04847 100644 (file)
--- a/xenvm/vmconfig.ml
+++ b/xenvm/vmconfig.ml
@@ -24,6 +24,7 @@ type notify_ty =
        | NotifyTcp6 of string
        | NotifyTcp of Unix.inet_addr * int
        | NotifyUnix of string
+       | NotifyDBus of string option
        | NotifyNone
 
 let string_of_notify ty =
@@ -31,6 +32,7 @@ let string_of_notify ty =
        | NotifyTcp6 s            -> sprintf "tcp6,%s" s
        | NotifyTcp (iaddr, port) -> sprintf "tcp,%s:%d" "" port
        | NotifyUnix path         -> sprintf "unix,%s" path
+       | NotifyDBus path         -> sprintf "dbus%s" (match path with None -> "" | Some path -> "," ^ path)
        | NotifyNone              -> ""
 
 type snapshot_mode =
@@ -272,6 +274,12 @@ let config_notify_of_string s =
                failwith "notify: tcp6 not implemented"
        | "unix" :: path :: [] ->
                NotifyUnix path
+       | "dbus" :: args -> (
+               match args with
+               | []         -> NotifyDBus (None)
+               | path :: [] -> NotifyDBus (Some path)
+               | _          -> failwith "notify: bad dbus format"
+               )
        | _ ->
                failwith "bah"