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

Add extended functions in locationRules test (may close #924)

Browse Source
This commit is contained in:
Xavier Guimard 2016-02-09 22:17:42 +00:00
parent 2dc1750ce7
commit ae7febe69d
2 changed files with 31 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
lemonldap-ng-manager/lib/Lemonldap/NG/Manager/Attributes.pm
View File

@ -1082,14 +1082,22 @@ qr/^(?:(?:(?:(?:[a-zA-Z0-9][-a-zA-Z0-9]*)?[a-zA-Z0-9])[.])*(?:[a-zA-Z][-a-zA-Z0-
my ( $val, $conf ) = @_;
my $s = $val;
$s =~ s/\b(accept|deny)\b/1/g;
if ( $conf->{'customFunctions'} ) {
foreach my $f (
split( /\s+/, $conf->{'customFunctions'}, 0 ) )
{
return 0, "__badCustomFuncName__ $f"
unless $f =~ /^\w+$/;
$s = "sub $f {1} $s";
}
foreach my $f (
split(
/\s+/,
(
defined $conf->{'customFunctions'}
? "$conf->{'customFunctions'} "
: ''
)
. 'checkLogonHours date checkDate basic unicode2iso iso2unicode groupMatch',
0
)
)
{
return 0, "__badCustomFuncName__ $f"
unless $f =~ /^[a-zA-Z]\w*$/;
$s = "sub $f {1} $s";
}
eval $s;
return $@ ? ( 0, "__badExpression__: $@" ) : 1;

22
lemonldap-ng-manager/lib/Lemonldap/NG/Manager/Build/Attributes.pm
View File

@ -884,13 +884,21 @@ sub attributes {
my ( $val, $conf ) = @_;
my $s = $val;
$s =~ s/\b(accept|deny)\b/1/g;
if ( $conf->{customFunctions} ) {
foreach my $f ( split /\s+/, $conf->{customFunctions} )
{
return ( 0, "__badCustomFuncName__ $f" )
unless ( $f =~ /^\w+$/ );
$s = "sub $f {1} $s";
}
foreach my $f (
split(
/\s+/,
(
defined $conf->{customFunctions}
? "$conf->{customFunctions} "
: ''
)
. 'checkLogonHours date checkDate basic unicode2iso iso2unicode groupMatch',
)
)
{
return ( 0, "__badCustomFuncName__ $f" )
unless ( $f =~ /^[a-zA-Z]\w*$/ );
$s = "sub $f {1} $s";
}
eval $s;
return $@ ? ( 0, "__badExpression__: $@" ) : (1);