Subversion Repositories Koakuma

Rev

Rev 13 | Rev 15 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 13 Rev 14
Line 1... Line 1...
1 
#!/usr/bin/env tclsh
 1 
#!/usr/bin/env tclsh
2 
# $Id: koakuma.cgi.in 13 2024-10-02 06:39:33Z nishi $
 2 
# $Id: koakuma.cgi.in 14 2024-10-02 06:41:51Z nishi $
3 
 
 3 
 
4 
set KOAKUMA_VERSION "1.00"
 4 
set KOAKUMA_VERSION "1.00"
5 
set components ""
 5 
set components ""
6 
 
 6 
 
7 
chan configure stdout -buffering none
 7 
chan configure stdout -buffering none
Line 624... Line 624...
624 
				tputs	"			"
 624 
				tputs	"			"
625 
				tputs	"		</td>"
 625 
				tputs	"		</td>"
626 
				tputs	"	</tr>"
 626 
				tputs	"	</tr>"
627 
				tputs	"	<tr>"
 627 
				tputs	"	<tr>"
628 
				tputs	"		<th>"
 628 
				tputs	"		<th>"
- 
 
 629 
				tputs	"			Status"
- 
 
 630 
				tputs	"		</th>"
- 
 
 631 
				tputs	"		<td>"
- 
 
 632 
				if { [file exists "@@PREFIX@@/lib/koakuma/db/data/$projname/build.lock"] } {
- 
 
 633 
					set fid [open "@@PREFIX@@/lib/koakuma/db/data/$projname/build.loc" "r"]
- 
 
 634 
					if { [file exists "/proc/[gets $fid]"] } {
- 
 
 635 
						tputs "Running"
- 
 
 636 
					} else {
- 
 
 637 
						tputs "Idle"
- 
 
 638 
					}
- 
 
 639 
					close $fid
- 
 
 640 
				} else {
- 
 
 641 
					tputs "Idle"
- 
 
 642 
				}
- 
 
 643 
				tputs	"			"
- 
 
 644 
				tputs	"		</td>"
- 
 
 645 
				tputs	"	</tr>"
- 
 
 646 
				tputs	"	<tr>"
- 
 
 647 
				tputs	"		<th>"
629 
				tputs	"			Last successful run"
 648 
				tputs	"			Last successful run"
630 
				tputs	"		</th>"
 649 
				tputs	"		</th>"
631 
				tputs	"		<td>"
 650 
				tputs	"		<td>"
632 
				if { [file exists "@@PREFIX@@/lib/koakuma/db/data/$projname/lastsuccessfulrun"] } {
 651 
				if { [file exists "@@PREFIX@@/lib/koakuma/db/data/$projname/lastsuccessfulrun"] } {
633 
					set fid [open "@@PREFIX@@/lib/koakuma/db/data/$projname/lastsuccessfulrun" "r"]
 652 
					set fid [open "@@PREFIX@@/lib/koakuma/db/data/$projname/lastsuccessfulrun" "r"]