Wapp

Differences From Artifact [489eb6684f]:

• File wapp.tcl — part of check-in [15fbf713e6] at 2018-02-01 03:11:55 on branch trunk — Safety enhancements: (A) Invoke the application with the --lint option to do a self-check for unsafe constructs. (B) Bring back the wapp-unsafe command for the rare cases where it is actually needed. (C) Comment out wapp.tcl comment lines when building the wapptclsh application. (user: drh size: 25966)

To Artifact [7159053079]:

• File wapp.tcl — part of check-in [098049fe94] at 2018-02-01 21:19:32 on branch trunk — Always set "-translation binary" on an http reply. Add an icon to the shoplist.tcl example application. (user: drh size: 25960)

767
768
769
770
771
772
773
774
775
776
777
778
779
780
781

782
783
784
785
786
787
788

  if {[string match text/* $mimetype]} {
    set reply [encoding convertto utf-8 [dict get $wapp .reply]]
    if {[regexp {\ygzip\y} [wapp-param HTTP_ACCEPT_ENCODING]]} {
      catch {
        set x [zlib gzip $reply]
        set reply $x
        puts $chan "Content-Encoding: gzip\r"
        fconfigure $chan -translation binary
      }
    }
  } else {
    set reply [dict get $wapp .reply]
  }
  puts $chan "Content-Length: [string length $reply]\r"
  puts $chan \r

  puts $chan $reply
  flush $chan
  wappInt-close-channel $chan
}

# This routine runs just prior to request-handler dispatch.  The
# default implementation is a no-op, but applications can override

<







>

767
768
769
770
771
772
773

774
775
776
777
778
779
780
781
782
783
784
785
786
787
788

  if {[string match text/* $mimetype]} {
    set reply [encoding convertto utf-8 [dict get $wapp .reply]]
    if {[regexp {\ygzip\y} [wapp-param HTTP_ACCEPT_ENCODING]]} {
      catch {
        set x [zlib gzip $reply]
        set reply $x
        puts $chan "Content-Encoding: gzip\r"

      }
    }
  } else {
    set reply [dict get $wapp .reply]
  }
  puts $chan "Content-Length: [string length $reply]\r"
  puts $chan \r
  fconfigure $chan -translation binary
  puts $chan $reply
  flush $chan
  wappInt-close-channel $chan
}

# This routine runs just prior to request-handler dispatch.  The
# default implementation is a no-op, but applications can override