Francois Gouget : testbot/web: Adjust some web page titles.

[Alexandre Julliard]

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

Author: Francois Gouget <fgouget(a)codeweavers.com>
Date:   Wed Aug 28 11:20:42 2019 +0200

testbot/web: Adjust some web page titles.

This makes it easier to identify them in the browser tabs.

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

---

 testbot/web/Activity.pl  | 7 +++++++
 testbot/web/Stats.pl     | 7 +++++++
 testbot/web/admin/Log.pl | 8 ++++++++
 3 files changed, 22 insertions(+)

diff --git a/testbot/web/Activity.pl b/testbot/web/Activity.pl
index fa842d9..bf7d6b9 100644
--- a/testbot/web/Activity.pl
+++ b/testbot/web/Activity.pl
@@ -51,6 +51,13 @@ sub _initialize($$$)
   $self->{Method} = "get";
 }
 
+sub GetPageTitle($$)
+{
+  my ($self, $Page) = @_;
+
+  return "Activity - ${ProjectName} Test Bot";
+}
+
 sub GeneratePage($)
 {
   my ($self) = @_;
diff --git a/testbot/web/Stats.pl b/testbot/web/Stats.pl
index 2d426ac..70e812d 100644
--- a/testbot/web/Stats.pl
+++ b/testbot/web/Stats.pl
@@ -40,6 +40,13 @@ sub _initialize($$$)
   $self->SUPER::_initialize($Request, $RequiredRole);
 }
 
+sub GetPageTitle($$)
+{
+  my ($self, $Page) = @_;
+
+  return "Statistics - ${ProjectName} Test Bot";
+}
+
 sub _CompareVMs()
 {
   my ($aHost, $bHost) = ($a->GetHost(), $b->GetHost());
diff --git a/testbot/web/admin/Log.pl b/testbot/web/admin/Log.pl
index 934bf25..f0ac524 100644
--- a/testbot/web/admin/Log.pl
+++ b/testbot/web/admin/Log.pl
@@ -25,6 +25,7 @@ use ObjectModel::CGI::FreeFormPage;
 our @ISA = qw(ObjectModel::CGI::FreeFormPage);
 
 use ObjectModel::BasicPropertyDescriptor;
+use WineTestBot::Config;
 use WineTestBot::Log;
 
 
@@ -38,6 +39,13 @@ sub _initialize($$$)
   $self->SUPER::_initialize($Request, $RequiredRole, \@PropertyDescriptors);
 }
 
+sub GetPageTitle($$)
+{
+  my ($self, $Page) = @_;
+
+  return "Engine Log - ${ProjectName} Test Bot";
+}
+
 sub GetPropertyValue($$)
 {
   my ($self, $PropertyDescriptor) = @_;