Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Fix multipart boundary detection |
|---|---|
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
5800e8330a6bb8e359d280c7fbac0502 |
| User & Date: | rmax 2010-10-13 13:56:00 |
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
|