1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
-module(simple_ws_check).
-export([is_acceptable/6]).
-include("ejabberd.hrl").
is_acceptable([<<"true">>] = Path, Q, Origin, Protocol,
IP, Headers) ->
?INFO_MSG("Authorized Websocket ~p with: ~n Q = "
"~p~n Origin = ~p~n Protocol = ~p~n IP "
"= ~p~n Headers = ~p~n",
[Path, Q, Origin, Protocol, IP, Headers]),
true;
is_acceptable([<<"false">>] = Path, Q, Origin, Protocol,
IP, Headers) ->
?INFO_MSG("Failed Websocket ~p with: ~n Q = ~p~n "
"Origin = ~p~n Protocol = ~p~n IP = ~p~n "
"Headers = ~p~n",
[Path, Q, Origin, Protocol, IP, Headers]),
false.
|
