Check-in [94a516cf73]

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

Overview
Comment:Minor updates
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:94a516cf731156c05c5a689c64a312bf7aa373b4
User & Date: rkeene 2011-07-01 11:13:13
Context
2011-07-01
11:15
Fixed configuration file to work with starkits as well as starpacks check-in: 81539be14a user: rkeene tags: trunk
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
Changes

Changes to rivet-starkit/main.tcl.

1357
1358
1359
1360
1361
1362
1363

1364
1365
1366
1367
1368
1369
1370
....
1373
1374
1375
1376
1377
1378
1379

1380
1381
1382
1383
1384
1385
1386
1387
1388
1389

						set myenv(SSL_${locationcgivar}_${typecgivar}_DN_${component_name}) $component_val
					}
				}
			}

			# Call "call_page" with the new enivronment

			if {[catch {
				if {$pmodel == "flat"} {
					set result [call_page [array get myenv] 1]
				} else {
					set result [call_page [array get myenv] 0]
				}

................................................................................
					flush $logfd
				}
			} err]} {
				if {$logfd != ""} {
					tcl_puts $logfd "$addr - - \[[clock format [clock seconds] -format {%d/%b/%Y:%H:%M:%S %z}]\] \"$sockinfo(requestline)\" 500 0 \"-\" \"$ua\" \"Error: [join [split $err {"\n}]]\""
					flush $logfd
				}

				if {$elogfd != ""} {
					tcl_puts $elogfd "$err"
					tcl_puts $elogfd "$::errorInfo"
					flush $elogfd
				}
			}

			# Cleanup
			unset sockinfo
			set sockinfo(state) NEW







>







 







>

|
|







1357
1358
1359
1360
1361
1362
1363
1364
1365
1366
1367
1368
1369
1370
1371
....
1374
1375
1376
1377
1378
1379
1380
1381
1382
1383
1384
1385
1386
1387
1388
1389
1390
1391

						set myenv(SSL_${locationcgivar}_${typecgivar}_DN_${component_name}) $component_val
					}
				}
			}

			# Call "call_page" with the new enivronment
			set result "close"
			if {[catch {
				if {$pmodel == "flat"} {
					set result [call_page [array get myenv] 1]
				} else {
					set result [call_page [array get myenv] 0]
				}

................................................................................
					flush $logfd
				}
			} err]} {
				if {$logfd != ""} {
					tcl_puts $logfd "$addr - - \[[clock format [clock seconds] -format {%d/%b/%Y:%H:%M:%S %z}]\] \"$sockinfo(requestline)\" 500 0 \"-\" \"$ua\" \"Error: [join [split $err {"\n}]]\""
					flush $logfd
				}

				if {$elogfd != ""} {
					tcl_puts $elogfd "($sock/$addr/[pid]) $err"
					tcl_puts $elogfd "($sock/$addr/[pid]) $::errorInfo"
					flush $elogfd
				}
			}

			# Cleanup
			unset sockinfo
			set sockinfo(state) NEW