#! perl # mandatory depends=tcp

# websocket server on base port, called by tcp.ext

# websocket requests can be very long, and we want the tcp code to buffer for us
our $detector = ext::tcp::register websocket => 4096, sub {
   m{^(?:(?i)GET) /ws .*\015\012\015\012}s
}, sub {
};