From 722b7f5a6834f2ca6c8ea03aa3a7c96a7a84873c Mon Sep 17 00:00:00 2001 From: Daniel Baumann Date: Wed, 17 Apr 2024 15:43:00 +0200 Subject: Adding debian version 2.4.59-1~deb12u1. Signed-off-by: Daniel Baumann --- debian/perl-framework/t/htdocs/modules/lua/websockets.lua | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'debian/perl-framework/t/htdocs/modules/lua/websockets.lua') 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! -- cgit v1.2.3