diff options
| author | Paul Buetow (mars.fritz.box) <paul@buetow.org> | 2014-03-22 11:53:21 +0100 |
|---|---|---|
| committer | Paul Buetow (mars.fritz.box) <paul@buetow.org> | 2014-03-22 11:53:21 +0100 |
| commit | 1e26aca59db3ff67c7a7576fb7d387a3793f0db4 (patch) | |
| tree | 4f79e860dc7322155d7d8514f30940ed162c73b0 | |
| parent | 75c6eaf9178173357e6cb538e3b3241a8dadeac8 (diff) | |
fix
| -rw-r--r-- | Xerl/Page/Templates.pm | 2 | ||||
| -rw-r--r-- | 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(); |