Subversion Repositories Koakuma

Rev

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

Rev 18 Rev 21
Line 1... Line 1...
1 
#!/usr/bin/env tclsh
 1 
#!/usr/bin/env tclsh
2 
# $Id: koakuma.cgi.in 18 2024-10-02 07:35:40Z nishi $
 2 
# $Id: koakuma.cgi.in 21 2024-10-02 07:48:17Z 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 169... Line 169...
169 
	}
 169 
	}
170 
}
 170 
}
171 
 
 171 
 
172 
proc html_escape {data} {
 172 
proc html_escape {data} {
173 
	set tmp "[regsub -all {<} "[regsub -all {>} "$data" {\&gt;}]" {\&lt;}]"
 173 
	set tmp "[regsub -all {<} "[regsub -all {>} "$data" {\&gt;}]" {\&lt;}]"
174 
	return "[regsub -all {[^:]+://[^ ]+} "$tmp" {<a href="\0">\0</a>}]"
 174 
	return "[regsub -all {[^: ]+://[^ ]+} "$tmp" {<a href="\0">\0</a>}]"
175 
}
 175 
}
176 
 
 176 
 
177 
proc open_projects {} {
 177 
proc open_projects {} {
178 
	while 1 {
 178 
	while 1 {
179 
		if { ![info exists "@@PREFIX@@/lib/koakuma/db/projects.lock"] } {
 179 
		if { ![info exists "@@PREFIX@@/lib/koakuma/db/projects.lock"] } {