[PATCH] testbot: Show the generation time of the job index page.

[Francois Gouget]

Signed-off-by: Francois Gouget 
---

This matches the Activity and Stats pages. It's mostly there to help 
keep an eye on things.

testbot/web/index.pl | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/testbot/web/index.pl b/testbot/web/index.pl
index deacf909..427d7f6b 100644
--- a/testbot/web/index.pl
+++ b/testbot/web/index.pl
@@ -189,6 +189,7 @@ use ObjectModel::CGI::Page;
 use WineTestBot::Config;
 use WineTestBot::Engine::Notify;
 use WineTestBot::Jobs;
+use WineTestBot::Log;
 use WineTestBot::VMs;

@StatusPage::ISA = qw(ObjectModel::CGI::Page);
@@ -197,6 +198,7 @@ sub _initialize($$$)
 {
   my ($self, $Request, $RequiredRole) = @_;

+  $self->{start} = Time();
   $self->SUPER::_initialize($Request, $RequiredRole);
 }

@@ -297,6 +299,8 @@ EOF
   my $VMsCollectionBlock = new VMStatusBlock(CreateVMs(), $self);
   $VMsCollectionBlock->GenerateList();
   print "</div>\n";
+
+  print "<p class='GeneralFooterText'>Generated in ", Elapsed($self->{start}), " s</p>\n";
 }

package main;