Alexandre Julliard : winetest: Use the original base URL in the redirect.

[Alexandre Julliard]

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

Author: Alexandre Julliard <julliard(a)winehq.org>
Date:   Thu May 23 21:40:19 2013 +0200

winetest: Use the original base URL in the redirect.

---

 winetest/site |    3 ++-
 1 files changed, 2 insertions(+), 1 deletions(-)

diff --git a/winetest/site b/winetest/site
index aa1afe0..f7996a6 100755
--- a/winetest/site
+++ b/winetest/site
@@ -49,7 +49,8 @@ if ($q->param('testing')) {
 }
 
 # redirect to data dir when no vars present
-print $q->redirect("http://test.winehq.org/data/" . $build);
+my $base = $q->url(-base => 1);
+print $q->redirect($base . "/data/" . $build);
  
 # done
 exit();