Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | Fix multipart boundary detection |
---|---|
Downloads: | Tarball | ZIP archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
5800e8330a6bb8e359d280c7fbac0502 |
User & Date: | rmax 2010-10-13 13:56:00.000 |
Context
2010-11-16
| ||
09:46 | * askleo/askleo.tcl: Adjust code to the latest API changes on http://pda.leo.org and improve the UI. check-in: 77d4dd2a12 user: rmax tags: trunk | |
2010-10-13
| ||
13:56 | Fix multipart boundary detection check-in: 5800e8330a user: rmax tags: trunk | |
2010-09-17
| ||
10:13 | * tkchat.tcl (::tkchat::checkCommand): A single / at the start of a post is now rejected if it is not a known command. To send a literal slash at the beginning of a post, it has to be doubled. Improved detection and handling of the /tip command. check-in: e4a92bc49b user: rmax tags: trunk | |
Changes
Changes to apps/tkchat/tkchat_mjpeg.tcl.
︙ | ︙ | |||
58 59 60 61 62 63 64 65 66 67 68 69 70 71 | switch -- $state { boundary { Status $dlg "Waiting for image" Progress $dlg $tok 100 0 fconfigure $fd -buffering line -translation crlf gets $fd line if {[string match "${boundary}*" $line]} {set state mime; set hdrs {}} return [string length $line] } mime { variable retrycount 0 Status $dlg "Reading image" fconfigure $fd -buffering line -translation crlf gets $fd line | > | 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 | switch -- $state { boundary { Status $dlg "Waiting for image" Progress $dlg $tok 100 0 fconfigure $fd -buffering line -translation crlf gets $fd line if {[string match "${boundary}*" $line]} {set state mime; set hdrs {}} if {[string match "--${boundary}*" $line]} {set state mime; set hdrs {}} return [string length $line] } mime { variable retrycount 0 Status $dlg "Reading image" fconfigure $fd -buffering line -translation crlf gets $fd line |
︙ | ︙ |