Check-in [3038f5cae3]

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

Overview
Comment:rivetcgi 0.5.1.4
Timelines: family | ancestors | descendants | both | trunk | 0.5.1.4
Files: files | file ages | folders
SHA1:3038f5cae38c93fa0da99515ec960ebc3a276cf0
User & Date: rkeene 2014-11-04 23:20:37
Context
2014-11-04
23:39
rivetcgi 0.5.1.5 check-in: d545ab71bf user: rkeene tags: trunk, 0.5.1.5
23:20
rivetcgi 0.5.1.4 check-in: 3038f5cae3 user: rkeene tags: trunk, 0.5.1.4
23:08
rivetcg 0.5.1.3 check-in: cb723c8627 user: rkeene tags: trunk
Changes

Changes to build/example/Makefile.

1
2
3
4
5
6
7
8
9
10
11
12


13
14
15
16
17
18
19
TESTS = test1.cgi

all: $(TESTS)

%.cgi: %.kit
	~/devel/starkit2exe/starkit2exe $^ $@

%.kit: %.vfs
	../../bin/rivet2starkit tclkit $@ $^

test1.cgi: test1.kit
test1.kit: test1.vfs



clean:
	rm -f $(TESTS) *.kit

distclean: clean

.PHONY: all clean distclean
|











>
>







1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
TESTS = test1.cgi test2.cgi

all: $(TESTS)

%.cgi: %.kit
	~/devel/starkit2exe/starkit2exe $^ $@

%.kit: %.vfs
	../../bin/rivet2starkit tclkit $@ $^

test1.cgi: test1.kit
test1.kit: test1.vfs
test2.cgi: test2.kit
test2.kit: test2.vfs

clean:
	rm -f $(TESTS) *.kit

distclean: clean

.PHONY: all clean distclean

Added build/example/test2.vfs/index.rvt.





















>
>
>
>
>
>
>
>
>
>
1
2
3
4
5
6
7
8
9
10
<?
	headers redirect "/"
?><html>
  <head>
    <title>Rivet/CGI Example Test 1</title>
  </head>
  <body>
    This is a simple Rivet test.<br>
  </body>
</html>

Changes to build/makearch.info.

8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
# This lists the name of files that are required to exist
REQS="init.tcl"

# Version of utility, if empty it will be guessed.
# If set to "auto" it will be maintained in a file called .version
# in the source directory and the revision will be incremented
# each time a "makearch" is done.
VERS="0.5.1.3"

# Space sperated list of documents, if they exist, they will be
# prefixed with the contents of the DOC_HDR file and substitution
# will occur:
#     @@UTIL@@ becomes the utility name ${UTIL}
#     @@VERS@@ becomes the utility version
#     @@DATE@@ becomes the current date







|







8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
# This lists the name of files that are required to exist
REQS="init.tcl"

# Version of utility, if empty it will be guessed.
# If set to "auto" it will be maintained in a file called .version
# in the source directory and the revision will be incremented
# each time a "makearch" is done.
VERS="0.5.1.4"

# Space sperated list of documents, if they exist, they will be
# prefixed with the contents of the DOC_HDR file and substitution
# will occur:
#     @@UTIL@@ becomes the utility name ${UTIL}
#     @@VERS@@ becomes the utility version
#     @@DATE@@ becomes the current date

Changes to rivet-starkit/main.tcl.

173
174
175
176
177
178
179

180

181
182
183




184
185
186
187
188
189
190
...
769
770
771
772
773
774
775



776
777
778
779
780
781
782
783
784
				if {$elogchan != "" && $elogchan != "stderr"} {
					interp share {} $elogchan $myinterp
				}

				if {[catch {
					$myinterp eval [list parse $targetfile]
				} err]} {

					$myinterp eval [list rivet_error]

				}

				# Flush the output stream




				$myinterp eval [list rivet_flush -final]

				# Determine result
				set retval "close"
				if {[$myinterp eval [list info exists ::rivet::connection]]} {
					set retval [$myinterp eval [list set ::rivet::connection]]
				}
................................................................................
		tcl_puts $logfd $msg

		flush $logfd
	}
}

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



	interp delete $interp
	proc $interp args {}
}

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>\]"







>
|
>



>
>
>
>







 







>
>
>

<







173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
...
775
776
777
778
779
780
781
782
783
784
785

786
787
788
789
790
791
792
				if {$elogchan != "" && $elogchan != "stderr"} {
					interp share {} $elogchan $myinterp
				}

				if {[catch {
					$myinterp eval [list parse $targetfile]
				} err]} {
					if {[info command $myinterp] != ""} {
						$myinterp eval [list rivet_error]
					}
				}

				# Flush the output stream
				if {[info command $myinterp] == ""} {
					return
				}

				$myinterp eval [list rivet_flush -final]

				# Determine result
				set retval "close"
				if {[$myinterp eval [list info exists ::rivet::connection]]} {
					set retval [$myinterp eval [list set ::rivet::connection]]
				}
................................................................................
		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>\]"
	tcl_puts "       \[--sslport <port>\] \[--sslcert <file>\] \[--sslkey <file>\]"