Skeleton of LA authentication module

modules/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/AuthLA.pm

@@ -0,0 +1,91 @@
+#==============================================================================
+# 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