Commit 3bbf0fb5 authored by Clément Oudot's avatar Clément Oudot

Skeleton of LA authentication module

git-svn-id: svn://svn.forge.objectweb.org/svnroot/lemonldap/trunk@34 1dbb9719-a921-0410-b57f-c3a383c2c641
parent a07238b0
#==============================================================================
# Liberty Alliance Authentication for LemonLDAP.
#
# This file is part of the LemonLDAP project and released under GPL.
#==============================================================================
package Lemonldap::NG::Portal::AuthLA;
use strict;
use warnings;
use Lemonldap::NG::Portal::SharedConf qw(:all);
use lasso;
*EXPORT_OK = *Lemonldap::NG::Portal::SharedConf::EXPORT_OK;
*EXPORT_TAGS = *Lemonldap::NG::Portal::SharedConf::EXPORT_TAGS;
*EXPORT = *Lemonldap::NG::Portal::SharedConf::EXPORT;
our $VERSION = '0.1';
our @ISA = qw(Lemonldap::NG::Portal::SharedConf);
#==============================================================================
# Overloaded methods
#==============================================================================
sub extractFormInfo {
# extraction des données du XML s'il est présent, sinon
# on appelle la routine normale. Si on est pas en LA,
# toutes les routines suivantes doivent lancer le
# procédé normal ($self->SUPER::extractFormInfo)
}
sub formateFilter {
# If user is authenticated with LA, it's OK
return PE_OK;
}
sub connectLDAP {
# If user is authenticated with LA, abort LDAP connection
return PE_OK;
}
sub bind {
# No need to bind
return PE_OK;
}
sub search {
# vérifie la chaîne de confiance LA
}
sub setSessionInfo {
# We have to get user information here
# Use disco service with attribute provider ?
}
sub unbind {
# No need to unbind
return PE_OK;
}
1;
__END__
=head1 NAME
Lemonldap::NG::Portal::SharedConf::LA - Provide Liberty Alliance Authentication
=head1 SYNOPSIS
=head1 DESCRIPTION
=head1 SEE ALSO
L<Lemonldap::NG::Portal::SharedConf>, L<Lemonldap::NG::Portal>,
L<Lemonldap::NG::Handler>, L<Lemonldap::NG::Manager>
=head1 AUTHOR
Xavier Guimard, E<lt>x.guimard@free.frE<gt>
=head1 COPYRIGHT AND LICENSE
Copyright (C) 2005 by Xavier Guimard E<lt>x.guimard@free.frE<gt>
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have available.
=cut
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment