works

git-svn-id: file:///raid/svn-personal/koakuma/trunk@14 219d0f9c-2d94-d447-890a-813e76b88fe9

diff --git a/cgi.conf b/cgi.conf
index 05c06e16dda80e350eeac3c4664e16caa31065f3..62fad4d98b62eb9799a136c2650e802ecd81131c 100644 (file)
--- a/cgi.conf
+++ b/cgi.conf
@@ -3,3 +3,4 @@
 
 set koakuma_png "/static/koakuma.png"
 set css "/static/style.css"
+set running_png "/static/continued.png"

diff --git a/koakuma.cgi.in b/koakuma.cgi.in
index 5ff49c29c391c1c885a29b8295d22070b01b56ff..6eeb7b27a1693c673638b36d1f283700d78ba8ec 100644 (file)
--- a/koakuma.cgi.in
+++ b/koakuma.cgi.in
@@ -626,6 +626,25 @@ if { [catch {
                                tputs   "       </tr>"
                                tputs   "       <tr>"
                                tputs   "               <th>"
+                               tputs   "                       Status"
+                               tputs   "               </th>"
+                               tputs   "               <td>"
+                               if { [file exists "@@PREFIX@@/lib/koakuma/db/data/$projname/build.lock"] } {
+                                       set fid [open "@@PREFIX@@/lib/koakuma/db/data/$projname/build.loc" "r"]
+                                       if { [file exists "/proc/[gets $fid]"] } {
+                                               tputs "Running"
+                                       } else {
+                                               tputs "Idle"
+                                       }
+                                       close $fid
+                               } else {
+                                       tputs "Idle"
+                               }
+                               tputs   "                       "
+                               tputs   "               </td>"
+                               tputs   "       </tr>"
+                               tputs   "       <tr>"
+                               tputs   "               <th>"
                                tputs   "                       Last successful run"
                                tputs   "               </th>"
                                tputs   "               <td>"