-
Notifications
You must be signed in to change notification settings - Fork 405
/
ts_profile.hrl
88 lines (77 loc) · 3.18 KB
/
ts_profile.hrl
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
%%% This code was developped by IDEALX (http://IDEALX.org/) and
%%% contributors (their names can be found in the CONTRIBUTORS file).
%%% Copyright (C) 2000-2001 IDEALX
%%%
%%% This program is free software; you can redistribute it and/or modify
%%% it under the terms of the GNU General Public License as published by
%%% the Free Software Foundation; either version 2 of the License, or
%%% (at your option) any later version.
%%%
%%% This program is distributed in the hope that it will be useful,
%%% but WITHOUT ANY WARRANTY; without even the implied warranty of
%%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
%%% GNU General Public License for more details.
%%%
%%% You should have received a copy of the GNU General Public License
%%% along with this program; if not, write to the Free Software
%%% Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307, USA.
%%%
-vc('$Id$ ').
-author('nicolas.niclausse@IDEALX.com').
-record(message, {thinktime,
ack,
param,
endpage=false,
host, % override global server hostname
port, % override global server port
scheme % override global server type (ssl or gen_tcp)
}).
% state of ts_client_rcv gen_server
-record(state_rcv,
{socket, %
timeout, % ?
protocol, % gen_udp, gen_tcp or ssl
ack, % type of ack: no_ack, local, global or parse
ack_done=false, % 'true' if the ack was sent, else 'false' (unused if ack=no_ack)
ack_timestamp, % date when the 'request' was sent
page_timestamp=0, % date when the first 'request' of a page was sent
endpage=false, % if true, a page is ending
session, % record of session status; depends on 'clienttype'
datasize=0,
dyndata=[],
ppid, % pid of send process
clienttype, % module name (jabber, etc.)
monitor % type of monitoring (full, light, none)
}).
-define(restart_sleep, 2000).
-define(infinity_timeout, 15000).
-define(short_timeout, 1).
-define(config_timeout, 60000).
-define(check_noclient_timeout, 60000).
-define(retries, 4).
-define(CRLF, "\r\n").
-define(CR,13).
-define(LF,10).
%% retry sending message after this timeout (in microsec.)
-define(config(Var), ts_utils:get_val(Var)).
-define(messages_intensity, 1/(ts_utils:get_val(messages_interarrival)*1000)).
-define(clients_intensity, 1/(ts_utils:get_val(interarrival)*1000)).
%% errors messages
-define(DEBUG, TRUE).
-ifdef(DEBUG).
-define(LOGF(Msg, Args, Level),
ts_utils:debug(?MODULE, Msg, Args, Level)).
-define(LOG(Msg, Level),
ts_utils:debug(?MODULE, Msg, Level)).
-else.
-define(LOGF(Msg, Args, Level), ok).
-define(LOG(Msg, Level), ok).
-endif.
-define(EMERG, 0). % The system is unusable.
-define(ALERT, 1). % Action should be taken immediately to address the problem.
-define(CRIT, 2). % A critical condition has occurred.
-define(ERR, 3). % An error has occurred.
-define(WARN, 4). % A significant event that may require attention has occurred.
-define(NOTICE, 5).% An event that does not affect system operation has occurred.
-define(INFO, 6). % An normal operation has occurred.
-define(DEB, 7). % Debugging info