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
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
|
%% The contents of this file are subject to the Mozilla Public License
%% Version 1.1 (the "License"); you may not use this file except in
%% compliance with the License. You may obtain a copy of the License
%% at http://www.mozilla.org/MPL/
%%
%% Software distributed under the License is distributed on an "AS IS"
%% basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
%% the License for the specific language governing rights and
%% limitations under the License.
%%
%% The Original Code is RabbitMQ.
%%
%% The Initial Developer of the Original Code is GoPivotal, Inc.
%% Copyright (c) 2007-2014 GoPivotal, Inc. All rights reserved.
%%
%% Since the AMQP methods used here are queue related,
%% maybe we want this to be a queue_interceptor.
-module(rabbit_channel_interceptor).
-include("rabbit_framing.hrl").
-include("rabbit.hrl").
-export([intercept_method/2]).
-ifdef(use_specs).
-type(intercept_method() :: rabbit_framing:amqp_method_name()).
-type(original_method() :: rabbit_framing:amqp_method_record()).
-type(processed_method() :: rabbit_framing:amqp_method_record()).
-callback description() -> [proplists:property()].
-callback intercept(original_method(), rabbit_types:vhost()) ->
processed_method() | rabbit_misc:channel_or_connection_exit().
%% Whether the interceptor wishes to intercept the amqp method
-callback applies_to(intercept_method()) -> boolean().
-else.
-export([behaviour_info/1]).
behaviour_info(callbacks) ->
[{description, 0}, {intercept, 2}, {applies_to, 1}];
behaviour_info(_Other) ->
undefined.
-endif.
%%----------------------------------------------------------------------------
intercept_method(#'basic.publish'{} = M, _VHost) -> M;
intercept_method(#'basic.ack'{} = M, _VHost) -> M;
intercept_method(#'basic.nack'{} = M, _VHost) -> M;
intercept_method(#'basic.reject'{} = M, _VHost) -> M;
intercept_method(#'basic.credit'{} = M, _VHost) -> M;
intercept_method(M, VHost) ->
intercept_method(M, VHost, select(rabbit_misc:method_record_type(M))).
intercept_method(M, _VHost, []) ->
M;
intercept_method(M, VHost, [I]) ->
M2 = I:intercept(M, VHost),
case validate_method(M, M2) of
true ->
M2;
_ ->
internal_error("Interceptor: ~p expected "
"to return method: ~p but returned: ~p",
[I, rabbit_misc:method_record_type(M),
rabbit_misc:method_record_type(M2)])
end;
intercept_method(M, _VHost, Is) ->
internal_error("More than one interceptor for method: ~p -- ~p",
[rabbit_misc:method_record_type(M), Is]).
%% select the interceptors that apply to intercept_method().
select(Method) ->
[M || {_, M} <- rabbit_registry:lookup_all(channel_interceptor),
code:which(M) =/= non_existing,
M:applies_to(Method)].
validate_method(M, M2) ->
rabbit_misc:method_record_type(M) =:= rabbit_misc:method_record_type(M2).
%% keep dialyzer happy
-spec internal_error(string(), [any()]) -> no_return().
internal_error(Format, Args) ->
rabbit_misc:protocol_error(internal_error, Format, Args).
|
