diff options
Diffstat (limited to 'lib/diameter/examples/redirect.erl')
-rw-r--r-- | lib/diameter/examples/redirect.erl | 70 |
1 files changed, 0 insertions, 70 deletions
diff --git a/lib/diameter/examples/redirect.erl b/lib/diameter/examples/redirect.erl deleted file mode 100644 index b54701243f..0000000000 --- a/lib/diameter/examples/redirect.erl +++ /dev/null @@ -1,70 +0,0 @@ -%% -%% %CopyrightBegin% -%% -%% Copyright Ericsson AB 2010-2011. All Rights Reserved. -%% -%% The contents of this file are subject to the Erlang Public License, -%% Version 1.1, (the "License"); you may not use this file except in -%% compliance with the License. You should have received a copy of the -%% Erlang Public License along with this software. If not, it can be -%% retrieved online at http://www.erlang.org/. -%% -%% 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. -%% -%% %CopyrightEnd% -%% - --module(redirect). - --include_lib("diameter/include/diameter.hrl"). --include_lib("diameter/src/app/diameter_gen_base_rfc3588.hrl"). - --export([start/1, - listen/2, - stop/1]). - --export([start/0, - listen/1, - stop/0]). - --define(APP_ALIAS, ?MODULE). --define(SVC_NAME, ?MODULE). --define(CALLBACK_MOD, redirect_mod). - -%% The service configuration. --define(SERVICE(Name), [{'Origin-Host', atom_to_list(Name) ++ ".example.com"}, - {'Origin-Realm', "example.com"}, - {'Vendor-Id', 193}, - {'Product-Name', "RedirectAgent"}, - {'Auth-Application-Id', [?DIAMETER_APP_ID_RELAY]}, - {application, [{alias, ?APP_ALIAS}, - {dictionary, ?DIAMETER_DICT_RELAY}, - {module, ?CALLBACK_MOD}]}]). - -%% start/1 - -start(Name) - when is_atom(Name) -> - peer:start(Name, ?SERVICE(Name)). - -start() -> - start(?SVC_NAME). - -%% listen/2 - -listen(Name, T) -> - peer:listen(Name, T). - -listen(T) -> - listen(?SVC_NAME, T). - -%% stop/1 - -stop(Name) -> - peer:stop(Name). - -stop() -> - stop(?SVC_NAME). |