From c0a01cfcce16376b75fa0860a1fdf30d7d50b482 Mon Sep 17 00:00:00 2001 From: "admin (deltavega)" Date: Sat, 22 Dec 2018 13:45:48 +0100 Subject: use different style when connected via ipv6 --- Xerl/Setup/Configure.pm | 13 +++++++++---- 1 file changed, 9 insertions(+), 4 deletions(-) (limited to 'Xerl/Setup') 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; } -- cgit v1.2.3