TclApps Library Source Code
Check-in [5800e8330a]
Not logged in
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2019 Conference, Houston/TX, US, Nov 4-8
Send your abstracts to [email protected]
or submit via the online form by Sep 9.

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: 5800e8330a6bb8e359d280c7fbac0502a1d60205
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
Hide Diffs Unified Diffs Ignore Whitespace Patch

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