|
|
|
@ -27,7 +27,7 @@ sub types { |
|
|
|
|
|
|
|
|
|
BEGIN { |
|
|
|
|
${^WARNING_BITS} = |
|
|
|
|
"\x54\x55\x55\x55\x15\x55\x55\x55\x55\x55\x51\x55\x55\x55\x55\x55\x55"; |
|
|
|
|
"\x54\x55\x55\x55\x15\x55\x55\x55\x55\x55\x51\x55\x55\x55\x55\x55\x55\x05"; |
|
|
|
|
} |
|
|
|
|
eval "$s $val"; |
|
|
|
|
my $err = join( |
|
|
|
@ -651,7 +651,7 @@ sub attributes { |
|
|
|
|
|
|
|
|
|
BEGIN { |
|
|
|
|
${^WARNING_BITS} = |
|
|
|
|
"\x54\x55\x55\x55\x15\x55\x55\x55\x55\x55\x51\x55\x55\x55\x55\x55\x55"; |
|
|
|
|
"\x54\x55\x55\x55\x15\x55\x55\x55\x55\x55\x51\x55\x55\x55\x55\x55\x55\x05"; |
|
|
|
|
} |
|
|
|
|
eval "$s $val"; |
|
|
|
|
my $err = join( |
|
|
|
@ -1004,7 +1004,7 @@ qr/^(?:(?:(?:(?:[a-zA-Z0-9][-a-zA-Z0-9]*)?[a-zA-Z0-9])[.])*(?:[a-zA-Z][-a-zA-Z0- |
|
|
|
|
|
|
|
|
|
BEGIN { |
|
|
|
|
${^WARNING_BITS} = |
|
|
|
|
"\x54\x55\x55\x55\x15\x55\x55\x55\x55\x55\x51\x55\x55\x55\x55\x55\x55"; |
|
|
|
|
"\x54\x55\x55\x55\x15\x55\x55\x55\x55\x55\x51\x55\x55\x55\x55\x55\x55\x05"; |
|
|
|
|
} |
|
|
|
|
eval $s; |
|
|
|
|
my $err = join( |
|
|
|
@ -1086,7 +1086,7 @@ qr/^(?:(?:(?:(?:[a-zA-Z0-9][-a-zA-Z0-9]*)?[a-zA-Z0-9])[.])*(?:[a-zA-Z][-a-zA-Z0- |
|
|
|
|
|
|
|
|
|
BEGIN { |
|
|
|
|
${^WARNING_BITS} = |
|
|
|
|
"\x54\x55\x55\x55\x15\x55\x55\x55\x55\x55\x51\x55\x55\x55\x55\x55\x55"; |
|
|
|
|
"\x54\x55\x55\x55\x15\x55\x55\x55\x55\x55\x51\x55\x55\x55\x55\x55\x55\x05"; |
|
|
|
|
} |
|
|
|
|
eval "$s $val"; |
|
|
|
|
my $err = join( |
|
|
|
@ -1109,7 +1109,7 @@ qr/^(?:(?:(?:(?:[a-zA-Z0-9][-a-zA-Z0-9]*)?[a-zA-Z0-9])[.])*(?:[a-zA-Z][-a-zA-Z0- |
|
|
|
|
|
|
|
|
|
BEGIN { |
|
|
|
|
${^WARNING_BITS} = |
|
|
|
|
"\x54\x55\x55\x55\x15\x55\x55\x55\x55\x55\x51\x55\x55\x55\x55\x55\x55"; |
|
|
|
|
"\x54\x55\x55\x55\x15\x55\x55\x55\x55\x55\x51\x55\x55\x55\x55\x55\x55\x05"; |
|
|
|
|
} |
|
|
|
|
eval "$s $val"; |
|
|
|
|
my $err = join( |
|
|
|
@ -1432,7 +1432,7 @@ qr/^(?:(?:(?:(?:[a-zA-Z0-9][-a-zA-Z0-9]*)?[a-zA-Z0-9])[.])*(?:[a-zA-Z][-a-zA-Z0- |
|
|
|
|
|
|
|
|
|
BEGIN { |
|
|
|
|
${^WARNING_BITS} = |
|
|
|
|
"\x54\x55\x55\x55\x15\x55\x55\x55\x55\x55\x51\x55\x55\x55\x55\x55\x55"; |
|
|
|
|
"\x54\x55\x55\x55\x15\x55\x55\x55\x55\x55\x51\x55\x55\x55\x55\x55\x55\x05"; |
|
|
|
|
} |
|
|
|
|
eval $s; |
|
|
|
|
my $err = join( |
|
|
|
@ -1469,7 +1469,7 @@ qr/^(?:(?:(?:(?:[a-zA-Z0-9][-a-zA-Z0-9]*)?[a-zA-Z0-9])[.])*(?:[a-zA-Z][-a-zA-Z0- |
|
|
|
|
|
|
|
|
|
BEGIN { |
|
|
|
|
${^WARNING_BITS} = |
|
|
|
|
"\x54\x55\x55\x55\x15\x55\x55\x55\x55\x55\x51\x55\x55\x55\x55\x55\x55"; |
|
|
|
|
"\x54\x55\x55\x55\x15\x55\x55\x55\x55\x55\x51\x55\x55\x55\x55\x55\x55\x05"; |
|
|
|
|
} |
|
|
|
|
eval "$s $val"; |
|
|
|
|
my $err = join( |
|
|
|
@ -1817,7 +1817,7 @@ qr/^(?:(?:(?:(?:[a-zA-Z0-9][-a-zA-Z0-9]*)?[a-zA-Z0-9])[.])*(?:[a-zA-Z][-a-zA-Z0- |
|
|
|
|
|
|
|
|
|
BEGIN { |
|
|
|
|
${^WARNING_BITS} = |
|
|
|
|
"\x54\x55\x55\x55\x15\x55\x55\x55\x55\x55\x51\x55\x55\x55\x55\x55\x55"; |
|
|
|
|
"\x54\x55\x55\x55\x15\x55\x55\x55\x55\x55\x51\x55\x55\x55\x55\x55\x55\x05"; |
|
|
|
|
} |
|
|
|
|
eval "$s $val"; |
|
|
|
|
my $err = join( |
|
|
|
@ -2077,6 +2077,10 @@ qr/^(?:(?:(?:(?:[a-zA-Z0-9][-a-zA-Z0-9]*)?[a-zA-Z0-9])[.])*(?:[a-zA-Z][-a-zA-Z0- |
|
|
|
|
'default' => 1, |
|
|
|
|
'type' => 'bool' |
|
|
|
|
}, |
|
|
|
|
'portalErrorOnMailNotFound' => { |
|
|
|
|
'default' => 0, |
|
|
|
|
'type' => 'bool' |
|
|
|
|
}, |
|
|
|
|
'portalForceAuthnInterval' => { |
|
|
|
|
'default' => 5, |
|
|
|
|
'type' => 'int' |
|
|
|
@ -2146,7 +2150,7 @@ qr/^(?:(?:(?:(?:[a-zA-Z0-9][-a-zA-Z0-9]*)?[a-zA-Z0-9])[.])*(?:[a-zA-Z][-a-zA-Z0- |
|
|
|
|
|
|
|
|
|
BEGIN { |
|
|
|
|
${^WARNING_BITS} = |
|
|
|
|
"\x54\x55\x55\x55\x15\x55\x55\x55\x55\x55\x51\x55\x55\x55\x55\x55\x55"; |
|
|
|
|
"\x54\x55\x55\x55\x15\x55\x55\x55\x55\x55\x51\x55\x55\x55\x55\x55\x55\x05"; |
|
|
|
|
} |
|
|
|
|
eval "$s $val"; |
|
|
|
|
my $err = join( |
|
|
|
@ -2816,7 +2820,7 @@ qr/(?:(?:https?):\/\/(?:(?:(?:(?:(?:(?:[a-zA-Z0-9][-a-zA-Z0-9]*)?[a-zA-Z0-9])[.] |
|
|
|
|
|
|
|
|
|
BEGIN { |
|
|
|
|
${^WARNING_BITS} = |
|
|
|
|
"\x54\x55\x55\x55\x15\x55\x55\x55\x55\x55\x51\x55\x55\x55\x55\x55\x55"; |
|
|
|
|
"\x54\x55\x55\x55\x15\x55\x55\x55\x55\x55\x51\x55\x55\x55\x55\x55\x55\x05"; |
|
|
|
|
} |
|
|
|
|
eval "$s $val"; |
|
|
|
|
my $err = join( |
|
|
|
|