Alexandre Julliard : patches: Add a link to the testbot job id if available .

[Alexandre Julliard]

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

Author: Alexandre Julliard 
Date:   Thu Aug 29 17:13:55 2013 +0200

patches: Add a link to the testbot job id if available.

---

patches/update |   25 ++++++++++++++++++++++++-
 1 files changed, 24 insertions(+), 1 deletions(-)

diff --git a/patches/update b/patches/update
index 52d4d88..4ccc910 100755
--- a/patches/update
+++ b/patches/update
@@ -115,7 +115,8 @@ print INDEX "<table class="main"><tr><th class="id">ID</th>",
     "<th class="status">Status</th>",
     "<th class="author">Author</th>",
     "<th class="subject">Subject</th>",
-    "<th class="status">Testbot</th></tr>\n";
+    "<th class="status">Testbot</th>",
+    "<th class="status">Job ID</th></tr>\n";

opendir DIR, $dir;
 foreach my $file (readdir DIR)
@@ -146,9 +147,21 @@ foreach my $file (readdir DIR)
         close ORDER;
     }
     $patch{"testbot"} = "";
+    $patch{"testjob"} = "";
+    $patch{"testurl"} = "";
     if (-f "$dir/$file.testbot")
     {
         $patch{"testbot"} = "OK";
+        if (open LOG, "<$dir/$file.testbot")
+        {
+            while (<LOG>)
+            {
+                last if /^$/;
+                if (/^Job-ID: (.*)$/) { $patch{"testjob"} = $1; }
+                elsif (/^URL: (.*)$/) { $patch{"testurl"} = $1; }
+            }
+            close LOG;
+        }
     }
     if (-f "$dir/$file.testfail")
     {
@@ -175,6 +188,16 @@ foreach my $file (sort { $patches{$b}->{"order"} <=> $patches{$a}->{"order"} } k
     {
         printf INDEX "<td class="testbot">%s</td>", $patch->{"testbot"};
     }
+    if ($patch->{"testjob"} && $patch->{"testurl"})
+    {
+        printf INDEX "<td class="%s"><a href="%s">%s</a></td>",
+                     ($patch->{"testbot"} eq "Failed") ? " testbot botfail" : "testbot",
+                     $patch->{"testurl"}, $patch->{"testjob"};
+    }
+    else
+    {
+        print INDEX "<td></td>";
+    }
     print INDEX "</tr>\n";
     $row++;
 }