# HG changeset patch
# User Rob Hoes <rob.hoes@xxxxxxxxxx>
CP-1591: Make Network.MTU writable on the CLI

Signed-off-by: Rob Hoes <rob.hoes@xxxxxxxxxx>

diff -r 25ccf85b0d06 ocaml/client_records/records.ml
--- a/ocaml/client_records/records.ml	Thu Feb 04 18:42:33 2010 +0000
+++ b/ocaml/client_records/records.ml	Fri Feb 05 16:51:55 2010 +0000
@@ -344,7 +344,7 @@
 	  ~get_set:(fun () -> (List.map (fun vif -> get_uuid_from_ref vif) (x ()).API.network_VIFs)) ();
 	make_field ~name:"PIF-uuids" ~get:(fun () -> String.concat "; " (List.map (fun pif -> get_uuid_from_ref pif) (x ()).API.network_PIFs)) 
 	  ~get_set:(fun () -> (List.map (fun pif -> get_uuid_from_ref pif) (x ()).API.network_PIFs)) ();
-	make_field ~name:"MTU" ~get:(fun () -> (Int64.to_string (x ()).API.network_MTU)) ();
+	make_field ~name:"MTU" ~get:(fun () -> (Int64.to_string (x ()).API.network_MTU)) ~set:(fun x -> Client.Network.set_MTU rpc session_id net (Int64.of_string x)) ();
 	make_field ~name:"bridge" ~get:(fun () -> (x ()).API.network_bridge) ();
 	make_field ~name:"other-config"         ~get:(fun () -> Record_util.s2sm_to_string "; " (x ()).API.network_other_config)
 	  ~add_to_map:(fun k v -> Client.Network.add_to_other_config rpc session_id net k v)