diff options
| author | Paul Buetow <paul@buetow.org> | 2011-03-06 18:18:26 +0000 |
|---|---|---|
| committer | Paul Buetow <paul@buetow.org> | 2011-03-06 18:18:26 +0000 |
| commit | 871ce858eec3082c97990e9ab61b4d91c3b4cedc (patch) | |
| tree | 94b2f56ce23e943a306b0109de320be9f55faa83 | |
| parent | 213033db33be271791f2d9ff1c9c44c0bed79f18 (diff) | |
added ipv6 variable
| -rw-r--r-- | Xerl/Page/Configure.pm | 4 | ||||
| -rw-r--r-- | 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 # |