[PATCH] testbot/web: Adjust some web page titles.

[Francois Gouget]

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

Signed-off-by: Francois Gouget 
---
 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 fa842d9f..bf7d6b9b 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 2d426ac4..70e812db 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 934bf256..f0ac5246 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) = @_;