Francois Gouget : testbot/web: Don't assume that "/index.pl" is the TestBot landing page.

[Alexandre Julliard]

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

Author: Francois Gouget <fgouget at codeweavers.com>
Date:   Mon Mar  7 12:48:05 2022 +0100

testbot/web: Don't assume that "/index.pl" is the TestBot landing page.

Signed-off-by: Francois Gouget <fgouget at codeweavers.com>
Signed-off-by: Alexandre Julliard <julliard at winehq.org>

---

 testbot/lib/WineTestBot/CGI/PageBase.pm | 4 ++--
 testbot/web/JobDetails.pl               | 2 +-
 testbot/web/Login.pl                    | 2 +-
 testbot/web/Submit.pl                   | 2 +-
 4 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/testbot/lib/WineTestBot/CGI/PageBase.pm b/testbot/lib/WineTestBot/CGI/PageBase.pm
index 8b046c8..2681ece 100644
--- a/testbot/lib/WineTestBot/CGI/PageBase.pm
+++ b/testbot/lib/WineTestBot/CGI/PageBase.pm
@@ -244,7 +244,7 @@ ${ProjectName} Test Bot
     <div id="menu">
       <ul>
         <li class='top'><p>Test Bot</p></li>
-        <li><p><a href='/index.pl'>Home</a></p></li>
+        <li><p><a href='/'>Home</a></p></li>
 EOF
   if (defined($PatchesMailingList))
   {
@@ -307,7 +307,7 @@ EOF
     </div>
     <div id='banner'>
       <div id='Logo'>
-        <a href='/index.pl'><img src='/${ProjectName}Logo.png' alt=''></a>
+        <a href='/'><img src='/${ProjectName}Logo.png' alt=''></a>
       </div>
       <div id='Project'>
         <img src='/${ProjectName}Project.png' alt=''>
diff --git a/testbot/web/JobDetails.pl b/testbot/web/JobDetails.pl
index eef7a17..919c7a5 100644
--- a/testbot/web/JobDetails.pl
+++ b/testbot/web/JobDetails.pl
@@ -52,7 +52,7 @@ sub _initialize($$$)
   $self->{Job} = CreateJobs()->GetItem($JobId);
   if (!defined $self->{Job})
   {
-    $self->Redirect("/index.pl"); # does not return
+    $self->Redirect("/"); # does not return
   }
   $self->{JobId} = $JobId;
 
diff --git a/testbot/web/Login.pl b/testbot/web/Login.pl
index ef3f4cb..d9757ed 100644
--- a/testbot/web/Login.pl
+++ b/testbot/web/Login.pl
@@ -133,7 +133,7 @@ sub OnLogIn($)
   my $Target = $self->GetParam("Target");
   if (! defined($Target) || $Target eq "" || substr($Target, 0, 1) ne "/")
   {
-    $Target = "/index.pl";
+    $Target = "/";
   }
   $self->Redirect(MakeSecureURL($Target)); # does not return
   exit;
diff --git a/testbot/web/Submit.pl b/testbot/web/Submit.pl
index 9a7ac0b..98d1338 100644
--- a/testbot/web/Submit.pl
+++ b/testbot/web/Submit.pl
@@ -1329,7 +1329,7 @@ sub OnOK($)
   }
   else
   {
-    $self->Redirect("/index.pl"); # does not return
+    $self->Redirect("/"); # does not return
   }
 }