'*' for trustedDomains

This commit is contained in:
Xavier Guimard 2009-10-02 16:10:23 +00:00
parent 6e113f1107
commit 49cc593005
1 changed files with 4 additions and 1 deletions

View File

@ -201,7 +201,10 @@ sub new {
unless ( defined( $self->{trustedDomains} ) ) {
$self->{trustedDomains} = $self->{domain};
}
if ( $self->{trustedDomains} ) {
if ( $self->{trustedDomains} eq '*' ) {
$self->{trustedDomains} = '|\w[\w\-\.]*\w';
}
elsif ( $self->{trustedDomains} ) {
$self->{trustedDomains} = '|(?:[^/]*)?' . join '|',
map { s/\./\\\./g; $_ } split /\s+/, $self->{trustedDomains};
}