Subversion Repositories Koakuma

Rev

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

Rev 46 Rev 47
Line 1... Line 1...
1 
#!/usr/bin/env tclsh
 1 
#!/usr/bin/env tclsh
2 
# $Id: koakuma.cgi.in 46 2024-10-07 15:23:21Z nishi $
 2 
# $Id: koakuma.cgi.in 47 2024-10-07 15:24:21Z 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 title "Koakuma"
 62 
set instance_name "Koakuma"
63 
set image_alt "Koakuma by Kasuya Baian"
 63 
set image_alt "Koakuma by Kasuya Baian"
64 
 
 64 
 
65 
if { [file exists "@@PREFIX@@/etc/koakuma/cgi.conf"] } {
 65 
if { [file exists "@@PREFIX@@/etc/koakuma/cgi.conf"] } {
66 
	if { [catch {
 66 
	if { [catch {
67 
		source "@@PREFIX@@/etc/koakuma/cgi.conf"
 67 
		source "@@PREFIX@@/etc/koakuma/cgi.conf"