Subversion Repositories Koakuma

Rev

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

Rev 22 Rev 23
Line 1... Line 1...
1 
#!/usr/bin/env tclsh
 1 
#!/usr/bin/env tclsh
2 
# $Id: koakuma.cgi.in 22 2024-10-02 08:00:45Z nishi $
 2 
# $Id: koakuma.cgi.in 23 2024-10-02 08:02: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 241... Line 241...
241 
	rputs	"		<title>$title - Koakuma</title>"
 241 
	rputs	"		<title>$title - Koakuma</title>"
242 
	rputs	"		<link rel=\"stylesheet\" href=\"$css\">"
 242 
	rputs	"		<link rel=\"stylesheet\" href=\"$css\">"
243 
	rputs	"	</head>"
 243 
	rputs	"	</head>"
244 
	rputs	"	<body>"
 244 
	rputs	"	<body>"
245 
	rputs	"		<a href=\"/koakuma\" id=\"gomain\">"
 245 
	rputs	"		<a href=\"/koakuma\" id=\"gomain\">"
246 
	rputs	"			<img src=\"$koakuma_png\" alt=\"Koakuma by Kasuya Baian\" height=\"192px\">"
 246 
	rputs	"			<img src=\"$koakuma_png\" alt=\"Koakuma by Kasuya Baian\" height=\"128px\">"
247 
	rputs	"		</a>"
 247 
	rputs	"		</a>"
248 
	rputs	"		<div id=\"space\"></div>"
 248 
	rputs	"		<div id=\"space\"></div>"
249 
	rputs	"		<div id=\"title\">"
 249 
	rputs	"		<div id=\"title\">"
250 
	rputs	"			Koakuma"
 250 
	rputs	"			Koakuma"
251 
	rputs	"		</div>"
 251 
	rputs	"		</div>"