Check-in [ee3526d1bc]

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Corrected typo
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:ee3526d1bcbcb05b1f5cf7e3ecce19ddc7c69f1f
User & Date: rkeene 2011-06-27 13:43:10
Context
2011-07-01
10:47
Updated to catch all errors in a request Updated to support reading a conf file in server mode check-in: 4fd943d1aa user: rkeene tags: trunk
2011-06-27
13:43
Corrected typo check-in: ee3526d1bc user: rkeene tags: trunk
00:52
Updated to send all headers using a single header mechanism check-in: d4dede5804 user: rkeene tags: trunk
Changes

Changes to packages/tclrivet/tclrivet.tcl.

234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
	append errmsg {</body></html>} "\n"

	if {!$::rivet::header_sent} {
		set ::rivet::header_sent 1

		headers type "text/html"

		::rivet::cgi_server_writehttpheader 200 [string length $errmsg]
	}

	tcl_puts -nonewline $outchan $errmsg
}

proc rivet_puts args {
	set outchan stdout







|







234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
	append errmsg {</body></html>} "\n"

	if {!$::rivet::header_sent} {
		set ::rivet::header_sent 1

		headers type "text/html"

		::rivet::cgi_server_writehttpheader 200 "" [string length $errmsg]
	}

	tcl_puts -nonewline $outchan $errmsg
}

proc rivet_puts args {
	set outchan stdout