Alexandre Julliard : testbot: Always use the configured web host name in registration emails.

[Alexandre Julliard]

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

Author: Alexandre Julliard <julliard at winehq.org>
Date:   Mon Apr 14 19:06:41 2014 +0200

testbot: Always use the configured web host name in registration emails.

---

 testbot/web/Register.pl |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/testbot/web/Register.pl b/testbot/web/Register.pl
index d5eb4cd..ca82d55 100644
--- a/testbot/web/Register.pl
+++ b/testbot/web/Register.pl
@@ -110,8 +110,8 @@ sub OnSendRequest
   {
     $Msg .= "Remarks:\n" . $self->GetParam("Remarks") . "\n";
   }
-  my $URL = MakeSecureURL("/admin/UserDetails.pl?Key=" .
-                          uri_escape($self->GetParam("Name")));
+  my $URL = ($UseSSL ? "https://" : "http://") . $WebHostName .
+            "/admin/UserDetails.pl?Key=" . uri_escape($self->GetParam("Name"));
   $Msg .= "\nTo approve or deny the request, please go to " . $URL;
 
   open (SENDMAIL, "|/usr/sbin/sendmail -oi -t -odq");