diff options
author | Anders Svensson <[email protected]> | 2011-12-16 16:51:19 +0100 |
---|---|---|
committer | Anders Svensson <[email protected]> | 2011-12-16 18:27:20 +0100 |
commit | 20c2dcc70525f110c6f71c4b968d7d67682b7c35 (patch) | |
tree | 056e705098c3b4dd852055e38a3c480f512c320e /lib/diameter/examples/server.erl | |
parent | fba96f493b940f032bc238492a9375ad6397dbe4 (diff) | |
download | otp-20c2dcc70525f110c6f71c4b968d7d67682b7c35.tar.gz otp-20c2dcc70525f110c6f71c4b968d7d67682b7c35.tar.bz2 otp-20c2dcc70525f110c6f71c4b968d7d67682b7c35.zip |
Move example code to examples/code
Diffstat (limited to 'lib/diameter/examples/server.erl')
-rw-r--r-- | lib/diameter/examples/server.erl | 88 |
1 files changed, 0 insertions, 88 deletions
diff --git a/lib/diameter/examples/server.erl b/lib/diameter/examples/server.erl deleted file mode 100644 index ebb408e501..0000000000 --- a/lib/diameter/examples/server.erl +++ /dev/null @@ -1,88 +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% -%% - -%% -%% An example Diameter server that can respond to the base protocol -%% RAR sent by the client example. -%% -%% The simplest example to start a server listening on the loopback -%% address (which will serve the example usage given in client.erl) is -%% like this assuming diameter is already started (eg. diameter:start()): -%% -%% server:start(). -%% server:listen(tcp). -%% -%% The first call starts a service, the second adds a transport listening -%% on the default port. -%% - --module(server). - --include_lib("diameter/include/diameter.hrl"). --include_lib("diameter/src/app/diameter_gen_base_rfc3588.hrl"). - --export([start/1, %% start a service - listen/2, %% add a listening transport - stop/1]). %% stop a service - -%% Convenience functions using the default service name, ?SVC_NAME. --export([start/0, - listen/1, - stop/0]). - --define(SVC_NAME, ?MODULE). --define(APP_ALIAS, ?MODULE). --define(CALLBACK_MOD, server_cb). - -%% The service configuration. In a server supporting multiple Diameter -%% applications each application may have its own, although they could all -%% be configured with a common callback module. --define(SERVICE(Name), [{'Origin-Host', atom_to_list(Name) ++ ".example.com"}, - {'Origin-Realm', "example.com"}, - {'Vendor-Id', 193}, - {'Product-Name', "Server"}, - {'Auth-Application-Id', [?DIAMETER_APP_ID_COMMON]}, - {application, [{alias, ?APP_ALIAS}, - {dictionary, ?DIAMETER_DICT_COMMON}, - {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). |