DuckCorp » LdapShadows

if $program_options[:tree_all_objects]

dn_list = ActiveLdap::Base.search(:base => search_base, :scope => :sub, :attributes => ['']).collect do |entry|

ActiveLdap::DistinguishedName.parse(entry.first)

end

else

dn_list = []

sconfig = $shadow.get_config()

(sconfig[:presentation][:tree_objects] || []).each do |obj_hdl|

obj_klass = $shadow.get_object(obj_hdl.downcase)

unless obj_klass

raise PreProcessingError, _("Location object '%s' not defined") % obj_hdl

end

obj_klass.find(:all, :base => search_base, :scope => :sub).each do |obj|

dn_list << obj.dn_obj

end

end

end

base_dn = ActiveLdap::DistinguishedName.parse(Elements::LdapObject.base)

tree = {}

dn_list.each do |dn|

ptree = tree

pdn = nil

(dn - base_dn).to_s.split(',').reverse.each do |pdn|

ptree[pdn] = {} unless ptree.has_key?(pdn)

ptree = ptree[pdn]

end

ptree = nil

end

tree = {base_dn => tree}