Fix datapath example

Signed-off-by: David Scott <dave.scott@eu.citrix.com>

Author: David Scott

examples/datapath/block/Datapath.activate

@@ -22,5 +22,5 @@ if __name__ == "__main__":
 
     dispatcher = d.Datapath_server_dispatcher(Implementation())
     request = json.loads(sys.stdin.readline(),)
-    results = dispatcher.attach(request)
+    results = dispatcher.activate(request)
     print json.dumps(results)

examples/datapath/block/Datapath.attach

@@ -5,17 +5,14 @@ sys.path.append("/home/vagrant/djs55/dbus-test/python")
 
 import xcp, d
 
-import argparse, json
-
-class Blkback:
-    def __init__(self, params):
-        self.value = params
+import argparse, json, urlparse
 
 class Implementation(d.Datapath_skeleton):
     def attach(self, dbg, uri, domain):
+        u = urlparse.urlparse(uri)
         return {
             'domain_uuid': '0',
-            'implementation': Blkback('/some/path'),
+            'implementation': [ 'Blkback', u.path ],
         }
 
 if __name__ == "__main__":

examples/datapath/block/Datapath.deactivate

@@ -22,5 +22,5 @@ if __name__ == "__main__":
 
     dispatcher = d.Datapath_server_dispatcher(Implementation())
     request = json.loads(sys.stdin.readline(),)
-    results = dispatcher.attach(request)
+    results = dispatcher.deactivate(request)
     print json.dumps(results)

examples/datapath/block/Datapath.detach

@@ -22,5 +22,5 @@ if __name__ == "__main__":
 
     dispatcher = d.Datapath_server_dispatcher(Implementation())
     request = json.loads(sys.stdin.readline(),)
-    results = dispatcher.attach(request)
+    results = dispatcher.detach(request)
     print json.dumps(results)

examples/volume/org.xen.xcp.storage.plainlvm/Plugin.diagnostics

@@ -0,0 +1,36 @@
+#!/usr/bin/env ocamlscript
+Ocaml.sources := ["common.ml"; "lvm.ml"];
+Ocaml.packs := ["xapi-storage"; "cmdliner"; "re.str"; "oUnit"; "uri"];
+Ocaml.ocamlflags := ["-thread"]
+--
+(*
+ * Copyright (C) Citrix Systems Inc.
+ *
+ * This program is free software; you can redistribute it and/or modify
+ * it under the terms of the GNU Lesser General Public License as published
+ * by the Free Software Foundation; version 2.1 only. with the special
+ * exception on linking described in file LICENSE.
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU Lesser General Public License for more details.
+ *)
+open Common
+
+module Command = struct
+  open Storage.P.Types
+  include Plugin.Diagnostics
+
+  let command common { Plugin.Diagnostics.In.dbg } =
+    "Not yet implemented"
+end
+
+module Test = struct
+  open OUnit
+
+  let test common = ()
+end
+
+module M = Make(Command)(Test)
+let _ = M.main ()