Alexandre Julliard : testbot: Use https URLs when SSL is enabled.

[Alexandre Julliard]

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

Author: Alexandre Julliard 
Date:   Thu Aug 29 17:14:09 2013 +0200

testbot: Use https URLs when SSL is enabled.

---

testbot/bin/WineSendLog.pl |    6 ++++--
 1 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/testbot/bin/WineSendLog.pl b/testbot/bin/WineSendLog.pl
index ce69c21..aec2bee 100755
--- a/testbot/bin/WineSendLog.pl
+++ b/testbot/bin/WineSendLog.pl
@@ -424,6 +424,8 @@ EOF
     }
   }

+  my $WebSite = ($UseSSL ? "https://" : "http://") . $WebHostName;
+
   if ($Messages)
   {
     open (SENDMAIL, "|/usr/sbin/sendmail -oi -t -odq");
@@ -440,7 +442,7 @@ Being a bot and all I'm not very good at pattern recognition, so I might be
 wrong, but could you please double-check?
 Full results can be found at
 EOF
-    print SENDMAIL "http://$WebHostName/JobDetails.pl?Key=",
+    print SENDMAIL "$WebSite/JobDetails.pl?Key=",
                    $Job->GetKey(), "\n\n";
     print SENDMAIL "Your paranoid android.\n\n";

@@ -468,7 +470,7 @@ EOF
     {
       print $result "Status: " . ($Messages ? "Failed" : "OK") . "\n";
       print $result "Job-ID: " . $Job->Id . "\n";
-      print $result "URL: http://$WebHostName/JobDetails.pl?Key=" . $Job->GetKey() . "\n";
+      print $result "URL: $WebSite/JobDetails.pl?Key=" . $Job->GetKey() . "\n";

foreach my $Key (@SortedKeys)
       {