Check-in [2a2001a67e]

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

Overview
Comment:Ensure environment is preserved
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:2a2001a67e2cb10045a710e3612e7faee7ed9528
User & Date: rkeene 2018-04-28 02:54:33
Context
2018-04-28
02:54
RivetCGI 0.5.1.8 check-in: 3ccd8ac071 user: rkeene tags: trunk, 0.5.1.8
02:54
Ensure environment is preserved check-in: 2a2001a67e user: rkeene tags: trunk
2017-12-29
04:08
Minor expr cleanup check-in: ab947cc1c3 user: rkeene tags: trunk
Changes

Changes to rivet-starkit/main.tcl.

2
3
4
5
6
7
8


9
10
11
12
13
14
15
....
1317
1318
1319
1320
1321
1322
1323

1324
1325
1326
1327
1328
1329
1330

package require starkit
starkit::startup

package require tclrivet

namespace eval ::rivetstarkit { }



proc call_page {{useenv ""} {createinterp 0}} {
	if {$useenv eq ""} {
		upvar ::env env
	} else {
		array set env $useenv
	}
................................................................................

			if {![info exists headers(HOST)]} {
				set headers(HOST) [lindex $localinfo 1]
			}

			# Create CGI/1.1 compatible environment
			## Standard variables

			set myenv(GATEWAY_INTERFACE) "CGI/1.1"
			set myenv(SERVER_SOFTWARE) "Rivet Starkit"
			set myenv(SERVER_NAME) [lindex [split $headers(HOST) :] 0]
			set myenv(SERVER_PROTOCOL) $sockinfo(httpproto)
			set myenv(SERVER_PORT) $hostport
			set myenv(REQUEST_METHOD) $sockinfo(method)
			set myenv(REMOTE_ADDR) $addr







>
>







 







>







2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
....
1319
1320
1321
1322
1323
1324
1325
1326
1327
1328
1329
1330
1331
1332
1333

package require starkit
starkit::startup

package require tclrivet

namespace eval ::rivetstarkit { }

set ::baseEnvironment [array get ::env]

proc call_page {{useenv ""} {createinterp 0}} {
	if {$useenv eq ""} {
		upvar ::env env
	} else {
		array set env $useenv
	}
................................................................................

			if {![info exists headers(HOST)]} {
				set headers(HOST) [lindex $localinfo 1]
			}

			# Create CGI/1.1 compatible environment
			## Standard variables
			array set myenv $::baseEnvironment
			set myenv(GATEWAY_INTERFACE) "CGI/1.1"
			set myenv(SERVER_SOFTWARE) "Rivet Starkit"
			set myenv(SERVER_NAME) [lindex [split $headers(HOST) :] 0]
			set myenv(SERVER_PROTOCOL) $sockinfo(httpproto)
			set myenv(SERVER_PORT) $hostport
			set myenv(REQUEST_METHOD) $sockinfo(method)
			set myenv(REMOTE_ADDR) $addr