#!/usr/bin/perl
# un_domain.cgi
# Display the icons for various types of lemonldapconfig options
use Data::Dumper;
require './lemonldap-lib.pl';
# Check if lemonlap is installed
&ReadParse();
my $domain = $in{'domain'};
&header($text{'index_title'}, "", undef, 1, 1, 0,
&help_search_link("lemonldap", "man", "doc", "google"));
print "
\n";
#my $l=Dumper (%in) ;
#print "eric $l" ;
%un_domain= %{&get_un_domain($domain)};
print "$domain
\n";
print "";
#$l =Dumper (%un_domain);
#print "eric1 $l";
my @tab= @{&get_domain_attr()} ;
#$l = Dumper(@tab);
#print "$l eric2";
print "";
print "
";
print "Hanlders
\n";
my %hand =%{$un_domain{handler}};
#$l = Dumper(%hand);
#print "$l eric3";
print "
";
foreach (keys %hand){
print "$_ |
";
}
print "
";
print "
";
print "Add hanlder
\n";
my @tab= @{&get_handler_attr()} ;
#my $l = Dumper(@tab);
#print "$l eric";
print "";
&footer("/lemonldap", $text{'index'});