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