Check-in [311a223fc7]

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

Overview
Comment:Fixed bug with redirects in standalone server mode
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:311a223fc7ff9cf043d3ccbb5010ad7ecf31f334
User & Date: rkeene 2014-11-05 16:40:49
Context
2014-11-05
16:41
rivetcgi 0.5.1.6 check-in: 580e4ecaff user: rkeene tags: trunk, 0.5.1.6
16:40
Fixed bug with redirects in standalone server mode check-in: 311a223fc7 user: rkeene tags: trunk
2014-11-04
23:39
rivetcgi 0.5.1.5 check-in: d545ab71bf user: rkeene tags: trunk, 0.5.1.5
Changes

Changes to packages/tclrivet/tclrivet.tcl.

768
769
770
771
772
773
774




775
776
777
778
779
780
781

	if {[info exists env(RIVET_INTERFACE)]} {
		set outchan [lindex $env(RIVET_INTERFACE) 2]
		array set headers [lindex $env(RIVET_INTERFACE) 4]

		if {[lindex $env(RIVET_INTERFACE) 0] == "FULLHEADERS"} {
			fconfigure $outchan -translation crlf





			tcl_puts $outchan "HTTP/1.1 $statuscode [::rivet::statuscode_to_str $statuscode]"
			tcl_puts $outchan "Date: [clock format [clock seconds] -format {%a, %d %b %Y %H:%M:%S GMT} -gmt 1]"
			tcl_puts $outchan "Server: Default"

			unset -nocomplain ::rivet::transfer_encoding








>
>
>
>







768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785

	if {[info exists env(RIVET_INTERFACE)]} {
		set outchan [lindex $env(RIVET_INTERFACE) 2]
		array set headers [lindex $env(RIVET_INTERFACE) 4]

		if {[lindex $env(RIVET_INTERFACE) 0] == "FULLHEADERS"} {
			fconfigure $outchan -translation crlf

			if {[info exists ::rivet::header_redirect]} {
				set statuscode 302
			}

			tcl_puts $outchan "HTTP/1.1 $statuscode [::rivet::statuscode_to_str $statuscode]"
			tcl_puts $outchan "Date: [clock format [clock seconds] -format {%a, %d %b %Y %H:%M:%S GMT} -gmt 1]"
			tcl_puts $outchan "Server: Default"

			unset -nocomplain ::rivet::transfer_encoding