Xavier Guimard
16 years ago
parent
87f9aba37e
commit
a98e3ac8bb
@ -0,0 +1,80 @@ |
||||
## @file |
||||
# SAML Consumer skeleton |
||||
|
||||
## @class |
||||
# SAML Consumer skeleton |
||||
package Lemonldap::NG::Portal::AuthSAML; |
||||
|
||||
use strict; |
||||
use Lemonldap::NG::Portal::Simple; |
||||
|
||||
## @apmethod int authInit() |
||||
# TODO |
||||
# Check SAML Consumer configuration. |
||||
# @return Lemonldap::NG::Portal error code |
||||
sub authInit { |
||||
my $self = shift; |
||||
$self->lmLog( 'This module is not yet usable', 'error' ); |
||||
PE_ERROR; |
||||
} |
||||
|
||||
## @apmethod int extractFormInfo() |
||||
# TODO |
||||
# @return Lemonldap::NG::Portal error code |
||||
sub extractFormInfo { |
||||
PE_OK; |
||||
} |
||||
|
||||
## @apmethod int setAuthSessionInfo() |
||||
# TODO |
||||
# @return Lemonldap::NG::Portal error code |
||||
sub setAuthSessionInfo { |
||||
PE_OK; |
||||
} |
||||
|
||||
## @apmethod int authenticate() |
||||
# Does nothing here |
||||
# @return PE_OK |
||||
sub authenticate { |
||||
PE_OK; |
||||
} |
||||
|
||||
## @apmethod void authLogout() |
||||
# TODO |
||||
sub authLogout { |
||||
} |
||||
|
||||
1; |
||||
__END__ |
||||
|
||||
=head1 NAME |
||||
|
||||
Lemonldap::NG::Portal::AuthSAML - TODO |
||||
|
||||
=head1 SYNOPSIS |
||||
|
||||
use Lemonldap::NG::Portal::AuthSAML; |
||||
#TODO |
||||
|
||||
=head1 DESCRIPTION |
||||
|
||||
TODO |
||||
|
||||
=head1 SEE ALSO |
||||
|
||||
L<Lemonldap::NG::Portal> |
||||
|
||||
=head1 AUTHOR |
||||
|
||||
Xavier Guimard, E<lt>x.guimard@free.frE<gt> |
||||
|
||||
=head1 COPYRIGHT AND LICENSE |
||||
|
||||
Copyright (C) 2009 by Xavier Guimard |
||||
|
||||
This library is free software; you can redistribute it and/or modify |
||||
it under the same terms as Perl itself, either Perl version 5.10.0 or, |
||||
at your option, any later version of Perl 5 you may have available. |
||||
|
||||
|
||||
=cut |
||||
@ -0,0 +1,74 @@ |
||||
## @file |
||||
# SAML Issuer skeleton |
||||
|
||||
## @class |
||||
# SAML Issuer skeleton |
||||
package Lemonldap::NG::Portal::SAMLIssuer; |
||||
|
||||
use strict; |
||||
use Lemonldap::NG::Portal::Simple; |
||||
|
||||
our $VERSION = '0.01'; |
||||
|
||||
## @method void SAMLIssuerInit() |
||||
# TODO |
||||
# Load and check SAML Issuer configuration |
||||
sub SAMLIssuerInit { |
||||
my $self = shift; |
||||
$self->abort('This feature is not released'); |
||||
return PE_OK; |
||||
} |
||||
|
||||
## @method int SAMLForUnAuthUser() |
||||
# TODO |
||||
# Check if there is an SAML authentication request. |
||||
# Called only for unauthenticated users, it store SAML request in |
||||
# $self->{url} |
||||
# @return Lemonldap::NG::Portal error code |
||||
sub SAMLForUnAuthUser { |
||||
PE_OK; |
||||
} |
||||
|
||||
## @method int SAMLForAuthUser() |
||||
# TODO |
||||
# Check if there is an SAML authentication request for an authenticated user |
||||
# and build assertions |
||||
# @return Lemonldap::NG::Portal error code |
||||
sub SAMLForAuthUser { |
||||
PE_OK; |
||||
} |
||||
|
||||
1; |
||||
__END__ |
||||
|
||||
=head1 NAME |
||||
|
||||
Lemonldap::NG::Portal::SAMLIssuer - TODO |
||||
|
||||
=head1 SYNOPSIS |
||||
|
||||
use Lemonldap::NG::Portal::SAMLIssuer; |
||||
#TODO |
||||
|
||||
=head1 DESCRIPTION |
||||
|
||||
TODO |
||||
|
||||
=head1 SEE ALSO |
||||
|
||||
L<Lemonldap::NG::Portal> |
||||
|
||||
=head1 AUTHOR |
||||
|
||||
Xavier Guimard, E<lt>x.guimard@free.frE<gt> |
||||
|
||||
=head1 COPYRIGHT AND LICENSE |
||||
|
||||
Copyright (C) 2009 by Xavier Guimard |
||||
|
||||
This library is free software; you can redistribute it and/or modify |
||||
it under the same terms as Perl itself, either Perl version 5.10.0 or, |
||||
at your option, any later version of Perl 5 you may have available. |
||||
|
||||
|
||||
=cut |
||||
@ -0,0 +1,75 @@ |
||||
## @file |
||||
# UserDB SAML module |
||||
|
||||
## @class |
||||
# UserDB SAML module |
||||
package Lemonldap::NG::Portal::UserDBSAML; |
||||
|
||||
use strict; |
||||
use Lemonldap::NG::Portal::Simple; |
||||
|
||||
our $VERSION = '0.01'; |
||||
|
||||
## @apmethod int userDBInit() |
||||
# Check if authentication module is SAML |
||||
# @return Lemonldap::NG::Portal error code |
||||
sub userDBInit { |
||||
my $self = shift; |
||||
if ( $self->{authentication} =~ /^SAML/ |
||||
or $self->{stack}->[0]->[0]->{m} =~ /^SAML/ ) |
||||
{ |
||||
return PE_OK; |
||||
} |
||||
else { |
||||
return PE_ERROR; |
||||
} |
||||
} |
||||
|
||||
## @apmethod int getUser() |
||||
# Does nothing |
||||
# @return Lemonldap::NG::Portal error code |
||||
sub getUser { |
||||
PE_OK; |
||||
} |
||||
|
||||
## @apmethod int setSessionInfo() |
||||
# Does nothing |
||||
# @return Lemonldap::NG::Portal error code |
||||
sub setSessionInfo { |
||||
PE_OK; |
||||
} |
||||
|
||||
1; |
||||
__END__ |
||||
|
||||
=head1 NAME |
||||
|
||||
Lemonldap::NG::Portal::UserDBSAML - TODO |
||||
|
||||
=head1 SYNOPSIS |
||||
|
||||
use Lemonldap::NG::Portal::UserDBSAML; |
||||
#TODO |
||||
|
||||
=head1 DESCRIPTION |
||||
|
||||
TODO |
||||
|
||||
=head1 SEE ALSO |
||||
|
||||
L<Lemonldap::NG::Portal> |
||||
|
||||
=head1 AUTHOR |
||||
|
||||
Xavier Guimard, E<lt>x.guimard@free.frE<gt> |
||||
|
||||
=head1 COPYRIGHT AND LICENSE |
||||
|
||||
Copyright (C) 2009 by Xavier Guimard |
||||
|
||||
This library is free software; you can redistribute it and/or modify |
||||
it under the same terms as Perl itself, either Perl version 5.10.0 or, |
||||
at your option, any later version of Perl 5 you may have available. |
||||
|
||||
|
||||
=cut |
||||
@ -0,0 +1,45 @@ |
||||
## @file |
||||
# Common SAML functions |
||||
|
||||
## @class |
||||
# Common SAML functions |
||||
package Lemonldap::NG::Portal::_SAML; |
||||
|
||||
use strict; |
||||
|
||||
our $VERSION = '0.01'; |
||||
|
||||
1; |
||||
__END__ |
||||
|
||||
=head1 NAME |
||||
|
||||
Lemonldap::NG::Portal::_SAML - TODO |
||||
|
||||
=head1 SYNOPSIS |
||||
|
||||
use Lemonldap::NG::Portal::_SAML; |
||||
#TODO |
||||
|
||||
=head1 DESCRIPTION |
||||
|
||||
TODO |
||||
|
||||
=head1 SEE ALSO |
||||
|
||||
L<Lemonldap::NG::Portal> |
||||
|
||||
=head1 AUTHOR |
||||
|
||||
Xavier Guimard, E<lt>x.guimard@free.frE<gt> |
||||
|
||||
=head1 COPYRIGHT AND LICENSE |
||||
|
||||
Copyright (C) 2009 by Xavier Guimard |
||||
|
||||
This library is free software; you can redistribute it and/or modify |
||||
it under the same terms as Perl itself, either Perl version 5.10.0 or, |
||||
at your option, any later version of Perl 5 you may have available. |
||||
|
||||
|
||||
=cut |
||||
@ -0,0 +1,15 @@ |
||||
# Before `make install' is performed this script should be runnable with |
||||
# `make test'. After `make install' it should work as `perl Lemonldap-NG-Portal-SAMLIssuer.t' |
||||
|
||||
######################### |
||||
|
||||
# change 'tests => 1' to 'tests => last_test_to_print'; |
||||
|
||||
use Test::More tests => 1; |
||||
BEGIN { use_ok('Lemonldap::NG::Portal::SAMLIssuer') }; |
||||
|
||||
######################### |
||||
|
||||
# Insert your test code below, the Test::More module is use()ed here so read |
||||
# its man page ( perldoc Test::More ) for help writing this test script. |
||||
|
||||
@ -0,0 +1,15 @@ |
||||
# Before `make install' is performed this script should be runnable with |
||||
# `make test'. After `make install' it should work as `perl Lemonldap-NG-Portal-AuthSAML.t' |
||||
|
||||
######################### |
||||
|
||||
# change 'tests => 1' to 'tests => last_test_to_print'; |
||||
|
||||
use Test::More tests => 1; |
||||
BEGIN { use_ok('Lemonldap::NG::Portal::AuthSAML') }; |
||||
|
||||
######################### |
||||
|
||||
# Insert your test code below, the Test::More module is use()ed here so read |
||||
# its man page ( perldoc Test::More ) for help writing this test script. |
||||
|
||||
@ -0,0 +1,15 @@ |
||||
# Before `make install' is performed this script should be runnable with |
||||
# `make test'. After `make install' it should work as `perl Lemonldap-NG-Portal-UserDBSAML.t' |
||||
|
||||
######################### |
||||
|
||||
# change 'tests => 1' to 'tests => last_test_to_print'; |
||||
|
||||
use Test::More tests => 1; |
||||
BEGIN { use_ok('Lemonldap::NG::Portal::UserDBSAML') }; |
||||
|
||||
######################### |
||||
|
||||
# Insert your test code below, the Test::More module is use()ed here so read |
||||
# its man page ( perldoc Test::More ) for help writing this test script. |
||||
|
||||
Loading…
Reference in new issue