Lemonldap::Portal::Authntsso 0.05

Lemonldap::Portal::Authntsso is a Perl extension for the Lemonldap SSO system.

SYNOPSIS

use Lemonldap::Portal::Authntsso;
sub my_method {
my $self = shift;
my $user = $self->{user};
$user.="-cp" if $user !~ /-cp$/;
$self->{user} = $user;
return ;
}

my $message = ;
my %params =Vars;
my $stack_user=Lemonldap::Portal::Authntsso->new(formateUser => &my_method);
my $urlc;
my $urldc;
$retour=$stack_user->process(param => %params,
server => $ReverseProxyConfig::ldap_serveur,
port => $ReverseProxyConfig::ldap_port,
DnManager => $ReverseProxyConfig::ldap_admin_dn,
passwordManager => $ReverseProxyConfig::ldap_admin_pd,
branch => $ReverseProxyConfig::ldap_branch_people,
BDC => $ReverseProxyConfig::BDC,
BDC_secours => $ReverseProxyConfig::BDC_secours,
ntdomain => $ReverseProxyConfig::ntdomain,

);
if ($retour) {
$message=$retour->message;
$erreur=$retour->error;
}