Francois Gouget : testbot: By default redirect to the same site.

[Alexandre Julliard]

Module: tools
Branch: master
Commit: 1784b23e553fb78089fd53797571d494a50a7054
URL:    http://source.winehq.org/git/tools.git/?a=commit;h=1784b23e553fb78089fd53797571d494a50a7054

Author: Francois Gouget <fgouget at codeweavers.com>
Date:   Thu Aug  7 01:24:28 2014 +0200

testbot: By default redirect to the same site.

This makes is possible to access the website through an SSH redirection for instance.

---

 testbot/lib/WineTestBot/CGI/PageBase.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/testbot/lib/WineTestBot/CGI/PageBase.pm b/testbot/lib/WineTestBot/CGI/PageBase.pm
index 50e1629..a304629 100644
--- a/testbot/lib/WineTestBot/CGI/PageBase.pm
+++ b/testbot/lib/WineTestBot/CGI/PageBase.pm
@@ -404,7 +404,7 @@ sub Redirect($$$)
       $Location = $URI . $Location;
     }
     my $Server = $self->{Request}->server;
-    $Location = $Protocol . "://" . $Server->server_hostname . $Location; 
+    $Location = $Protocol . "://" . $ENV{"HTTP_HOST"} . $Location;
   }
   $self->{Request}->headers_out->set("Location", $Location);
   $self->{Request}->status(Apache2::Const::REDIRECT);