[Xen-API] [PATCH] CP-1591: Make Network.MTU writable on the CLI

[Rob Hoes <rob.hoes@xxxxxxxxxx>]

# 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)

Attachment: net-mtu-cli
Description: Text document

_______________________________________________
xen-api mailing list
xen-api@xxxxxxxxxxxxxxxxxxx
http://lists.xensource.com/mailman/listinfo/xen-api