From a5f6484478072e359834bb1b83a29cf4dcd2539c Mon Sep 17 00:00:00 2001
From: "Paul Buetow (europa)" <paul@buetow.org>
Date: Fri, 24 Jul 2015 23:53:06 +0100
Subject: introducing host aliasing

---
 Xerl/Setup/Configure.pm | 18 ++++++++++++++----
 1 file changed, 14 insertions(+), 4 deletions(-)

(limited to 'Xerl')

diff --git a/Xerl/Setup/Configure.pm b/Xerl/Setup/Configure.pm
index bdd23b9..dfacc1d 100644
--- a/Xerl/Setup/Configure.pm
+++ b/Xerl/Setup/Configure.pm
@@ -64,8 +64,9 @@ sub defaults {
   $self->set_hostname( lc $hostname )
     unless $self->hostname_exists();
 
-  unless ( -d $self->get_hostroot() . $self->get_host() ) {
-    my $redirect = $self->get_hostroot() . 'redirect:' . $self->get_host();
+  my $host = $self->get_host();
+  unless ( -d $self->get_hostroot() . $host ) {
+    my $redirect = $self->get_hostroot() . 'redirect:' . $host;
 
     if ( -f $redirect ) {
       my $file = Xerl::Tools::FileIO->new( 'path' => $redirect );
@@ -76,13 +77,22 @@ sub defaults {
       $self->set_finish_request(1);
     }
 
-    my $alias = $self->get_hostroot() . 'alias:' . $self->get_host();
+    my $alias = $self->get_hostroot() . 'alias:' . $host;
+    my $alias_host = '';
+
+    unless ( -f $alias ) {
+      my ($hostname, @domain) = split /\./, $host;
+      my $domain = join '.', @domain;
+      $alias = $self->get_hostroot() . 'alias:' . $domain;
+      $alias_host = "$hostname.";
+    }
 
     if ( -f $alias ) {
       my $file = Xerl::Tools::FileIO->new( 'path' => $alias );
+      $alias_host .= $file->shift();
 
       $file->fslurp();
-      $self->set_host( $file->shift() );
+      $self->set_host( $alias_host );
     }
   }
 
-- 
cgit v1.2.3