OpenID: prefill user login with submitted OpenID identity

This commit is contained in:
Clément Oudot 2010-10-01 12:36:45 +00:00
parent 4a181801e5
commit 82feff1eb7

View File

@ -43,6 +43,10 @@ sub issuerForUnAuthUser {
return PE_OPENID_EMPTY; return PE_OPENID_EMPTY;
} }
# Fill user attribute with OpenID user identity
$self->{user} = ( split '/', $self->param('openid.identity') )[-1];
$self->lmLog( "Get OpenID user " . $self->{user}, 'debug' );
if ( $mode eq 'associate' ) { if ( $mode eq 'associate' ) {
return $self->_openIDResponse( $self->openIDServer->_mode_associate() ); return $self->_openIDResponse( $self->openIDServer->_mode_associate() );
} }
@ -204,12 +208,12 @@ sub _openIDResponse {
# TODO # TODO
$self->info( $self->info(
'<h2>' '<h3>'
. sprintf( . sprintf(
&Lemonldap::NG::Portal::_i18n::msg(PM_OPENID_EXCHANGE), &Lemonldap::NG::Portal::_i18n::msg(PM_OPENID_EXCHANGE),
$data->{trust_root} $data->{trust_root}
) )
. "</h2>" . "</h3>"
); );
$self->info( $self->{_openIdTrustExtMsg} ) $self->info( $self->{_openIdTrustExtMsg} )
if ( $self->{_openIdTrustExtMsg} ); if ( $self->{_openIdTrustExtMsg} );