TT#35261 fix callroutingverify allowed_cli wildcards

Change-Id: Ice73edfbca3fa64afdf182e4a38c869874e2e438
changes/87/20287/2
Rene Krenn 8 years ago
parent 5c2dab378e
commit 64a96befd8

@ -250,7 +250,9 @@ sub callroutingverify :Chained('/') :PathPart('callroutingverify') :Args(0) {
}
}
}
my $match = map { $_ =~ s/\*/.*/g;
my $match = map { local $_ = $_;
$_ =~ s/\*/.*/g;
$_ =~ s/\?/.?/g;
$data->{caller_in} =~ /^$_$/;
} @{$usr_prefs{allowed_clis}};
if ($match) {

Loading…
Cancel
Save