#!/usr/bin/perl
# index.cgi
# Display the icons for various types of lemonldapconfig options
use Data::Dumper;
require './lemonldap-lib.pl';
&header($text{'index_title'}, "", undef, 1, 1, 0,
&help_search_link("lemonldap", "man", "doc", "google"));
print "
\n";
print "$text{'index_lines'}
\n";
%lines = %{&get_session_line};
my @attr1 = @{&get_ligne_attr()} ;
#$l =Dumper(@attr) ;
#print "eric $l";
print "$text{'index_line'}
\n";
#foreach (keys %lines) {
# print "$_
";
#}
print "";
my $ligne=&formcolonne(\@attr1,'name') ;
print "$ligne";
foreach (keys %lines) {
my @a;
push @a,"$_" ;
my $ctr =$_;
foreach (@attr1) {
next if $_->{name}=~/^id/i;
push @a,$lines{$ctr}->{$_->{name}}||" ";
# push @a,$lines{$_}->{cle} ;
# push @a,$lines{$_}->{valeur} ;
# push @a,$lines{$_}->{primarykey}||' ' ;
}
my $ligne=&formline(\@a,) ;
print "$ligne";
}
print "
";
print "$text{'index_exp'}
\n";
%exp = %{&get_session_exp};
# Display global category icons
@attr = @{&get_exp_attr()} ;
print "";
my $ligne=&formcolonne(\@attr,'name') ;
print "$ligne";
foreach (keys %exp) {
my @a;
push @a,"$_" ;
my $ctr=$_;
foreach (@attr) {
next if $_->{name}=~/^id/i;
push @a,$exp{$ctr}->{$_->{name}}||" ";
}
my $ligne=&formline(\@a,) ;
print "$ligne";
}
print "
";
my $table = tablemaj(@attr1) ;
print "$text{'create_line'}
\n";
print "";
my $table = tablemaj(@attr) ;
print "$text{'create_exp'}
\n";
print "";
&footer("/lemonldap/session.cgi", $text{'index'});