#28 in progress
This commit is contained in:
parent
c80795805a
commit
85d384bac1
@ -106,9 +106,15 @@ sub sregHook {
|
|||||||
my ( %r, @req, @opt );
|
my ( %r, @req, @opt );
|
||||||
while ( my ( $k, $v ) = each %prm ) {
|
while ( my ( $k, $v ) = each %prm ) {
|
||||||
if ( $k eq 'policy_url' ) {
|
if ( $k eq 'policy_url' ) {
|
||||||
if ( $v =~ m{^https?://\S+} ) {
|
if ( $v =~
|
||||||
|
m{^https?://(?:(?:(?:(?:(?:(?:[a-zA-Z0-9][-a-zA-Z0-9]*)?[a-zA-Z0-9])[.])*(?:[a-zA-Z][-a-zA-Z0-9]*[a-zA-Z0-9]|[a-zA-Z])[.]?)|(?:[0-9]+[.][0-9]+[.][0-9]+[.][0-9]+)))(?::(?:(?:[0-9]*)))?(?:/(?:(?:(?:(?:(?:(?:[a-zA-Z0-9\-_.!~*'():@&=+\$,]+|(?:%[a-fA-F0-9][a-fA-F0-9]))*)(?:;(?:(?:[a-zA-Z0-9\-_.!~*'():@&=+\$,]+|(?:%[a-fA-F0-9][a-fA-F0-9]))*))*)(?:/(?:(?:(?:[a-zA-Z0-9\-_.!~*'():@&=+\$,]+|(?:%[a-fA-F0-9][a-fA-F0-9]))*)(?:;(?:(?:[a-zA-Z0-9\-_.!~*'():@&=+\$,]+|(?:%[a-fA-F0-9][a-fA-F0-9]))*))*))*))))?$}
|
||||||
|
)
|
||||||
|
{
|
||||||
$self->{openIdCustomerPolicy} = $v;
|
$self->{openIdCustomerPolicy} = $v;
|
||||||
}
|
}
|
||||||
|
else {
|
||||||
|
$self->lmLog( "Bad policy url", 'error' );
|
||||||
|
}
|
||||||
}
|
}
|
||||||
elsif ( $k eq 'required' ) {
|
elsif ( $k eq 'required' ) {
|
||||||
push @req, split( /,/, $v );
|
push @req, split( /,/, $v );
|
||||||
|
Loading…
Reference in New Issue
Block a user