rrdd: Add /host_rrds and /vm_rrds for XC compatibility

Signed-off-by: Christian Pardillo Laursen <[email protected]>

Author: cplaursen

ocaml/xcp-rrdd/bin/rrdd/xcp_rrdd.ml

@@ -77,8 +77,12 @@ let start (xmlrpc_path, http_fwd_path) process =
   Http_svr.Server.add_handler server Http.Post "/" (xmlrpc_handler process) ;
   Http_svr.Server.add_handler server Http.Get Rrdd_libs.Constants.get_vm_rrd_uri
     get_vm_rrd_handler ;
+  Http_svr.Server.add_handler server Http.Get
+    Rrdd_libs.Constants.get_vm_rrd_uri_compat get_vm_rrd_handler ;
   Http_svr.Server.add_handler server Http.Get
     Rrdd_libs.Constants.get_host_rrd_uri get_host_rrd_handler ;
+  Http_svr.Server.add_handler server Http.Get
+    Rrdd_libs.Constants.get_host_rrd_uri_compat get_host_rrd_handler ;
   Http_svr.Server.add_handler server Http.Get Rrdd_libs.Constants.get_sr_rrd_uri
     get_sr_rrd_handler ;
   Http_svr.Server.add_handler server Http.Get

ocaml/xcp-rrdd/lib/rrdd/constants.ml

@@ -19,10 +19,18 @@ let get_vm_rrd = "vm_rrd"
 
 let get_vm_rrd_uri = "/" ^ get_vm_rrd
 
+(* XenCenter was using this URI until build 8460 *)
+(* This is here for compatibility reasons only *)
+let get_vm_rrd_uri_compat = "/vm_rrds"
+
 let get_host_rrd = "host_rrd"
 
 let get_host_rrd_uri = "/" ^ get_host_rrd
 
+(* XenCenter was using this URI until build 8460 *)
+(* This is here for compatibility reasons only *)
+let get_host_rrd_uri_compat = "/host_rrds"
+
 let get_sr_rrd = "sr_rrd"
 
 let get_sr_rrd_uri = "/" ^ get_sr_rrd