#!/usr/bin/perl
# un_handler.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'};
my $handler= $in{'handler'};
&header($text{'index_title'}, "", undef, 1, 1, 0,
&help_search_link("lemonldap", "man", "doc", "google"));
print "
\n";
print "$domain -- $handler";
my %hand = %{&get_un_handler($domain,$handler)};
my @tab= @{&get_handler_attr()} ;
print "";
print "";
print "
";
print "$config{httpd_conf}
\n";
my $c= &find_handler_in_httpd($config{httpd_conf},$handler);
my @httpd =@{&get_param_httpd($c)};
my @htab= @{&get_handler_attr_httpd()} ;
my %hcle;
foreach (@httpd) {
next if $_->{name} !~ /perlsetvar/i ;
my $cle = lc($_->{words}->[0] ) ;
my $value = $_->{words}->[1];
$hcle{$cle}= $value;
}
print "";
print "
";
print "$config{httpd_conf} features
\n";
print "";
&footer("/lemonldap", $text{'index'});