[tools] patches: Take the .testbot file Status into account.

[Francois Gouget]

Signed-off-by: Francois Gouget 
---
So far whether a patch passed the tests or not seems to only be based on 
the wine-devel emails, despite the information being available in the 
locale .testbot file.
---
 patches/update | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/patches/update b/patches/update
index 5d20f2a11..494d2e157 100755
--- a/patches/update
+++ b/patches/update
@@ -210,7 +210,8 @@ foreach my $file (readdir DIR)
             {
                 utf8::decode($_);
                 last if /^$/;
-                if (/^Job-ID: (.*)$/) { $patch{"testjob"} = $1; }
+                if (/^Status: (.*)$/) { $patch{"testbot"} = $1; }
+                elsif (/^Job-ID: (.*)$/) { $patch{"testjob"} = $1; }
                 elsif (/^URL: (.*)$/) { $patch{"testurl"} = $1; }
             }
             close LOG;
@@ -254,7 +255,6 @@ sub assign_parent($)
         if ($patch->{"from_marvin"})
         {
             $parent->{"testbot"} = "<a href="data/$patch->{id}">Failed</a>";
-            $parent->{"testclass"} = "testbot botfail";
         }
         return $parent;
     }
@@ -320,6 +320,10 @@ foreach my $file (sort { $patches{$b}->{"order"} <=> $patches{$a}->{"order"} } k
     {
         printf INDEX "<td class="failmark">X</td>";
     }
+    if ($patch->{"testbot"} and $patch->{"testbot"} ne "OK")
+    {
+        $patch->{"testclass"} .= " botfail";
+    }
     printf INDEX "<td class="%s">%s</td>", $patch->{"testclass"}, $patch->{"testbot"};
     if ($patch->{"testjob"} && $patch->{"testurl"})
     {