Subversion Repositories Koakuma

Rev

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

Rev 21 Rev 22
Line 1... Line 1...
1 
#!/usr/bin/env tclsh
 1 
#!/usr/bin/env tclsh
2 
# $Id: koakuma.cgi.in 21 2024-10-02 07:48:17Z nishi $
 2 
# $Id: koakuma.cgi.in 22 2024-10-02 08:00:45Z 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 168... Line 168...
168 
		set content "$content\n$data"
 168 
		set content "$content\n$data"
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 {>} "[string trim "$data"]" {\&gt;}]" {\&lt;}]"
174 
	return "[regsub -all {[^: ]+://[^ ]+} "$tmp" {<a href="\0">\0</a>}]"
 174 
	set link "[regsub -all {[^: ]+://[^ \n]+} "$tmp" {<a href="\0">\0</a>}]"
- 
 
 175 
	return "[regsub -all {\n} "$link" {<br>}]"
175 
}
 176 
}
176 
 
 177 
 
177 
proc open_projects {} {
 178 
proc open_projects {} {
178 
	while 1 {
 179 
	while 1 {
179 
		if { ![info exists "@@PREFIX@@/lib/koakuma/db/projects.lock"] } {
 180 
		if { ![info exists "@@PREFIX@@/lib/koakuma/db/projects.lock"] } {