Francois Gouget : testbot: Disable support for taking screenshots.

[Alexandre Julliard]

Module: tools
Branch: master
Commit: 25f69ff0f2b20ff60abcede0bd07554ea7622a74
URL:    http://source.winehq.org/git/tools.git/?a=commit;h=25f69ff0f2b20ff60abcede0b...

Author: Francois Gouget 
Date:   Sun Oct  6 01:36:03 2013 +0200

testbot: Disable support for taking screenshots.

This does not work with the current WineTestBot configuration and causes libvirt connections to be leaked.

---

testbot/lib/WineTestBot/VMs.pm |    3 +++
 testbot/web/JobDetails.pl      |    3 ++-
 2 files changed, 5 insertions(+), 1 deletions(-)

diff --git a/testbot/lib/WineTestBot/VMs.pm b/testbot/lib/WineTestBot/VMs.pm
index 5913f2c..7c403cd 100644
--- a/testbot/lib/WineTestBot/VMs.pm
+++ b/testbot/lib/WineTestBot/VMs.pm
@@ -417,6 +417,9 @@ sub CaptureScreenImage($)
 {
   my ($self) = @_;

+  # FIXME: Disable screenshots for now
+  return ("Screenshotting has been disabled for the time being", undef, undef);
+
   my ($ErrMessage, $Domain) = $self->_GetDomain();
   return ($ErrMessage, undef, undef) if (defined $ErrMessage);

diff --git a/testbot/web/JobDetails.pl b/testbot/web/JobDetails.pl
index 1525636..0e5166a 100644
--- a/testbot/web/JobDetails.pl
+++ b/testbot/web/JobDetails.pl
@@ -257,7 +257,8 @@ sub GenerateBody
     my $LogName = "$TaskDir/log";
     my $ErrName = "$TaskDir/err";
     print "<div class='TaskMoreInfoLinks'>\n";
-    if ($Item->Status eq "running" &&
+    # FIXME: Disable live screenshots for now
+    if (0 && $Item->Status eq "running" &&
         ($Item->Type eq "single" || $Item->Type eq "suite"))
     {
       if (defined($self->GetParam($ScreenshotParamName)))