Subversion Repositories Koakuma

Rev

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

Rev 39 Rev 43
Line 1... Line 1...
1 
#!/usr/bin/env tclsh
 1 
#!/usr/bin/env tclsh
2 
# $Id: koakuma.cgi.in 39 2024-10-02 09:56:33Z nishi $
 2 
# $Id: koakuma.cgi.in 43 2024-10-02 19:57:47Z 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 698... Line 698...
698 
					tputs	"			Successful builds"
 698 
					tputs	"			Successful builds"
699 
					tputs	"		</th>"
 699 
					tputs	"		</th>"
700 
					tputs	"		<td>"
 700 
					tputs	"		<td>"
701 
					if { [file exists "@@PREFIX@@/lib/koakuma/db/data/$projname/successbuild"] } {
 701 
					if { [file exists "@@PREFIX@@/lib/koakuma/db/data/$projname/successbuild"] } {
702 
						set fid [open "@@PREFIX@@/lib/koakuma/db/data/$projname/successbuild" "r"]
 702 
						set fid [open "@@PREFIX@@/lib/koakuma/db/data/$projname/successbuild" "r"]
703 
						set sucbui "[gets $fid]"
 703 
						set sucbui "[gets $fid].0"
704 
						tputs "[format %.2f [expr $sucbui / [llength $builds] * 100]]% ($sucbui/[llength $builds])"
 704 
						tputs "[format %.2f [expr $sucbui / [llength $builds] * 100]]% ($sucbui/[llength $builds])"
705 
						close $fid
 705 
						close $fid
706 
					}
 706 
					}
707 
					tputs	"			"
 707 
					tputs	"			"
708 
					tputs	"		</td>"
 708 
					tputs	"		</td>"