WebSVN – Koakuma – Diff – /trunk/koakuma.cgi.in

 #!/usr/bin/env tclsh
-# $Id: koakuma.cgi.in 14 2024-10-02 06:41:51Z nishi $
+# $Id: koakuma.cgi.in 15 2024-10-02 06:42:12Z nishi $
 set KOAKUMA_VERSION "1.00"
 set components ""
 chan configure stdout -buffering none
 				tputs "[html_escape "$has_project"]"
 				add_toc "Details"
 				tputs	"<table border=\"0\">"
 				tputs	"	<tr>"
 				tputs	"		<th>"
-				tputs	"			Last run"
+				tputs	"			Status"
 				tputs	"		</th>"
 				tputs	"		<td>"
-				if { [file exists "@@PREFIX@@/lib/koakuma/db/data/$projname/lastrun"] } {
+				if { [file exists "@@PREFIX@@/lib/koakuma/db/data/$projname/build.lock"] } {
-					set fid [open "@@PREFIX@@/lib/koakuma/db/data/$projname/lastrun" "r"]
+					set fid [open "@@PREFIX@@/lib/koakuma/db/data/$projname/build.loc" "r"]
-					set date "[clock format "[gets $fid]" -format "%a %b %d %H:%M:%S %Z %Y"]"
+					if { [file exists "/proc/[gets $fid]"] } {
+						tputs "Running"
+					} else {
+						tputs "Idle"
+					}
 					close $fid
-					tputs "$date"
 				} else {
-					tputs "No builds yet"
+					tputs "Idle"
+				}
 				tputs	"			"
 				tputs	"		</td>"
 				tputs	"	</tr>"
 				tputs	"	<tr>"
 				tputs	"		<th>"
-				tputs	"			Status"
+				tputs	"			Last run"
 				tputs	"		</th>"
 				tputs	"		<td>"
-				if { [file exists "@@PREFIX@@/lib/koakuma/db/data/$projname/build.lock"] } {
+				if { [file exists "@@PREFIX@@/lib/koakuma/db/data/$projname/lastrun"] } {
-					set fid [open "@@PREFIX@@/lib/koakuma/db/data/$projname/build.loc" "r"]
+					set fid [open "@@PREFIX@@/lib/koakuma/db/data/$projname/lastrun" "r"]
-					if { [file exists "/proc/[gets $fid]"] } {
+					set date "[clock format "[gets $fid]" -format "%a %b %d %H:%M:%S %Z %Y"]"
-						tputs "Running"
-					} else {
-						tputs "Idle"
-					}
 					close $fid
+					tputs "$date"
 				} else {
-					tputs "Idle"
+					tputs "No builds yet"
+				}
 				tputs	"			"
 				tputs	"		</td>"
 				tputs	"	</tr>"
 				tputs	"	<tr>"

Subversion Repositories Koakuma

(root)/trunk/koakuma.cgi.in – Rev 14 → 15