← Back to branch summary

~statik/ubuntu/maverick/erlang/erlang-merge-testing

« back to all changes in this revision

Viewing changes to lib/megaco/test/megaco_mess_user_test.erl

  • Committer: Bazaar Package Importer
  • Author(s): Sergei Golovan
  • Date: 2009-05-01 10:14:38 UTC
  • mfrom: (3.1.4 sid)
  • Revision ID: james.westby@ubuntu.com-20090501101438-6qlr6rsdxgyzrg2z
Tags: 1:13.b-dfsg-2
* Cleaned up patches: removed unneeded patch which helped to support
  different SCTP library versions, made sure that changes for m68k
  architecture applied only when building on this architecture.
* Removed duplicated information from binary packages descriptions.
* Don't require libsctp-dev build-dependency on solaris-i386 architecture
  which allows to build Erlang on Nexenta (thanks to Tim Spriggs for
  the suggestion).

Show diffs side-by-side

added added

removed removed

Lines of Context:
lib/megaco/test/megaco_mess_user_test.erl
1
 
%%<copyright>
2
 
%% <year>2000-2007</year>
3
 
%% <holder>Ericsson AB, All Rights Reserved</holder>
4
 
%%</copyright>
5
 
%%<legalnotice>
 
1
%%
 
2
%% %CopyrightBegin%
 
3
%% 
 
4
%% Copyright Ericsson AB 2000-2009. All Rights Reserved.
 
5
%% 
6
6
%% The contents of this file are subject to the Erlang Public License,
7
7
%% Version 1.1, (the "License"); you may not use this file except in
8
8
%% compliance with the License. You should have received a copy of the
9
9
%% Erlang Public License along with this software. If not, it can be
10
10
%% retrieved online at http://www.erlang.org/.
11
 
%%
 
11
%% 
12
12
%% Software distributed under the License is distributed on an "AS IS"
13
13
%% basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
14
14
%% the License for the specific language governing rights and limitations
15
15
%% under the License.
 
16
%% 
 
17
%% %CopyrightEnd%
16
18
%%
17
 
%% The Initial Developer of the Original Code is Ericsson AB.
18
 
%%</legalnotice>
 
19
 
19
20
%%
20
21
%%----------------------------------------------------------------------
21
22
%% Purpose: A fun implementation of user callbacks
26
27
-behaviour(megaco_user).
27
28
 
28
29
-export([
29
 
         handle_connect/2,
 
30
         handle_connect/2, handle_connect/3,
30
31
         handle_disconnect/3,
31
32
         handle_syntax_error/3,        handle_syntax_error/4, 
32
33
         handle_message_error/3,       handle_message_error/4, 
131
132
%% -- handle_connect/2 --
132
133
 
133
134
handle_connect(ConnHandle, ProtocolVersion) ->
134
 
    %%     io:format("~p~p[~p]: handle_connect -> entry~n", 
135
 
    %%        [self(),?MODULE,?LINE]),
 
135
%%     io:format("~p~p[~p]: handle_connect -> entry with"
 
136
%%            "~n   ConnHandle:      ~p"
 
137
%%            "~n   ProtocolVersion: ~p"
 
138
%%            "~n", 
 
139
%%                    [self(), ?MODULE, ?LINE, ConnHandle, ProtocolVersion]),
136
140
    call({connect, ConnHandle, ProtocolVersion, []}).
137
141
 
 
142
handle_connect(ConnHandle, ProtocolVersion, Extra) ->
 
143
%%     io:format(user,"~p~p[~p]: handle_connect -> entry with"
 
144
%%            "~n   ConnHandle:      ~p"
 
145
%%            "~n   ProtocolVersion: ~p"
 
146
%%            "~n   Extra:           ~p"
 
147
%%            "~n", 
 
148
%%            [self(), ?MODULE, ?LINE, ConnHandle, ProtocolVersion, Extra]),
 
149
    call({connect, ConnHandle, ProtocolVersion, [Extra]}).
 
150
 
138
151
 
139
152
%% -- handle_disconnect/3 --
140
153