TclApps Library Source Code
Check-in [8032a4f47b]
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:Adjust max length to accomodate \r\n
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 8032a4f47b8cdee3881920db9630958a2a04201e
User & Date: patthoyts 2009-01-02 11:32:28
Context
2009-01-14
14:40
* tkchat.tcl: Simplify ::tkchat::GoogleSelection and fix the bindings that call it. It now also works for selections in windows outside of tkchat. check-in: 979cc3686d user: rmax tags: trunk
2009-01-02
11:32
Adjust max length to accomodate \r\n check-in: 8032a4f47b user: patthoyts tags: trunk
10:52
Break up long lines from jabber to avoid irc length restrictions check-in: dfc6268f72 user: patthoyts tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to apps/ijbridge/ijbridge.tcl.

20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
...
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
package require irc 0.4;                # tcllib

namespace eval client {}

namespace eval ::ijbridge {

    variable version 1.1.1
    variable rcsid {$Id: ijbridge.tcl,v 1.35 2009/01/02 10:52:27 patthoyts Exp $}

    # This array MUST be set up by reading the configuration file. The
    # member names given here define the settings permitted in the 
    # config file.
    # This script will not work by default - you MUST provide suitable 
    # connection details.
    #
................................................................................
                }
                set hdrlen [string length $irchdr]
                if {$emote} {incr hdrlen}

                foreach line [split $a(-body) \n] {
                    UpdateStats $nick [string length $line]
                    while {[string length $line] > 0} {
                        set end [expr {512 - $hdrlen - 32}]
                        if {$end < [string length $line]} {
                            set end [string wordstart $line $end]
                            if {$end < [string length $line]} { incr end -1 }
                        }
                        set msg "$irchdr [string range $line 0 $end]"
                        set line [string range $line [incr end] end]
                        if {$emote} {append $msg \001}






|







 







|







20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
...
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
package require irc 0.4;                # tcllib

namespace eval client {}

namespace eval ::ijbridge {

    variable version 1.1.1
    variable rcsid {$Id: ijbridge.tcl,v 1.36 2009/01/02 11:32:28 patthoyts Exp $}

    # This array MUST be set up by reading the configuration file. The
    # member names given here define the settings permitted in the 
    # config file.
    # This script will not work by default - you MUST provide suitable 
    # connection details.
    #
................................................................................
                }
                set hdrlen [string length $irchdr]
                if {$emote} {incr hdrlen}

                foreach line [split $a(-body) \n] {
                    UpdateStats $nick [string length $line]
                    while {[string length $line] > 0} {
                        set end [expr {510 - $hdrlen - 32}]
                        if {$end < [string length $line]} {
                            set end [string wordstart $line $end]
                            if {$end < [string length $line]} { incr end -1 }
                        }
                        set msg "$irchdr [string range $line 0 $end]"
                        set line [string range $line [incr end] end]
                        if {$emote} {append $msg \001}