diff options
Diffstat (limited to 'Xerl/Setup/Configure.pm')
| -rw-r--r-- | Xerl/Setup/Configure.pm | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/Xerl/Setup/Configure.pm b/Xerl/Setup/Configure.pm index d32511a..d01e5a5 100644 --- a/Xerl/Setup/Configure.pm +++ b/Xerl/Setup/Configure.pm @@ -61,6 +61,11 @@ sub defaults($) { $self->set_host( lc $ENV{HTTP_HOST} ) unless $self->host_exists(); + my ($hostname) = $ENV{HTTP_HOST} =~ /^(.*)\./; + + $self->set_hostname( lc $hostname ) + unless $self->hostname_exists(); + unless ( -d $self->get_hostroot() . $self->get_host() ) { my $redirect = $self->get_hostroot() . 'redirect:' . $self->get_host(); |