From 871ce858eec3082c97990e9ab61b4d91c3b4cedc Mon Sep 17 00:00:00 2001 From: Paul Buetow Date: Sun, 6 Mar 2011 18:18:26 +0000 Subject: added ipv6 variable --- Xerl/Page/Configure.pm | 4 +++- Xerl/Page/Templates.pm | 2 +- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/Xerl/Page/Configure.pm b/Xerl/Page/Configure.pm index a1a5e74..b8f9acd 100644 --- a/Xerl/Page/Configure.pm +++ b/Xerl/Page/Configure.pm @@ -1,4 +1,4 @@ -# Xerl (c) 2005-2009, Dipl.-Inform. (FH) Paul C. Buetow +# Xerl (c) 2005-2011, Dipl.-Inform. (FH) Paul C. Buetow # # E-Mail: xerl@dev.buetow.org WWW: http://xerl.buetow.org # @@ -128,6 +128,8 @@ sub defaults($) { $self->set_contentpath( $self->get_hostpath() . 'content/' ); + $self->set_ipv6( $ENV{REMOTE_ADDR} =~ /:/ ? 1 : 0 ); + return undef; } diff --git a/Xerl/Page/Templates.pm b/Xerl/Page/Templates.pm index 379fbe9..3f41320 100644 --- a/Xerl/Page/Templates.pm +++ b/Xerl/Page/Templates.pm @@ -1,4 +1,4 @@ -# Xerl (c) 2005-2009, Dipl.-Inform. (FH) Paul C. Buetow +# Xerl (c) 2005-2011, Dipl.-Inform. (FH) Paul C. Buetow # # E-Mail: xerl@dev.buetow.org WWW: http://xerl.buetow.org # -- cgit v1.2.3