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

[Francois Gouget]

Signed-off-by: Francois Gouget 
---
 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 5f61466908..d38e8d96b6 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))
   {
@@ -309,7 +309,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 eef7a17838..919c7a5e3b 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 ef3f4cb064..d9757edb92 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 9a7ac0b3e7..98d13381e0 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
   }
 }