| Revision: | 1.1 |
| Committed: | Tue Nov 6 01:25:48 2012 UTC (11 years, 7 months ago) by root |
| Branch: | MAIN |
| Log Message: | *** empty log message *** |
| # | Content |
|---|---|
| 1 | #! perl # mandatory depends=tcp |
| 2 | |
| 3 | # websocket server on base port, called by tcp.ext |
| 4 | |
| 5 | # websocket requests can be very long, and we want the tcp code to buffer for us |
| 6 | our $detector = ext::tcp::register websocket => 4096, sub { |
| 7 | m{^(?:(?i)GET) /ws .*\015\012\015\012}s |
| 8 | }, sub { |
| 9 | }; |
| 10 |