Check-in [7511bc2562]

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

Overview
Comment:Updated to exit by destroying the interp if exit is called
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:7511bc25620ab6c66756a2fd82ac274f0a7931b1
User & Date: rkeene 2014-11-04 23:01:28
Context
2014-11-04
23:04
rivetcgi 0.5.1.2 check-in: 353e897c9f user: rkeene tags: trunk, 0.5.1.2
23:01
Updated to exit by destroying the interp if exit is called check-in: 7511bc2562 user: rkeene tags: trunk
2014-10-04
15:19
RivetCGI 0.5.1 series (version bump to account for difference in version control system) check-in: fac81abf45 user: rkeene tags: trunk
Changes

Changes to rivet-starkit/main.tcl.

146
147
148
149
150
151
152


153
154
155
156
157
158
159
...
765
766
767
768
769
770
771




772
773
774
775
776
777
778
			} else {
				set env(SCRIPT_NAME) $scriptname
			}

			if {$createinterp} {
				set myinterp [interp create]



				foreach var [list ::starkit::topdir ::auto_path] {
					if {[namespace qualifiers $var] != ""} {
						$myinterp eval [list namespace eval [namespace qualifiers $var] ""]
					}
					$myinterp eval [list set $var [set $var]]
				}

................................................................................

	catch {
		tcl_puts $logfd $msg

		flush $logfd
	}
}





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>\]"
	tcl_puts "       \[--sslport <port>\] \[--sslcert <file>\] \[--sslkey <file>\]"
	tcl_puts "       \[--sslcafile <file>\] \[--sslcadir <dir>\] \[--sslreqcert {yes|no}\]"







>
>







 







>
>
>
>







146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
...
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
			} else {
				set env(SCRIPT_NAME) $scriptname
			}

			if {$createinterp} {
				set myinterp [interp create]

				interp alias $myinterp exit {} ::rivetstarkit::destroy_interp $myinterp

				foreach var [list ::starkit::topdir ::auto_path] {
					if {[namespace qualifiers $var] != ""} {
						$myinterp eval [list namespace eval [namespace qualifiers $var] ""]
					}
					$myinterp eval [list set $var [set $var]]
				}

................................................................................

	catch {
		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>\]"
	tcl_puts "       \[--sslport <port>\] \[--sslcert <file>\] \[--sslkey <file>\]"
	tcl_puts "       \[--sslcafile <file>\] \[--sslcadir <dir>\] \[--sslreqcert {yes|no}\]"