Adding debian version 2.4.59-1~deb10u1.debian/2.4.59-1_deb10u1debian

Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>

1 files changed, 18 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
new file mode 100644
index 0000000..6e6d5ba
--- /dev/null
+++ b/debian/perl-framework/t/htdocs/modules/lua/websockets.lua
@@ -0,0 +1,18 @@
+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!
+        break
+     end     
+
+    end
+end
+end