From 1958977906f557524eaf53d4d627a51809c9abeb Mon Sep 17 00:00:00 2001
From: Daniel Berteaud <daniel@firewall-services.com>
Date: Thu, 30 Jan 2014 14:51:58 +0100
Subject: [PATCH] Add support for custom alias on WebAppVirtualHost domains

---
 .../etc/httpd/conf/httpd.conf/WebAppVirtualHost/50Content         | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/root/etc/e-smith/templates/etc/httpd/conf/httpd.conf/WebAppVirtualHost/50Content b/root/etc/e-smith/templates/etc/httpd/conf/httpd.conf/WebAppVirtualHost/50Content
index 347eea0..ca07017 100644
--- a/root/etc/e-smith/templates/etc/httpd/conf/httpd.conf/WebAppVirtualHost/50Content
+++ b/root/etc/e-smith/templates/etc/httpd/conf/httpd.conf/WebAppVirtualHost/50Content
@@ -10,6 +10,7 @@ my $rewrite = $domain->prop('Rewrite') || '';
 my $allow = $domain->prop('AllowHosts') || '';
 my $preserve = $domain->prop('ProxyPreserveHost') || 'no';
 my $keepalive = $domain->prop('ProxyNoKeepAlive') || 'no';
+my @alias = split /[,;]/, ($domain->prop('Alias') || '');
 my @env = split(/[;,]/, ($domain->prop('SetEnv') || ''));
 my $auth = $domain->prop('Authentication') || 'none';
 my @groups = split(/[;,]/, ($domain->prop('AllowGroups') || ''));
@@ -44,6 +45,13 @@ else{
     $OUT .= "    DocumentRoot $root\n";
 }
 
+foreach (@alias){
+    next unless $_ =~ m/^(\/\w+)=(\/.*)/;
+    my ($al, $targ) = ($1, $2);
+    next unless (-e $2);
+    $OUT .= "    Alias $al $targ\n";
+}
+
 foreach (@env){
     next unless (m/^(.*)=(.*)$/);
     $OUT .= "    SetEnv $1 $2\n";