Subversion Repositories Koakuma

Rev

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

Rev 44 Rev 45
Line 1... Line 1...
1 
#!/usr/bin/env tclsh
 1 
#!/usr/bin/env tclsh
2 
# $Id: koakuma.cgi.in 44 2024-10-03 03:46:20Z nishi $
 2 
# $Id: koakuma.cgi.in 45 2024-10-03 05:17:31Z 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 703... Line 703...
703 
					tputs	"			Successful builds"
 703 
					tputs	"			Successful builds"
704 
					tputs	"		</th>"
 704 
					tputs	"		</th>"
705 
					tputs	"		<td>"
 705 
					tputs	"		<td>"
706 
					if { [file exists "@@PREFIX@@/lib/koakuma/db/data/$projname/successbuild"] } {
 706 
					if { [file exists "@@PREFIX@@/lib/koakuma/db/data/$projname/successbuild"] } {
707 
						set fid [open "@@PREFIX@@/lib/koakuma/db/data/$projname/successbuild" "r"]
 707 
						set fid [open "@@PREFIX@@/lib/koakuma/db/data/$projname/successbuild" "r"]
708 
						set sucbui "[gets $fid].0"
 708 
						set sucbui "[gets $fid]"
709 
						tputs "[format %.2f [expr $sucbui / [llength $builds] * 100]]% ($sucbui/[llength $builds])"
 709 
						tputs "[format %.2f [expr ${sucbui}.0 / [llength $builds] * 100]]% ($sucbui/[llength $builds])"
710 
						close $fid
 710 
						close $fid
711 
					}
 711 
					}
712 
					tputs	"			"
 712 
					tputs	"			"
713 
					tputs	"		</td>"
 713 
					tputs	"		</td>"
714 
					tputs	"	</tr>"
 714 
					tputs	"	</tr>"