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!