Unable to publish messages more than 121 bytes

[chouyazi]

Hi,
As stated in the subject, it seems I can only publish messages up to about 121 bytes, is this a known issue? possible to fix it? Thank you.

[gallacci97]

Hi, I know it's been a while since you posted the issue but I encoutered the same problem just a week ago. You have to change the variable byte encoding following mqtt specs this way:

proc ::mqtt::encode128 {{in_num 0}} {
set x $in_num
set result 0
set nbit 0
#split into 128 blocks
while {$x > 0 && $nbit < 4} {
set e [expr ($x % 128)]
set x [expr ($x/128)]
if {$x > 0} {
set e [expr $e | 128]
}
set result [expr $result * 256]
incr result $e
incr nbit
}
return [format %02x $result]
}