Subversion Repositories Koakuma

Rev

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

Rev 43 Rev 44
Line 1... Line 1...
1 
#!/usr/bin/env tclsh
 1 
#!/usr/bin/env tclsh
2 
# $Id: koakuma.cgi.in 43 2024-10-02 19:57:47Z nishi $
 2 
# $Id: koakuma.cgi.in 44 2024-10-03 03:46:20Z 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 484... Line 484...
484 
								close $fid
 484 
								close $fid
485 
							} else {
 485 
							} else {
486 
								set fid [open "@@PREFIX@@/lib/koakuma/db/data/$projname/build-$count/log" "w"]
 486 
								set fid [open "@@PREFIX@@/lib/koakuma/db/data/$projname/build-$count/log" "w"]
487 
								set fail 0
 487 
								set fail 0
488 
 
 488 
 
- 
 
 489 
								fconfigure $fid -encoding binary -translation binary
- 
 
 490 
 
489 
								dup $fid stdout
 491 
								dup $fid stdout
490 
								dup $fid stderr
 492 
								dup $fid stderr
491 
 
 493 
 
- 
 
 494 
								fconfigure stdout -encoding binary -translation binary
- 
 
 495 
								fconfigure stderr -encoding binary -translation binary
- 
 
 496 
 
492 
								puts "Build trigger description: $builddesc"
 497 
								puts "Build trigger description: $builddesc"
493 
								puts "===== Checkout"
 498 
								puts "===== Checkout"
494 
								puts "Using VCS: $use_vcs"
 499 
								puts "Using VCS: $use_vcs"
495 
								if { [llength [info procs "${use_vcs}_repository"]] == 0 } {
 500 
								if { [llength [info procs "${use_vcs}_repository"]] == 0 } {
496 
									puts "Component internal failure"
 501 
									puts "Component internal failure"