1
0
Fork 0
apache2/debian/perl-framework/t/htdocs/modules/lua/websockets.lua
Daniel Baumann f56986e2d9
Adding debian version 2.4.63-1.
Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>
2025-06-22 11:01:27 +02:00

18 lines
474 B
Lua

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