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

Just for aesthetical

Browse Source
This commit is contained in:
Xavier Guimard 2013-09-29 18:06:54 +00:00
parent 187bbe9efa
commit 106de86477
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -42,20 +42,19 @@ sub getUser {
sub setSessionInfo {
my $self = shift;
if ( ref( $self->{exportedVars} ) eq 'HASH' ) {
foreach my $k ( keys %{ $self->{exportedVars} } ) {
while ( my ( $k, $v ) = each %{ $self->{exportedVars} } ) {
my $attr = $k;
my $required = ( $attr =~ s/^!// );
if ( $self->{exportedVars}->{$k} =~
if ( $v =~
/^(?:(?:(?:full|nick)nam|languag|postcod|timezon)e|country|gender|email|dob)$/
)
{
$self->{sessionInfo}->{$attr} =
$self->param("openid.sreg.$self->{exportedVars}->{$k}");
$self->{sessionInfo}->{$attr} = $self->param("openid.sreg.$v");
}
else {
$self->lmLog(
'Ignoring attribute '
. $self->{exportedVars}->{$k}
. $v
. ' which is not a valid OpenID SREG attribute',
'warn'
);