Subversion Repositories Koakuma

Rev

Rev 51 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 51 Rev 52
Line 1... Line 1...
1 
#!/usr/bin/env tclsh
 1 
#!/usr/bin/env tclsh
2 
# $Id: koakuma.cgi.in 51 2024-10-07 15:25:58Z nishi $
 2 
# $Id: koakuma.cgi.in 52 2024-10-07 15:27:38Z 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 57... Line 57...
57 
	puts "Location: $env(SCRIPT_NAME)/"
 57 
	puts "Location: $env(SCRIPT_NAME)/"
58 
	puts ""
 58 
	puts ""
59 
	exiting 0
 59 
	exiting 0
60 
}
 60 
}
61 
 
 61 
 
- 
 
 62 
set koakuma_png "/static/koakuma.png"
- 
 
 63 
set css "/static/style.css"
- 
 
 64 
set running_png "/static/continued.png"
62 
set instance_name "Koakuma"
 65 
set instance_name "Koakuma"
63 
set image_alt "Koakuma by Kasuya Baian"
 66 
set image_alt "Koakuma by Kasuya Baian"
64 
 
 67 
 
65 
if { [file exists "@@PREFIX@@/etc/koakuma/cgi.conf"] } {
 68 
if { [file exists "@@PREFIX@@/etc/koakuma/cgi.conf"] } {
66 
	if { [catch {
 69 
	if { [catch {