| Line 1... |
Line 1... |
| 1 |
#!/usr/bin/env tclsh
|
1 |
#!/usr/bin/env tclsh
|
| 2 |
# $Id: koakuma.cgi.in 48 2024-10-07 15:24:46Z nishi $
|
2 |
# $Id: koakuma.cgi.in 49 2024-10-07 15:25:02Z 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 252... |
Line 252... |
| 252 |
global toc env koakuma_png css what instnace_name
|
252 |
global toc env koakuma_png css what instnace_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 - $instnace_name</title>"
|
257 |
rputs " <title>$title - $instance_name</title>"
|
| 258 |
rputs " <link rel=\"stylesheet\" href=\"$css\">"
|
258 |
rputs " <link rel=\"stylesheet\" href=\"$css\">"
|
| 259 |
set msie " src=\"$koakuma_png\""
|
259 |
set msie " src=\"$koakuma_png\""
|
| 260 |
if { [info exists "env(HTTP_USER_AGENT)"] } {
|
260 |
if { [info exists "env(HTTP_USER_AGENT)"] } {
|
| 261 |
if { [regexp {MSIE 6} "$env(HTTP_USER_AGENT)"] } {
|
261 |
if { [regexp {MSIE 6} "$env(HTTP_USER_AGENT)"] } {
|
| 262 |
set msie " style=\"filter: progid:DXImageTransform.Microsoft.AlphaImageLoader(src='$koakuma_png', sizingMethod='scale');\" src=\"/static/transparent.gif\""
|
262 |
set msie " style=\"filter: progid:DXImageTransform.Microsoft.AlphaImageLoader(src='$koakuma_png', sizingMethod='scale');\" src=\"/static/transparent.gif\""
|