feat(gw-stomp): call unsubscribe hook

apps/emqx_gateway/README.md

@@ -38,6 +38,7 @@ Gateway v0.2: "Integration & Friendly Management"
     - The Concept Review
 
 Gateway v0.3: "Fault tolerance and high availability"
+    - A common session modoule for message delivery policy
     - The restart mechanism for gateway-instance
     - Consistency of cluster state
     - Configuration hot update

apps/emqx_gateway/src/stomp/emqx_stomp_channel.erl

@@ -59,6 +59,8 @@
           conninfo      :: emqx_types:conninfo(),
           %% Stomp Client Info
           clientinfo    :: emqx_types:clientinfo(),
+          %% Session
+          session       :: undefined | map(),
           %% ClientInfo override specs
           clientinfo_override :: map(),
           %% Connection Channel
@@ -303,12 +305,12 @@ process_connect(Channel = #channel{
            ConnInfo,
            SessFun
           ) of
-        {ok, _Sess} -> %% The stomp protocol doesn't have session
+        {ok, #{session := Session}} ->
             #{proto_ver := Version} = ConnInfo,
             #{heartbeat := Heartbeat} = ClientInfo,
             Headers = [{<<"version">>, Version},
                        {<<"heart-beat">>, reverse_heartbeats(Heartbeat)}],
-            handle_out(connected, Headers, Channel);
+            handle_out(connected, Headers, Channel#channel{session = Session});
         {error, Reason} ->
             ?LOG(error, "Failed to open session du to ~p", [Reason]),
             Headers = [{<<"version">>, <<"1.0,1.1,1.2">>},
@@ -406,11 +408,22 @@ handle_in(?PACKET(?CMD_SUBSCRIBE, Headers),
     end;
 
 handle_in(?PACKET(?CMD_UNSUBSCRIBE, Headers),
-          Channel = #channel{subscriptions = Subs}) ->
+          Channel = #channel{
+                       ctx = Ctx,
+                       clientinfo = ClientInfo
+                                  = #{mountpoint := Mountpoint},
+                       subscriptions = Subs}) ->
     SubId = header(<<"id">>, Headers),
-    {ok, NChannel} = case lists:keyfind(SubId, 1, Subs) of
+    {ok, NChannel} =
-                       {SubId, Topic, _Ack} ->
+        case lists:keyfind(SubId, 1, Subs) of
-                           ok = emqx_broker:unsubscribe(Topic),
+            {SubId, MountedTopic, _Ack} ->
+                Topic = emqx_mountpoint:unmount(Mountpoint, MountedTopic),
+                %% XXX: eval the return topics?
+                _ = run_hooks(Ctx, 'client.unsubscribe',
+                              [ClientInfo, #{}], [{Topic, #{}}]),
+                ok = emqx_broker:unsubscribe(MountedTopic),
+                _ = run_hooks(Ctx, 'session.unsubscribe',
+                              [ClientInfo, MountedTopic, #{}]),
                 {ok, Channel#channel{subscriptions = lists:keydelete(SubId, 1, Subs)}};
              false ->
                  {ok, Channel}
@@ -827,8 +840,11 @@ handle_timeout(_TRef, clean_trans, Channel = #channel{transaction = Trans}) ->
 %% Terminate
 %%--------------------------------------------------------------------
 
-terminate(_Reason, _Channel) ->
+terminate(Reason, #channel{
-    ok.
+                      ctx = Ctx,
+                      session = Session,
+                      clientinfo = ClientInfo}) ->
+    run_hooks(Ctx, 'session.terminated', [ClientInfo, Reason, Session]).
 
 reply(Reply, Channel) ->
     {reply, Reply, Channel}.