Wapp

Differences From Artifact [deca059d5a]:

• File wapp.tcl — part of check-in [bccd3dd07f] at 2018-02-04 19:49:07 on branch trunk — Make CGI parameters DOCUMENT_ROOT and SCRIPT_FILENAME available to the application. (user: drh size: 25925)

To Artifact [2ffee8b0e2]:

• File wapp.tcl — part of check-in [4c985fa7e4] at 2018-02-04 23:38:06 on branch trunk — Add the (pwd)= output line to wapp-debug-env. (user: drh size: 25965)

314
315
316
317
318
319
320

321
322
323
324
325
326
327

proc wapp-debug-env {} {
  global wapp
  set out {}
  foreach var [lsort [dict keys $wapp]] {
    if {[string index $var 0]=="."} continue
    append out "$var = [list [dict get $wapp $var]]\n"
  }

  return $out
}

# Start up the wapp framework.  Parameters are a list passed as the
# single argument.
#
#    -server $PORT         Listen for HTTP requests on this TCP port $PORT

>

314
315
316
317
318
319
320
321
322
323
324
325
326
327
328

proc wapp-debug-env {} {
  global wapp
  set out {}
  foreach var [lsort [dict keys $wapp]] {
    if {[string index $var 0]=="."} continue
    append out "$var = [list [dict get $wapp $var]]\n"
  }
  append out "\[pwd\] = [list [pwd]]\n"
  return $out
}

# Start up the wapp framework.  Parameters are a list passed as the
# single argument.
#
#    -server $PORT         Listen for HTTP requests on this TCP port $PORT