3
3
4
4
-export ([init /2 , handle /2 , handle_event /3 ]).
5
5
6
- % Websocket callbacks.
6
+ % % Websocket callbacks.
7
7
-export ([
8
- websocket_init /2 ,
9
- websocket_info /3 ,
10
- websocket_handle /3 ,
8
+ websocket_init /2 ,
9
+ websocket_info /3 ,
10
+ websocket_handle /3 ,
11
11
12
- websocket_handle_event /3
13
- ]).
12
+ websocket_handle_event /3
13
+ ]).
14
14
15
15
-include_lib (" elli/include/elli.hrl" ).
16
16
17
- % % Serves as elli and websocket handler in one module.
17
+ % % Serves as elli and websocket handler in one module.
18
18
19
19
-behaviour (elli_handler ).
20
20
-behaviour (elli_websocket_handler ).
27
27
% % that this request is upgraded.
28
28
% %
29
29
init (Req , Args ) ->
30
- Method = case elli_request :get_header (<<" Upgrade" >>, Req ) of
31
- <<" websocket" >> ->
32
- init_ws (elli_request :path (Req ), Req , Args );
33
- _ ->
34
- ignore
35
- end .
30
+ _Method = case elli_request :get_header (<<" Upgrade" >>, Req ) of
31
+ <<" websocket" >> ->
32
+ init_ws (elli_request :path (Req ), Req , Args );
33
+ _ ->
34
+ ignore
35
+ end .
36
36
37
37
handle (Req , Args ) ->
38
38
Method = case elli_request :get_header (<<" Upgrade" >>, Req ) of
39
- <<" websocket" >> ->
40
- websocket ;
41
- _ ->
42
- elli_request : method ( Req )
43
- end ,
39
+ <<" websocket" >> ->
40
+ websocket ;
41
+ _ ->
42
+ elli_request : method ( Req )
43
+ end ,
44
44
handle (Method , elli_request :path (Req ), Req , Args ).
45
45
46
46
@@ -60,7 +60,7 @@ handle('websocket', [<<"my">>, <<"websocket">>], Req, Args) ->
60
60
handle ('GET' , [<<" my" >>, <<" websocket" >>], _Req , _Args ) ->
61
61
{200 , [], <<" Use an upgrade request" >>};
62
62
63
- handle (_ ,_ , _ , _ ) ->
63
+ handle (_ , _ , _ , _ ) ->
64
64
ignore .
65
65
66
66
handle_event (Name , EventArgs , ElliArgs ) ->
@@ -72,24 +72,24 @@ handle_event(Name, EventArgs, ElliArgs) ->
72
72
% %
73
73
74
74
75
- % @doc
76
- %
75
+ % % @doc
76
+ % %
77
77
websocket_init (Req , Opts ) ->
78
78
io :fwrite (standard_error , " example_ws_init: ~p , ~p ~n " , [Req , Opts ]),
79
79
State = undefined ,
80
80
{ok , [], State }.
81
81
82
- websocket_info (Req , Message , State ) ->
82
+ websocket_info (_Req , Message , State ) ->
83
83
io :fwrite (standard_error , " example_ws_info: ~p~n " , [Message ]),
84
84
{ok , State }.
85
85
86
- websocket_handle (Req , Message , State ) ->
86
+ websocket_handle (_Req , Message , State ) ->
87
87
io :fwrite (standard_error , " example_ws_handle: ~p~n " , [Message ]),
88
- % % default behaviour.
88
+ % % default behaviour.
89
89
{ok , State }.
90
90
% % comment the line above ({ok, State}.)
91
91
% % and uncomment the line below for an echo server.
92
- % {reply, Message, State}.
92
+ % % {reply, Message, State}.
93
93
94
94
95
95
% %
@@ -108,7 +108,3 @@ websocket_handle_event(websocket_close, [_, _Reason], _) -> ok;
108
108
websocket_handle_event (websocket_throw , [_Request , _Exception , _Stacktrace ], _ ) -> ok ;
109
109
websocket_handle_event (websocket_error , [_Request , _Exception , _Stacktrace ], _ ) -> ok ;
110
110
websocket_handle_event (websocket_exit , [_Request , _Exception , _Stacktrace ], _ ) -> ok .
111
-
112
-
113
-
114
-
0 commit comments