Use attribute or macro for issuerDBGetParameters (#LEMONLDAP=1025)
This commit is contained in:
parent
0a55cd8489
commit
b9efa8cbf8
|
@ -784,19 +784,15 @@ sub attributes {
|
|||
keyMsgFail => '__badKeyName__',
|
||||
test => sub {
|
||||
my ( $val, $conf ) = @_;
|
||||
my $s = $val;
|
||||
my @cf =
|
||||
qw(encode_base64 checkLogonHours date checkDate basic unicode2iso iso2unicode groupMatch encrypt);
|
||||
push @cf,
|
||||
defined $conf->{customFunctions}
|
||||
? map { my $f = $_; $f =~ s/\w+:://g; ( $f, $_ ) }
|
||||
split( /\s+/, $conf->{customFunctions} )
|
||||
: ();
|
||||
foreach my $f (@cf) {
|
||||
$s = "sub $f {1} $s";
|
||||
return 1
|
||||
if ( defined $conf->{macros}->{$val}
|
||||
or $val eq '_timezone' );
|
||||
foreach ( keys %$conf ) {
|
||||
return 1
|
||||
if ( $_ =~ /exportedvars$/i
|
||||
and defined $conf->{$_}->{$val} );
|
||||
}
|
||||
eval $s;
|
||||
return $@ ? ( 1, "__badExpression__: $@" ) : (1);
|
||||
return ( 1, "__unknownAttrOrMacro__: $val" );
|
||||
},
|
||||
},
|
||||
documentation => 'List of virtualHosts with their get parameters',
|
||||
|
|
Loading…
Reference in New Issue
Block a user