Commit 0821b8da authored by Clément OUDOT's avatar Clément OUDOT

Fix OpenID Issuer with new Net::OpenID::Server version (#LEMONLDAP-753)

git-svn-id: svn://svn.forge.objectweb.org/svnroot/lemonldap/branches/lemonldap-ng_version_1_4-bugfixes@3525 1dbb9719-a921-0410-b57f-c3a383c2c641
parent d7a0e4eb
......@@ -13,7 +13,7 @@ use Lemonldap::NG::Common::Regexp;
#inherits Lemonldap::NG::Portal::OpenID::Server
#link Lemonldap::NG::Portal::OpenID::SREG protected sreg_extension
our $VERSION = '1.0.0';
our $VERSION = '1.4.2';
our $initDone;
BEGIN {
......@@ -151,8 +151,7 @@ sub openIDServer {
my $sub = sub { return $self->param(@_) };
$self->{_openidserver} = Lemonldap::NG::Portal::OpenID::Server->new(
server_secret => sub { return $self->{openIdIssuerSecret} },
post_args => $sub,
get_args => $sub,
args => $sub,
endpoint_url => $self->{_openidPortal},
setup_url => $self->{_openidPortal},
get_user => sub {
......
......@@ -13,12 +13,15 @@ use Lemonldap::NG::Common::Regexp;
use constant DEBUG => 0;
our $VERSION = '1.0.0';
our $VERSION = '1.4.2';
my $OPENID2_NS = qq!http://specs.openid.net/auth/2.0!;
my $OPENID2_ID_SELECT = qq!http://specs.openid.net/auth/2.0/identifier_select!;
*_push_url_arg = *Net::OpenID::Server::_push_url_arg;
*_push_url_arg =
( $Net::OpenID::Server::VERSION >= 1.09 )
? *OpenID::util::push_url_arg
: *Net::OpenID::Server::_push_url_arg;
## @cmethod Lemonldap::NG::Portal::OpenID::Server new(hash opts)
# Call Net::OpenID::Server::new() and store extensions
......@@ -81,7 +84,7 @@ sub _mode_checkid {
my ( %extVars, %is_ext_trusted );
my $is_exts_trusted = 1;
if ( ref( $self->{_extensions} ) ) {
my @list = $self->get_args->();
my @list = $self->args->();
my %extArgs;
foreach my $arg (@list) {
next unless ( $arg =~ /^openid\.(\w+)\.([\w\.]+)?/ );
......
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