view release on metacpan or  search on metacpan

examples/accueil.pl  view on Meta::CPAN

	my $self=shift;
	my %session;
	my $entry=$self->{entry} ;
   	$session{dn}   = $entry->dn();
   	$self->{dn}   = $entry->dn();
   	$session{uid}  = $entry->get_value('uid');
#   	$session{cn}   = $entry->get_value('cn');
#   	$session{personaltitle} = $entry->get_value('personaltitle');
#   	$session{mail}          = $entry->get_value('mail');
#   	$session{title}      = $entry->get_value('title');
## my overlay    
#   $session{departement}   = $entry->get_value('departement');
#   $session{codique}       = $entry->get_value('codique');
#   $session{boitier}       = "lemonintimpots";
#   $session{grade} = $entry->get_value('grade');
#   $session{fonction} = $entry->get_value('fonction');
#   $session{igap} = $entry->get_value('igap');
#   my @mefiapplidgcp = $entry->get_value('mefiapplidgcp');
#   my @mefiappliapt  = $entry->get_value('mefiapplihabilitdgcp');
#   my @mefiapplidgi  = $entry->get_value('mefiapplidgi');
   my @profilapplicatif  = $entry->get_value('profilapplicatif');