Commit c892cfa4 authored by IKEDA Soji's avatar IKEDA Soji
Browse files

Scenario: bug fix: If regexp argument contains "[domain]", metacharacetrs in...

Scenario: bug fix: If regexp argument contains "[domain]", metacharacetrs in domain won't be escaped.
parent 314d897f
......@@ -641,14 +641,21 @@ sub _verify {
) {
my $value = $1;
if ($value =~ m{\A/(.+)/\z}) {
$value = $1;
my $domain_re = $context->{'domain'};
$domain_re =~ s/[.]/[.]/g;
$value =~ s/[[](domain|host)[]]/$domain_re/g;
}
## Custom vars
if ($value =~ /\[custom_vars\-\>([\w\-]+)\]/i) {
elsif ($value =~ /\[custom_vars\-\>([\w\-]+)\]/i) {
$value =~
s/\[custom_vars\-\>([\w\-]+)\]/$context->{'custom_vars'}{$1}/;
}
## Family vars
if ($value =~ /\[family\-\>([\w\-]+)\]/i) {
elsif ($value =~ /\[family\-\>([\w\-]+)\]/i) {
$value =~ s/\[family\-\>([\w\-]+)\]/$context->{'family'}{$1}/;
}
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment