# HG changeset patch
# User Thomas Gazagnaire <thomas.gazagnaire@xxxxxxxxxx>
# Date 1266842151 0
# Node ID bd6260d6f005a044b9574f8835506167c9963765
# Parent  2130f262d8902bb0957e97ee3dc75439d3438628
CA-38136:replace any occurence of "snapshot_of" and "snapshot_time" by "snapshot-of" and "snapshot-by" in the CLI fields.

(this appears in the VM and VDI records)

Signed-off-by: Thomas Gazagnaire <thomas.gazagnaire@xxxxxxxxxx>

diff -r 2130f262d890 -r bd6260d6f005 ocaml/client_records/records.ml
--- a/ocaml/client_records/records.ml	Mon Feb 22 12:35:50 2010 +0000
+++ b/ocaml/client_records/records.ml	Mon Feb 22 12:35:51 2010 +0000
@@ -577,11 +577,11 @@
 				~set:(fun x -> Client.VM.set_is_a_template rpc session_id vm (safe_bool_of_string "is-a-template" x)) ();
 			make_field ~name:"is-a-snapshot"
 				~get:(fun () -> string_of_bool (x ()).API.vM_is_a_snapshot) ();
-			make_field ~name:"snapshot_of"
+			make_field ~name:"snapshot-of"
 				~get:(fun () -> get_uuid_from_ref (x ()).API.vM_snapshot_of) ();
 			make_field ~name:"snapshots"
 				~get:(fun () -> String.concat "; " (List.map get_uuid_from_ref (x ()).API.vM_snapshots)) ();
-			make_field ~name:"snapshot_time"
+			make_field ~name:"snapshot-time"
 				~get:(fun () -> Date.to_string (x ()).API.vM_snapshot_time) ();
 			make_field ~name:"transportable-snapshot-id" ~hidden:true
 				~get:(fun () -> (x()).API.vM_transportable_snapshot_id) ();
@@ -940,9 +940,9 @@
     make_field ~name:"name-description" ~get:(fun () -> (x ()).API.vDI_name_description)
       ~set:(fun desc -> Client.VDI.set_name_description rpc session_id vdi desc) ();
     make_field ~name:"is-a-snapshot" ~get:(fun () -> string_of_bool (x ()).API.vDI_is_a_snapshot) (); 
-    make_field ~name:"snapshot_of"   ~get:(fun () -> get_uuid_from_ref (x ()).API.vDI_snapshot_of) ();
+    make_field ~name:"snapshot-of"   ~get:(fun () -> get_uuid_from_ref (x ()).API.vDI_snapshot_of) ();
     make_field ~name:"snapshots"     ~get:(fun () -> String.concat "; " (List.map get_uuid_from_ref (x ()).API.vDI_snapshots)) ();
-    make_field ~name:"snapshot_time" ~get:(fun () -> Date.to_string (x ()).API.vDI_snapshot_time) ();
+    make_field ~name:"snapshot-time" ~get:(fun () -> Date.to_string (x ()).API.vDI_snapshot_time) ();
     make_field ~name:"allowed-operations"
       ~get:(fun () -> String.concat "; " (List.map Record_util.vdi_operation_to_string (x ()).API.vDI_allowed_operations)) 
       ~get_set:(fun () -> List.map Record_util.vdi_operation_to_string (x ()).API.vDI_allowed_operations) ();