Subversion Repositories Koakuma

Rev

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

Rev 33 Rev 35
Line 1... Line 1...
1 
#!/usr/bin/env tclsh
 1 
#!/usr/bin/env tclsh
2 
# $Id: koakuma.cgi.in 33 2024-10-02 09:29:41Z nishi $
 2 
# $Id: koakuma.cgi.in 35 2024-10-02 09:40:33Z 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 15... Line 15...
15 
	foreach {name description version genre} $components {
 15 
	foreach {name description version genre} $components {
16 
		eval $run
 16 
		eval $run
17 
	}
 17 
	}
18 
}
 18 
}
19 
 
 19 
 
- 
 
 20 
proc RunCommand {command} {
- 
 
 21 
	puts "* $command"
- 
 
 22 
	eval exec $command >@stdout 2>@1
- 
 
 23 
}
- 
 
 24 
 
20 
proc crash {reason} {
 25 
proc crash {reason} {
21 
	global components KOAKUMA_VERSION
 26 
	global components KOAKUMA_VERSION
22 
	puts stderr "----- Start Koakuma Crash dump log -----"
 27 
	puts stderr "----- Start Koakuma Crash dump log -----"
23 
	puts stderr "Included components:"
 28 
	puts stderr "Included components:"
24 
	loop_components {
 29 
	loop_components {