Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Documented changes in respond. |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
b0f33e9a8c19493664e16e1d46d661e6 |
| User & Date: | oehhar 2012-11-06 08:19:14.777 |
Context
| 2012-11-06 17:03 | Documented Embedded and server user interface change check-in: 164e7224e1 user: oehhar tags: trunk | |
| 2012-11-06 08:19 | Documented changes in respond. check-in: b0f33e9a8c user: oehhar tags: trunk | |
| 2012-11-05 14:07 | Additional corrections to embedded code. check-in: 8ab30a71a3 user: gerald tags: trunk | |
Changes
Changes to Embedded.tcl.
| ︙ | ︙ | |||
310 311 312 313 314 315 316 317 318 319 320 321 322 323 |
# Maintenance History - as this file is modified, please be sure that you
# update this segment of the file header block by
# adding a complete entry at the bottom of the list.
#
# Version Date Programmer Comments / Changes / Reasons
# ------- ---------- ---------- -------------------------------------------
# 1 03/28/2008 G.Lester Initial version
#
#
###########################################################################
proc ::WS::Embeded::respond {sock code body {head ""}} {
set body [encoding convertto iso8859-1 $body\r\n]
chan configure $sock -translation crlf
puts $sock "[httpreturncode $code]\nContent-Type: text/html; charset=ISO-8859-1\nConnection: close\nContent-length: [string length $body]"
| > > | 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 |
# Maintenance History - as this file is modified, please be sure that you
# update this segment of the file header block by
# adding a complete entry at the bottom of the list.
#
# Version Date Programmer Comments / Changes / Reasons
# ------- ---------- ---------- -------------------------------------------
# 1 03/28/2008 G.Lester Initial version
# 2.3.0 11/06/2012 H.Oehlmann Separate head and body,
# correct Content-length
#
#
###########################################################################
proc ::WS::Embeded::respond {sock code body {head ""}} {
set body [encoding convertto iso8859-1 $body\r\n]
chan configure $sock -translation crlf
puts $sock "[httpreturncode $code]\nContent-Type: text/html; charset=ISO-8859-1\nConnection: close\nContent-length: [string length $body]"
|
| ︙ | ︙ | |||
360 361 362 363 364 365 366 | # # Maintenance History - as this file is modified, please be sure that you # update this segment of the file header block by # adding a complete entry at the bottom of the list. # # Version Date Programmer Comments / Changes / Reasons # ------- ---------- ---------- ------------------------------------------- | | | 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 |
#
# Maintenance History - as this file is modified, please be sure that you
# update this segment of the file header block by
# adding a complete entry at the bottom of the list.
#
# Version Date Programmer Comments / Changes / Reasons
# ------- ---------- ---------- -------------------------------------------
# 1 10/05/2012 H.Oehlmann Initial version
#
#
###########################################################################
proc ::WS::Embeded::httpreturncode {code} {
variable returnCodeText
if {[dict exist $returnCodeText $code]} {
set textCode [dict get $returnCodeText $code]
|
| ︙ | ︙ |