Check-in [65bf739985]

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

Overview
Comment:Updated to return a 500 error when we generate a rivet_error
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:65bf73998564f87f7e76e438a3f700bd53373fa7
User & Date: rkeene 2015-05-23 01:59:28
Context
2017-12-29
04:08
Minor expr cleanup check-in: ab947cc1c3 user: rkeene tags: trunk
2015-05-23
01:59
Updated to return a 500 error when we generate a rivet_error check-in: 65bf739985 user: rkeene tags: trunk
01:48
Updated so that logging works with threads correctly check-in: d1dc76a920 user: rkeene tags: trunk
Changes

Changes to packages/tclrivet/tclrivet.tcl.

230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
	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







|







230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
	append errmsg {</body></html>} "\n"

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

		headers type "text/html"

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

	tcl_puts -nonewline $outchan $errmsg
}

proc rivet_puts args {
	set outchan stdout