let get_source xmls =
try
match List.find (find_ele "source") xmls with
Element (_,atts,[PCData s]) ->
Some { src_name = s ;
src_url = get_att atts "url" ;
}
| _ ->
None
with
Not_found ->
None