From 1e26aca59db3ff67c7a7576fb7d387a3793f0db4 Mon Sep 17 00:00:00 2001 From: "Paul Buetow (mars.fritz.box)" Date: Sat, 22 Mar 2014 11:53:21 +0100 Subject: fix --- Xerl/Page/Templates.pm | 2 +- Xerl/Setup/Configure.pm | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/Xerl/Page/Templates.pm b/Xerl/Page/Templates.pm index c297d15..28a1d93 100644 --- a/Xerl/Page/Templates.pm +++ b/Xerl/Page/Templates.pm @@ -1,4 +1,4 @@ -# Xerl (c) 2005-2011, 2013 Dipl.-Inform. (FH) Paul C. Buetow +# Xerl (c) 2005-2011, 2013, 2014 Dipl.-Inform. (FH) Paul C. Buetow # # E-Mail: xerl@dev.buetow.org WWW: http://xerl.buetow.org # diff --git a/Xerl/Setup/Configure.pm b/Xerl/Setup/Configure.pm index d01e5a5..18c49fe 100644 --- a/Xerl/Setup/Configure.pm +++ b/Xerl/Setup/Configure.pm @@ -1,4 +1,4 @@ -# Xerl (c) 2005-2011, 2013 Dipl.-Inform. (FH) Paul C. Buetow +# Xerl (c) 2005-2011, 2013, 2014 Dipl.-Inform. (FH) Paul C. Buetow # # E-Mail: xerl@dev.buetow.org WWW: http://xerl.buetow.org # @@ -61,7 +61,7 @@ sub defaults($) { $self->set_host( lc $ENV{HTTP_HOST} ) unless $self->host_exists(); - my ($hostname) = $ENV{HTTP_HOST} =~ /^(.*)\./; + my ($hostname) = $ENV{HTTP_HOST} =~ /^([^\.]*)\./; $self->set_hostname( lc $hostname ) unless $self->hostname_exists(); -- cgit v1.2.3