Subversion Repositories Koakuma

Rev

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

Rev 49 Rev 50
Line 1... Line 1...
1 
#!/usr/bin/env tclsh
 1 
#!/usr/bin/env tclsh
2 
# $Id: koakuma.cgi.in 49 2024-10-07 15:25:02Z nishi $
 2 
# $Id: koakuma.cgi.in 50 2024-10-07 15:25:25Z 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 247... Line 247...
247 
	set br "[regsub -all {\(|\)} "$tmp" "_"]"
 247 
	set br "[regsub -all {\(|\)} "$tmp" "_"]"
248 
	return "$br"
 248 
	return "$br"
249 
}
 249 
}
250 
 
 250 
 
251 
proc start_html {title has_toc} {
 251 
proc start_html {title has_toc} {
252 
	global toc env koakuma_png css what instnace_name
 252 
	global toc env koakuma_png css what instance_name
253 
	rputs	"<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01 Transitional//EN\" \"http://www.w3.org/TR/html4/loose.dtd\">"
 253 
	rputs	"<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.01 Transitional//EN\" \"http://www.w3.org/TR/html4/loose.dtd\">"
254 
	rputs	"<html>"
 254 
	rputs	"<html>"
255 
	rputs	"	<head>"
 255 
	rputs	"	<head>"
256 
	rputs	"		<meta http-equiv=\"Content-Type\" content=\"text/html;charset=UTF-8\">"
 256 
	rputs	"		<meta http-equiv=\"Content-Type\" content=\"text/html;charset=UTF-8\">"
257 
	rputs	"		<title>$title - $instance_name</title>"
 257 
	rputs	"		<title>$title - $instance_name</title>"