Subversion Repositories Koakuma

Rev

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

Rev 47 Rev 48
Line 1... Line 1...
1 
#!/usr/bin/env tclsh
 1 
#!/usr/bin/env tclsh
2 
# $Id: koakuma.cgi.in 47 2024-10-07 15:24:21Z nishi $
 2 
# $Id: koakuma.cgi.in 48 2024-10-07 15:24:46Z 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 267... Line 267...
267 
	rputs	"		<a href=\"/koakuma\" id=\"gomain\">"
 267 
	rputs	"		<a href=\"/koakuma\" id=\"gomain\">"
268 
	rputs	"			<img alt=\"$image_alt\" height=\"128px\"$msie>"
 268 
	rputs	"			<img alt=\"$image_alt\" height=\"128px\"$msie>"
269 
	rputs	"		</a>"
 269 
	rputs	"		</a>"
270 
	rputs	"		<div id=\"space\"></div>"
 270 
	rputs	"		<div id=\"space\"></div>"
271 
	rputs	"		<div id=\"title\">"
 271 
	rputs	"		<div id=\"title\">"
272 
	rputs	"			$instnace_name"
 272 
	rputs	"			$instance_name"
273 
	rputs	"		</div>"
 273 
	rputs	"		</div>"
274 
	rputs	"		<a href=\"$env(SCRIPT_NAME)\">Root</a>"
 274 
	rputs	"		<a href=\"$env(SCRIPT_NAME)\">Root</a>"
275 
	if { "$has_toc" == "1" } {
 275 
	if { "$has_toc" == "1" } {
276 
		rputs	"		<div id=\"doc\">"
 276 
		rputs	"		<div id=\"doc\">"
277 
	} else {
 277 
	} else {