59 lines
1.1 KiB
Perl
59 lines
1.1 KiB
Perl
package Lemonldap::NG::Portal::UserDB::WebID;
|
|
|
|
use strict;
|
|
use Mouse;
|
|
use Lemonldap::NG::Portal::Main::Constants qw(
|
|
PE_ERROR
|
|
PE_MISSINGREQATTR
|
|
PE_OK
|
|
);
|
|
|
|
extends 'Lemonldap::NG::Common::Module';
|
|
|
|
our $VERSION = '2.1.0';
|
|
|
|
# INITIALIZATION
|
|
|
|
sub init {
|
|
1;
|
|
}
|
|
|
|
# RUNNING METHODS
|
|
|
|
sub getUser {
|
|
PE_OK;
|
|
}
|
|
|
|
sub setSessionInfo {
|
|
my ( $self, $req ) = @_;
|
|
unless ( $req->data->{_webid} ) {
|
|
$self->logger->error('No webid object found');
|
|
return PE_ERROR;
|
|
}
|
|
|
|
my %vars = (
|
|
%{ $self->conf->{exportedVars} },
|
|
%{ $self->conf->{webIDExportedVars} }
|
|
);
|
|
while ( my ( $k, $v ) = each %vars ) {
|
|
my $attr = $k;
|
|
my $req;
|
|
$attr =~ s/^!// and $req = 1;
|
|
eval { $req->{sessionInfo}->{$attr} = $req->data->{_webid}->get($v) };
|
|
$self->logger->error("Unable to get $v from FOAF document: $@")
|
|
if ($@);
|
|
if ( $req and not $req->{sessionInfo}->{$attr} ) {
|
|
$self->userLogger->warn(
|
|
"Required attribute $v is missing (user: $req->{user})");
|
|
return PE_MISSINGREQATTR;
|
|
}
|
|
}
|
|
PE_OK;
|
|
}
|
|
|
|
sub setGroups {
|
|
PE_OK;
|
|
}
|
|
|
|
1;
|