summaryrefslogtreecommitdiffstats
path: root/debian/perl-framework/t/htdocs/modules/lua/websockets.lua
blob: 6e6d5ba162659c227e131e94e25de9a85903dc2d (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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