[PATCH] testbot: Retrieve the list of Wine files.

[Francois Gouget]

Signed-off-by: Francois Gouget 
---
 testbot/bin/WineRunReconfig.pl | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/testbot/bin/WineRunReconfig.pl b/testbot/bin/WineRunReconfig.pl
index fe69fc3b7..d04b78061 100755
--- a/testbot/bin/WineRunReconfig.pl
+++ b/testbot/bin/WineRunReconfig.pl
@@ -444,6 +444,16 @@ if ($NewStatus eq "completed")
   {
     $TAError = "An error occurred while retrieving the test list: ". $TA->GetLastError();
   }
+
+  Debug(Elapsed($Start), " Retrieving the list of Wine files '$TaskDir/winefiles.txt'\n");
+  if ($TA->GetFile("latest/winefiles.txt", "$TaskDir/winefiles.txt"))
+  {
+    copy "$TaskDir/winefiles.txt", "$DataDir/latest/winefiles.txt";
+  }
+  elsif (!defined $TAError)
+  {
+    $TAError = "An error occurred while retrieving the list of Wine files: ". $TA->GetLastError();
+  }
 }

$TA->Disconnect();