diff options
| author | Daniel Baumann <daniel.baumann@progress-linux.org> | 2024-04-17 13:43:00 +0000 |
|---|---|---|
| committer | Daniel Baumann <daniel.baumann@progress-linux.org> | 2024-04-17 13:43:00 +0000 |
| commit | 722b7f5a6834f2ca6c8ea03aa3a7c96a7a84873c (patch) | |
| tree | 7ea234da7d12316415070d51fc318ad2a2f02e3a /debian/perl-framework/t/htdocs/modules/lua | |
| parent | Merging upstream version 2.4.59. (diff) | |
| download | apache2-722b7f5a6834f2ca6c8ea03aa3a7c96a7a84873c.tar.xz apache2-722b7f5a6834f2ca6c8ea03aa3a7c96a7a84873c.zip | |
Adding debian version 2.4.59-1~deb12u1.debian/2.4.59-1_deb12u1debian
Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>
Diffstat (limited to 'debian/perl-framework/t/htdocs/modules/lua')
| -rw-r--r-- | debian/perl-framework/t/htdocs/modules/lua/websockets.lua | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/debian/perl-framework/t/htdocs/modules/lua/websockets.lua b/debian/perl-framework/t/htdocs/modules/lua/websockets.lua index 1acd91b..6e6d5ba 100644 --- a/debian/perl-framework/t/htdocs/modules/lua/websockets.lua +++ b/debian/perl-framework/t/htdocs/modules/lua/websockets.lua @@ -2,6 +2,11 @@ function handle(r) if r:wsupgrade() then -- if we can upgrade: while true do local line, isFinal = r:wsread() + local len = string.len(line); + r:debug(string.format("writing line of len %d: %s", len, line)) + if len >= 1024 then + r:debug("writing line ending in '" .. string.sub(line, -127, -1) .. "'") + end r:wswrite(line) if line == "quit" then r:wsclose() -- goodbye! |