Subversion Repositories Koakuma

Rev

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

Rev 36 Rev 37
Line 1... Line 1...
1 
#!/usr/bin/env tclsh
 1 
#!/usr/bin/env tclsh
2 
# $Id: koakuma.cgi.in 36 2024-10-02 09:43:12Z nishi $
 2 
# $Id: koakuma.cgi.in 37 2024-10-02 09:44:50Z 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 692... Line 692...
692 
					tputs	"			Successful builds"
 692 
					tputs	"			Successful builds"
693 
					tputs	"		</th>"
 693 
					tputs	"		</th>"
694 
					tputs	"		<td>"
 694 
					tputs	"		<td>"
695 
					if { [file exists "@@PREFIX@@/lib/koakuma/db/data/$projname/successbuild"] } {
 695 
					if { [file exists "@@PREFIX@@/lib/koakuma/db/data/$projname/successbuild"] } {
696 
						set fid [open "@@PREFIX@@/lib/koakuma/db/data/$projname/successbuild" "r"]
 696 
						set fid [open "@@PREFIX@@/lib/koakuma/db/data/$projname/successbuild" "r"]
- 
 
 697 
						set sucbui "[gets $fid]"
697 
						tputs "[format %.2f [expr [gets $fid] / [llength $builds] * 100]]%"
 698 
						tputs "[format %.2f [expr $sucbui / [llength $builds] * 100]]% ($sucbui/[llength $builds])"
698 
						close $fid
 699 
						close $fid
699 
					}
 700 
					}
700 
					tputs	"			"
 701 
					tputs	"			"
701 
					tputs	"		</td>"
 702 
					tputs	"		</td>"
702 
					tputs	"	</tr>"
 703 
					tputs	"	</tr>"