Differences From Artifact [1eb8dcf157]:
- File wapp.tcl — part of check-in [d637e1ba1d] at 2017-12-13 12:30:09 on branch trunk — CGI mode is now working. (user: drh size: 15796)
To Artifact [649e2a8030]:
- File wapp.tcl — part of check-in [820bdf0f00] at 2017-12-13 12:32:14 on branch trunk — Add the CGI test script and fix auto-detection of CGI. (user: drh size: 15809)
| ︙ | |||
100 101 102 103 104 105 106 107 108 109 110 111 112 113 | 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 | + |
#
# -port $PORT Listen on this TCP port
#
# -mode $MODE One of "auto" (the default), "cgi", "server"
# or "scgi".
#
proc wapp-start {arglist} {
global env
set mode auto
set port 0
set n [llength $arglist]
for {set i 0} {$i<$n} {incr i} {
set term [lindex $arglist $i]
if {[string match --* $term]} {set term [string range $term 1 end]}
switch -- $term {
|
| ︙ |