92 lines
2.2 KiB
Perl
92 lines
2.2 KiB
Perl
#==============================================================================
|
|
# 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
|