dani/lemonldap-ng
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

OpenID SREG works !!!

Browse Source
This commit is contained in:
Xavier Guimard 2010-09-29 06:42:48 +00:00
parent 7db3b688fa
commit aa39949546
4 changed files with 16 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
modules/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/AuthOpenID.pm
View File

@ -134,7 +134,7 @@ sub extractFormInfo {
)
{
if ( $v =~ s/^!// ) { push @r, $k }
else { push @o, $k }
else { push @o, $k }
}
else {
$self->lmLog(

1
modules/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/IssuerDBOpenID.pm
View File

@ -173,6 +173,7 @@ sub openIDServer {
},
extensions => {
sreg => sub {
return ( 1, {} ) unless (@_);
require Lemonldap::NG::Portal::OpenID::SREG;
return $self->Lemonldap::NG::Portal::OpenID::SREG::sregHook(@_);
},

30
modules/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/OpenID/SREG.pm
View File

@ -17,7 +17,8 @@ sub sregHook {
my ( $self, $u, $trust_root, $is_id, $is_trusted, $prm ) = splice @_;
my ( @req, @opt );
return 0 unless (%$prm);
# Refuse federation if rejected by user
return 0 if ( $self->param('confirm') == -1 );
return ( 0, $prm ) unless ($is_id);
$self->lmLog( "SREG start", 'debug' );
@ -86,9 +87,6 @@ sub sregHook {
# Now set datas
my ( %r, %msg, %ag );
print STDERR Dumper( $self->{_prm} );
use Data::Dumper;
# Requested parameters: check if already agreed or confirm is set
foreach my $k (@req) {
my $agree = $self->{sessionInfo}->{"_openidTrust$trust_root\_$k"};
@ -105,7 +103,6 @@ sub sregHook {
$self->{sessionInfo}->{ $self->{"openIdSreg_$k"} } || '';
}
# TODO: NOTHING WORKS HERE
# Optional parameters:
foreach my $k (@opt) {
$self->{"openIdSreg_$k"} =~ s/^\$//;
@ -120,23 +117,18 @@ sub sregHook {
}
# If confirmation is returned, check the value for this field
elsif ( $self->param('confirm') ) {
my $ck;
elsif ( $self->param('confirm') == 1 ) {
my $ck = 0;
if ( defined( $self->param("sreg_$k") ) ) {
my $ck = ( $self->param("sreg_$k") == 'OK' );
$ck = ( $self->param("sreg_$k") == 'OK' ) || 0;
}
# Store the value returned
if ( !defined($agree) or $agree != $ck ) {
$self->{sessionInfo}->{"_openidTrust$trust_root\_$k"} =
1;
$self->updateSession(
{ "_openidTrust$trust_root\_$k" => $ck } );
$agree = $ck;
}
# This case happends only if user manipulates form datas
elsif ( not defined($agree) ) {
$accepted = 0;
# Store the value returned
if ( !defined($agree) or $agree != $ck ) {
$self->{sessionInfo}->{"_openidTrust$trust_root\_$k"} = 1;
$self->updateSession(
{ "_openidTrust$trust_root\_$k" => $ck } );
$agree = $ck;
}
}
}

6
modules/lemonldap-ng-portal/lib/Lemonldap/NG/Portal/UserDBOpenID.pm
View File

@ -66,13 +66,13 @@ sub setSessionInfo {
$self->lmLog(
"Required parameter $attr is not provided by OpenID server, aborted",
'warn'
);
);
# TODO: create a PE_* for that
return PE_ERROR;
return PE_ERROR;
}
}
}
}
else {
$self->abort('Only hash reference are supported now in exportedVars');
}