debian/perl-framework/t/htdocs/modules/lua/websockets.lua


1
2
3
4
5
6
7
8
9
10
11
12
13

function handle(r)
if r:wsupgrade() then -- if we can upgrade:
    while true do
      local line, isFinal = r:wsread() 
      r:wswrite(line)
      if line == "quit" then
        r:wsclose()  -- goodbye!
        break
     end     

    end
end
end