diff options
| author | Daniel Baumann <daniel.baumann@progress-linux.org> | 2024-04-17 13:43:02 +0000 |
|---|---|---|
| committer | Daniel Baumann <daniel.baumann@progress-linux.org> | 2024-04-17 13:43:02 +0000 |
| commit | fdf532b1ed005481d9fc9a49ed2bf3f9d29db64d (patch) | |
| tree | 380619f479f5eb58405b52500266132dbda8f95c /debian/perl-framework/t/htdocs/modules/lua | |
| parent | Merging upstream version 2.4.59. (diff) | |
| download | apache2-fdf532b1ed005481d9fc9a49ed2bf3f9d29db64d.tar.xz apache2-fdf532b1ed005481d9fc9a49ed2bf3f9d29db64d.zip | |
Merging debian version 2.4.59-1~deb12u1.
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! |