diff -u -r vultureng-1.95.ori/lib/Vulture/lib/Vulture/TransHandler.pm vultureng-1.95/lib/Vulture/lib/Vulture/TransHandler.pm
--- vultureng-1.95.ori/lib/Vulture/lib/Vulture/TransHandler.pm	2007-02-06 14:45:49.000000000 +0100
+++ vultureng-1.95/lib/Vulture/lib/Vulture/TransHandler.pm	2007-02-09 08:57:14.000000000 +0100
@@ -83,6 +83,8 @@
 		if (($session{_session_id} and $session{post}) or !$app->{'auth'} ) {
 			my $sth = $dbh->prepare("SELECT var, value, type FROM headers, app WHERE id_app='".$app->{id}."' AND app.id=id_app AND app.has_headers='t'");
 			$sth->execute;
+			my $fqdn = URI->new($app->{'url'});
+			$r->headers_in->set("Host" => $fqdn->host());
 			while (my ($var, $value, $type) = $sth->fetchrow) {
 				$value = $r->connection->remote_ip if ($type == REMOTE_ADDR);
 				$value = $r->ssl_lookup($headers_vars{$type}) if (exists $headers_vars{$type});
diff -u -r vultureng-1.95.ori/www/WEB-INF/classes/If.php vultureng-1.95/www/WEB-INF/classes/If.php
--- vultureng-1.95.ori/www/WEB-INF/classes/If.php	2007-02-06 14:45:47.000000000 +0100
+++ vultureng-1.95/www/WEB-INF/classes/If.php	2007-02-09 09:31:04.000000000 +0100
@@ -461,6 +461,7 @@
 		  if ($this->getKey() && $this->getCrt()) {
 				$conf .= 
 <<<EOF
+
 	ProxyPass / $intra $keepalive
 
 	PerlModule Apache::SSLLookup