Revision: | 1.1 |
Committed: | Tue Nov 6 01:25:48 2012 UTC (11 years, 6 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 |