Adding debian version 2.4.63-1.
Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>
This commit is contained in:
parent
7263481e48
commit
f56986e2d9
1490 changed files with 80785 additions and 0 deletions
18
debian/perl-framework/t/htdocs/modules/lua/websockets.lua
vendored
Normal file
18
debian/perl-framework/t/htdocs/modules/lua/websockets.lua
vendored
Normal file
|
@ -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
|
Loading…
Add table
Add a link
Reference in a new issue