Subversion Repositories Koakuma

Rev

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

Rev 24 Rev 27
Line 1... Line 1...
1 
#!/usr/bin/env tclsh
 1 
#!/usr/bin/env tclsh
2 
# $Id: koakuma.cgi.in 24 2024-10-02 08:13:21Z nishi $
 2 
# $Id: koakuma.cgi.in 27 2024-10-02 08:24:48Z 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 346... Line 346...
346 
		tputs	"		</td>"
 346 
		tputs	"		</td>"
347 
		tputs	"	</tr>"
 347 
		tputs	"	</tr>"
348 
		tputs	"</table>"
 348 
		tputs	"</table>"
349 
		add_toc "Components"
 349 
		add_toc "Components"
350 
		loop_components {
 350 
		loop_components {
- 
 
 351 
			add_toc2 "${name} (${genre} component)"
351 
			if { [llength [info procs "${name}_info"]] > 0 } {
 352 
			if { [llength [info procs "${name}_info"]] > 0 } {
352 
				${name}_info
 353 
				${name}_info
353 
			}
 354 
			}
354 
		}
 355 
		}
355 
		set has_projects 0
 356 
		set has_projects 0