# HG changeset patch # User Marcus Granado # Date 1269966685 -3600 # Node ID 48dac676861039b8d9b1400799cb50da888e4201 # Parent 3748135c77eaaaf7b3dcc9ba99f64554da5daaa2 CA-39115: subject-add should return a uuid Signed-off-by: Marcus Granado diff -r 3748135c77ea -r 48dac6768610 ocaml/xapi/cli_operations.ml --- a/ocaml/xapi/cli_operations.ml Tue Mar 30 16:41:39 2010 +0100 +++ b/ocaml/xapi/cli_operations.ml Tue Mar 30 17:31:25 2010 +0100 @@ -3766,7 +3766,9 @@ (* obtains a list of name-value pairs with info about the subject from the external directory *) let subject_info = Client.Auth.get_subject_information_from_identifier ~rpc ~session_id ~subject_identifier in (* now we've got enough information to create our new subject in the pool *) - ignore (Client.Subject.create ~rpc ~session_id ~subject_identifier ~other_config:subject_info) + let subject_ref = Client.Subject.create ~rpc ~session_id ~subject_identifier ~other_config:subject_info in + let subject_uuid = Client.Subject.get_uuid rpc session_id subject_ref in + printer (Cli_printer.PList [subject_uuid]) let subject_remove printer rpc session_id params = (* we are removing by subject-uuid *)