diff options
Diffstat (limited to 'Xerl/Setup/Configure.pm')
| -rw-r--r-- | Xerl/Setup/Configure.pm | 13 |
1 files changed, 9 insertions, 4 deletions
diff --git a/Xerl/Setup/Configure.pm b/Xerl/Setup/Configure.pm index f58b51b..e490c82 100644 --- a/Xerl/Setup/Configure.pm +++ b/Xerl/Setup/Configure.pm @@ -40,6 +40,8 @@ sub parse { sub defaults { my $self = $_[0]; + $self->set_is_ipv6( $ENV{REMOTE_ADDR} =~ /:/ ? 1 : 0 ); + $self->set_proto('http') if exists $ENV{HTTPS}; $self->set_site( $self->get_defaultcontent() ) @@ -50,8 +52,13 @@ sub defaults { $self->set_template( $self->get_defaulttemplate() ) unless $self->template_exists(); - $self->set_style( $self->get_defaultstyle() ) - unless $self->style_exists(); + unless ($self->style_exists()) { + if ($self->get_is_ipv6()) { + $self->set_style( $self->get_ipv6style() ) + } else { + $self->set_style( $self->get_defaultstyle() ) + } + } $self->set_proto( $self->get_defaultproto() ) unless $self->proto_exists(); @@ -129,8 +136,6 @@ sub defaults { $self->set_contentpath( $self->get_hostpath() . 'content/' ); - $self->set_is_ipv6( $ENV{REMOTE_ADDR} =~ /:/ ? 1 : 0 ); - return undef; } |
