Check-in [b9793d3447]

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

Overview
Comment:Updated to only display errors on TCL_ERROR
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:b9793d3447dcbf32048626060a2448fb5565037a
User & Date: rkeene 2011-07-01 11:02:24
Context
2011-07-01
11:13
Minor updates check-in: 94a516cf73 user: rkeene tags: trunk
11:02
Updated to only display errors on TCL_ERROR check-in: b9793d3447 user: rkeene tags: trunk
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
Changes

Changes to rivet-starkit/main.tcl.

1395
1396
1397
1398
1399
1400
1401
1402
1403
1404
1405
1406
1407
1408
1409
1410
1411
1412
1413
				fconfigure $sock -buffering line
				fconfigure $sock -translation crlf
				fileevent $sock readable [list rivet_cgi_server_request_data $sock $addr $hostport $logfd $elogfd $pmodel]
			}
		}
 
		set ::rivetstarkit::sockinfo($sock) [array get sockinfo]
	}]} {
		# In case of error, abort.
		set ::rivetstarkit::finished($sock) 1
		if {$elogfd != ""} {
			tcl_puts $elogfd "$::errorInfo"
			flush $elogfd
		}
	}
}


# Determine if we are being called as a CGI, or from the command line







|



|







1395
1396
1397
1398
1399
1400
1401
1402
1403
1404
1405
1406
1407
1408
1409
1410
1411
1412
1413
				fconfigure $sock -buffering line
				fconfigure $sock -translation crlf
				fileevent $sock readable [list rivet_cgi_server_request_data $sock $addr $hostport $logfd $elogfd $pmodel]
			}
		}
 
		set ::rivetstarkit::sockinfo($sock) [array get sockinfo]
	}] == "1"} {
		# In case of error, abort.
		set ::rivetstarkit::finished($sock) 1
		if {$elogfd != ""} {
			tcl_puts $elogfd "($sock/$addr/[pid]) $::errorInfo"
			flush $elogfd
		}
	}
}


# Determine if we are being called as a CGI, or from the command line