Check-in [83adf92eb7]

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

Overview
Comment:Updated to terminate without flushing in flat mode
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:83adf92eb7cffbe37b76ab00293105173e8917fa
User & Date: rkeene 2014-11-05 19:03:01
Context
2014-11-05
19:09
rivetcgi 0.5.1.7 check-in: e81ec0430d user: rkeene tags: trunk, 0.5.1.7
19:03
Updated to terminate without flushing in flat mode check-in: 83adf92eb7 user: rkeene tags: trunk
16:41
rivetcgi 0.5.1.6 check-in: 580e4ecaff user: rkeene tags: trunk, 0.5.1.6
Changes

Changes to packages/tclrivet/tclrivet.tcl.

823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
	}

	if {![info exists ::rivet::header_redirect]} {
		foreach {var val} [array get ::rivet::header_pairs] {
			tcl_puts $outchan "$var: $val"
		}
	} else {
		foreach {var val} [array get ::rivet::header_pairs] {
			tcl_puts $outchan "$var: $val"
		}
		tcl_puts $outchan "Location: $::rivet::header_redirect"
		tcl_puts $outchan ""
		abort_page
	}

	tcl_puts $outchan ""
}







<
<
<







823
824
825
826
827
828
829



830
831
832
833
834
835
836
	}

	if {![info exists ::rivet::header_redirect]} {
		foreach {var val} [array get ::rivet::header_pairs] {
			tcl_puts $outchan "$var: $val"
		}
	} else {



		tcl_puts $outchan "Location: $::rivet::header_redirect"
		tcl_puts $outchan ""
		abort_page
	}

	tcl_puts $outchan ""
}

Changes to rivet-starkit/main.tcl.

775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
		tcl_puts $logfd $msg

		flush $logfd
	}
}

proc ::rivetstarkit::destroy_interp {interp args} {
	catch {
		$interp eval [list rivet_flush -final]
	}
	interp delete $interp
}

proc print_help {} {
	tcl_puts "Usage: [file tail [info nameofexecutable]] {--server \[--address <address>\]"
	tcl_puts "       \[--port <port>\] \[--foreground {yes|no}\] \[--init <scp>\]"
	tcl_puts "       \[--logfile {-|<file>}\] \[--errorlog {-|<file>}\] \[--maxthreads <num>\]"







<
<
<







775
776
777
778
779
780
781



782
783
784
785
786
787
788
		tcl_puts $logfd $msg

		flush $logfd
	}
}

proc ::rivetstarkit::destroy_interp {interp args} {



	interp delete $interp
}

proc print_help {} {
	tcl_puts "Usage: [file tail [info nameofexecutable]] {--server \[--address <address>\]"
	tcl_puts "       \[--port <port>\] \[--foreground {yes|no}\] \[--init <scp>\]"
	tcl_puts "       \[--logfile {-|<file>}\] \[--errorlog {-|<file>}\] \[--maxthreads <num>\]"