# HG changeset patch # User Marcus Granado # Date 1258033812 0 # Node ID 0d664aa678e6852959401a65346d1b328d808d65 # Parent c0bad448cefcd8c14b2a344de0c379958645abe5 CA-34859: use subject_username as fallback for subject_displayname when subject_gecos is empty Signed-off-by: Marcus Granado diff -r c0bad448cefc -r 0d664aa678e6 ocaml/auth/extauth_plugin_ADlikewise.ml --- a/ocaml/auth/extauth_plugin_ADlikewise.ml Thu Nov 12 13:32:16 2009 +0000 +++ b/ocaml/auth/extauth_plugin_ADlikewise.ml Thu Nov 12 13:50:12 2009 +0000 @@ -406,13 +406,15 @@ ("contains-byname", List.fold_left (fun (n,v) m ->m^","^v) "" (List.filter (fun (n,v)->n="Member") infolist));*) ] else (* subject is user *) - [ ("subject-name", unmap_lw_space_chars (get_value "Name" infolist)); + let subject_name = unmap_lw_space_chars (get_value "Name" infolist) in + let subject_gecos = get_value "Gecos" infolist in + [ ("subject-name", subject_name); ("subject-upn", get_value "UPN" infolist); ("subject-uid", get_value "Uid" infolist); ("subject-gid", get_value "Gid" infolist); ("subject-sid", get_value "SID" infolist); - ("subject-gecos", get_value "Gecos" infolist); - ("subject-displayname", get_value "Gecos" infolist); + ("subject-gecos", subject_gecos); + ("subject-displayname", if subject_gecos="" then subject_name else subject_gecos); (*("subject-homedir", get_value "Home dir" infolist);*) (*("subject-shell", get_value "Shell" infolist);*) ("subject-is-group", "false");