diff options
| author | Daniel Baumann <daniel.baumann@progress-linux.org> | 2024-05-04 10:03:20 +0000 |
|---|---|---|
| committer | Daniel Baumann <daniel.baumann@progress-linux.org> | 2024-05-04 10:03:20 +0000 |
| commit | 1ecda73aa336bdd471372110b58101f9bd23c059 (patch) | |
| tree | 29af5ecf055bc027c161ceb0f02d39d41188f316 /debian/perl-framework/t/htdocs/modules/lua | |
| parent | Merging upstream version 2.4.59. (diff) | |
| download | apache2-1ecda73aa336bdd471372110b58101f9bd23c059.tar.xz apache2-1ecda73aa336bdd471372110b58101f9bd23c059.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! |