| Revision: | 1.1 |
| Committed: | Tue Nov 6 01:25:48 2012 UTC (13 years, 11 months ago) by root |
| Branch: | MAIN |
| Log Message: | *** empty log message *** |
| # | User | Rev | Content |
|---|---|---|---|
| 1 | root | 1.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 |