|
|
@ -10,6 +10,7 @@ my $rewrite = $domain->prop('Rewrite') || ''; |
|
|
|
my $allow = $domain->prop('AllowHosts') || ''; |
|
|
|
my $allow = $domain->prop('AllowHosts') || ''; |
|
|
|
my $preserve = $domain->prop('ProxyPreserveHost') || 'no'; |
|
|
|
my $preserve = $domain->prop('ProxyPreserveHost') || 'no'; |
|
|
|
my $keepalive = $domain->prop('ProxyNoKeepAlive') || 'no'; |
|
|
|
my $keepalive = $domain->prop('ProxyNoKeepAlive') || 'no'; |
|
|
|
|
|
|
|
my $timeout = $domain->prop('Timeout') || ''; |
|
|
|
my @alias = split /[,;]/, ($domain->prop('Alias') || ''); |
|
|
|
my @alias = split /[,;]/, ($domain->prop('Alias') || ''); |
|
|
|
my @env = split(/[;,]/, ($domain->prop('SetEnv') || '')); |
|
|
|
my @env = split(/[;,]/, ($domain->prop('SetEnv') || '')); |
|
|
|
my $auth = $domain->prop('Authentication') || 'none'; |
|
|
|
my $auth = $domain->prop('Authentication') || 'none'; |
|
|
@ -45,6 +46,10 @@ else{ |
|
|
|
$OUT .= " DocumentRoot $root\n"; |
|
|
|
$OUT .= " DocumentRoot $root\n"; |
|
|
|
} |
|
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
if ($timeout =~ m/^\d+$/){ |
|
|
|
|
|
|
|
$OUT .= " Timeout $timeout\n"; |
|
|
|
|
|
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
foreach (@alias){ |
|
|
|
foreach (@alias){ |
|
|
|
next unless $_ =~ m/^(\/\w+)=(\/.*)/; |
|
|
|
next unless $_ =~ m/^(\/\w+)=(\/.*)/; |
|
|
|
my ($al, $targ) = ($1, $2); |
|
|
|
my ($al, $targ) = ($1, $2); |
|
|
|