Wapp

Check-in [820bdf0f00]
Login

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

Overview
Comment:Add the CGI test script and fix auto-detection of CGI.
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256: 820bdf0f0055a5cccf3e7bf7a6a358d19a7ca256efd3074acf69b3bc3c2491e4
User & Date: drh 2017-12-13 12:32:14.310
Context
2017-12-13
13:00
Refactor the command-line argument. Update documentation accordingly. (check-in: 69cae4edc3 user: drh tags: trunk)
12:32
Add the CGI test script and fix auto-detection of CGI. (check-in: 820bdf0f00 user: drh tags: trunk)
12:30
CGI mode is now working. (check-in: d637e1ba1d user: drh tags: trunk)
Changes
Unified Diff Ignore Whitespace Patch
Added default.website/test02. 
































>
>
>
>
>
>
>
>
>
>
>
>
>
>
>

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

#!/usr/bin/tclsh
#
# This script is for testing wapp in CGI mode using the althttpd web-server.
# This script is contained inside the "default.website" subdirectory.  Let
# $ROOT be the name of the root of this source archive - the directory that
# contains "default.website".  Then to start up althttpd for this test
# run:
#
#     althttpd -root $ROOT -port 8080
#
# This visit http://localhost:8080/test02 in your web browser
#
set ROOT [file dir [file dir [file normalize $env(SCRIPT_FILENAME)]]]
cd $ROOT
source test01.tcl
Changes to wapp.tcl.
︙︙
100
101
102
103
104
105
106

107
108
109
110
111
112
113

#
#    -port $PORT           Listen on this TCP port
#
#    -mode $MODE           One of "auto" (the default), "cgi", "server"
#                          or "scgi".
#
proc wapp-start {arglist} {

  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 {








>








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 {
︙︙