Manage exported variables for WebID (#636)
This commit is contained in:
parent
7b9a5b1887
commit
c4f277c8c8
|
@ -1400,6 +1400,13 @@ has 'webIDAuthnLevel' => (
|
|||
documentation => 'WebID authentication level',
|
||||
);
|
||||
|
||||
has 'webIDExportedVars' => (
|
||||
is => 'rw',
|
||||
isa => 'HashRef',
|
||||
default => sub { return {}; },
|
||||
documentation => 'WebID exported variables',
|
||||
);
|
||||
|
||||
has 'whatToTrace' => (
|
||||
is => 'rw',
|
||||
isa => 'Str',
|
||||
|
|
|
@ -132,6 +132,7 @@ sub unserialize {
|
|||
|samlStorageOptions
|
||||
|sessionDataToRemember
|
||||
|vhostOptions
|
||||
|webIDExportedVars
|
||||
)$/
|
||||
and $v ||= {} and not ref($v)
|
||||
)
|
||||
|
|
|
@ -599,10 +599,16 @@ sub struct {
|
|||
|
||||
# WebID
|
||||
webIDParams => {
|
||||
_nodes => [qw(webIDAuthnLevel webIDWhitelist)],
|
||||
_help => 'authWebID',
|
||||
webIDAuthnLevel => 'int:webIDAuthnLevel',
|
||||
webIDWhitelist => 'text:/webIDWhitelist',
|
||||
_nodes =>
|
||||
[qw(webIDAuthnLevel cn:webIDExportedVars webIDWhitelist)],
|
||||
_help => 'authWebID',
|
||||
webIDAuthnLevel => 'int:webIDAuthnLevel',
|
||||
webIDExportedVars => {
|
||||
_nodes => ['hash:/webIDExportedVars:vars:btext'],
|
||||
_js => 'hashRoot',
|
||||
_help => 'authWebID',
|
||||
},
|
||||
webIDWhitelist => 'text:/webIDWhitelist',
|
||||
},
|
||||
|
||||
# DBI
|
||||
|
|
|
@ -389,6 +389,7 @@ sub en {
|
|||
virtualHosts => 'Virtual Hosts',
|
||||
warning => 'Warning',
|
||||
webIDAuthnLevel => 'Authentication level',
|
||||
webIDExportedVars => 'Exported variables',
|
||||
webIDParams => 'WebID parameters',
|
||||
webIDWhitelist => 'WebID whitelist',
|
||||
whatToTrace => "REMOTE_USER",
|
||||
|
@ -880,6 +881,7 @@ sub fr {
|
|||
virtualHosts => 'Hôtes virtuels',
|
||||
warning => 'Attention',
|
||||
webIDAuthnLevel => 'Niveau d\'authentification',
|
||||
webIDExportedVars => 'Variables exportées',
|
||||
webIDParams => 'Paramètres WebID',
|
||||
webIDWhitelist => 'Liste blanche WebID',
|
||||
whatToTrace => "REMOTE_USER",
|
||||
|
|
|
@ -45,7 +45,7 @@ sub setSessionInfo {
|
|||
return PE_ERROR;
|
||||
}
|
||||
|
||||
while ( my ( $k, $v ) = each %{ $self->{exportedVars} } ) {
|
||||
while ( my ( $k, $v ) = each ( %{ $self->{exportedVars} } , %{ $self->{webIDExportedVars} } ) ) {
|
||||
my $attr = $k;
|
||||
my $req;
|
||||
$attr =~ s/^!// and $req = 1;
|
||||
|
|
Loading…
Reference in New Issue
Block a user