-
Notifications
You must be signed in to change notification settings - Fork 576
/
websocket.pl
50 lines (47 loc) · 1.24 KB
/
websocket.pl
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
use FindBin;
use lib "$FindBin::Bin/../lib";
use Mojolicious::Lite;
# "Stop being such a spineless jellyfish!
# You know full well I'm more closely related to the sea cucumber.
# Not where it counts."
any '/' => sub {
my $self = shift;
$self->on(message => sub { shift->send(shift) }) if $self->tx->is_websocket;
} => 'websocket';
# Minimal WebSocket application for browser testing
app->start;
__DATA__
@@ websocket.html.ep
<!DOCTYPE html>
<html>
<head>
<title>WebSocket</title>
% my $url = url_for->to_abs->scheme('ws');
%= javascript begin
var ws;
if ("MozWebSocket" in window) {
ws = new MozWebSocket('<%= $url %>');
}
else if ("WebSocket" in window) {
ws = new WebSocket('<%= $url %>');
}
if(typeof(ws) !== 'undefined') {
function wsmessage(event) {
data = event.data;
alert(data);
}
function wsopen(event) {
ws.send("WebSocket support works!");
}
ws.onmessage = wsmessage;
ws.onopen = wsopen;
}
else {
alert("Sorry, your browser does not support WebSockets.");
}
% end
</head>
<body>
Testing WebSockets, please make sure you have JavaScript enabled.
</body>
</html>