Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Documented changes in respond. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
b0f33e9a8c19493664e16e1d46d661e6 |
| User & Date: | oehhar 2012-11-06 08:19:14 |
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
...
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
|
# 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]"
................................................................................
#
# 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 G.Lester Initial version
#
#
###########################################################################
proc ::WS::Embeded::httpreturncode {code} {
variable returnCodeText
if {[dict exist $returnCodeText $code]} {
set textCode [dict get $returnCodeText $code]
|
>
>
|
|
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
...
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 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]" ................................................................................ # # 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] |