1 files changed, 21 insertions, 0 deletions
diff --git a/src/simple_ws_check.erl b/src/simple_ws_check.erl
new file mode 100644
index 000000000..b06dbd5d7
--- /dev/null
+++ b/src/simple_ws_check.erl
@@ -0,0 +1,21 @@
+-module(simple_ws_check).
+
+-export([is_acceptable/6]).
+
+-include("ejabberd.hrl").
+-include("logger.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.