2 * Copyright (c) 2003 Sendmail, Inc. and its suppliers.
5 * By using this file, you agree to the terms and conditions set
6 * forth in the LICENSE file which can be found at the top level of
7 * the sendmail distribution.
9 * Contributed by Jose Marcio Martins da Cruz - Ecole des Mines de Paris
10 * Jose-Marcio.Martins@ensmp.fr
13 /* a part of this code is based on inetd.c for which this copyright applies: */
15 * Copyright (c) 1983, 1991, 1993, 1994
16 * The Regents of the University of California. All rights reserved.
18 * Redistribution and use in source and binary forms, with or without
19 * modification, are permitted provided that the following conditions
21 * 1. Redistributions of source code must retain the above copyright
22 * notice, this list of conditions and the following disclaimer.
23 * 2. Redistributions in binary form must reproduce the above copyright
24 * notice, this list of conditions and the following disclaimer in the
25 * documentation and/or other materials provided with the distribution.
26 * 3. All advertising materials mentioning features or use of this software
27 * must display the following acknowledgement:
28 * This product includes software developed by the University of
29 * California, Berkeley and its contributors.
30 * 4. Neither the name of the University nor the names of its contributors
31 * may be used to endorse or promote products derived from this software
32 * without specific prior written permission.
34 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
35 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
36 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
37 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
38 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
39 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
40 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
41 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
42 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
43 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
48 SM_RCSID("@(#)$Id: ratectrl.c,v 8.13 2009/05/05 23:19:34 ca Exp $")
51 ** stuff included - given some warnings (inet_ntoa)
52 ** - surely not everything is needed
55 #if NETINET || NETINET6
56 # include <arpa/inet.h>
57 #endif /* NETINET || NETINET6 */
66 # define RATECTL_DEBUG 0
67 #endif /* RATECTL_DEBUG */
69 /* forward declarations */
70 static int client_rate
__P((time_t, SOCKADDR
*, bool));
71 static int total_rate
__P((time_t, bool));
74 ** CONNECTION_RATE_CHECK - updates connection history data
75 ** and computes connection rate for the given host
78 ** hostaddr -- ip address of smtp client
85 ** updates connection history
88 ** For each connection, this call shall be
89 ** done only once with the value true for the
91 ** Typically, this call is done with the value
92 ** true by the father, and once again with
93 ** the value false by the children.
98 connection_rate_check(hostaddr
, e
)
103 int totalrate
, clientrate
;
104 static int clientconn
= 0;
108 sm_syslog(LOG_INFO
, NOQID
, "connection_rate_check entering...");
109 #endif /* RATECTL_DEBUG */
111 /* update server connection rate */
112 totalrate
= total_rate(now
, e
== NULL
);
114 sm_syslog(LOG_INFO
, NOQID
, "global connection rate: %d", totalrate
);
115 #endif /* RATECTL_DEBUG */
117 /* update client connection rate */
118 clientrate
= client_rate(now
, hostaddr
, e
== NULL
);
121 clientconn
= count_open_connections(hostaddr
);
127 sm_snprintf(s
, sizeof(s
), "%d", clientrate
);
128 macdefine(&e
->e_macro
, A_TEMP
, macid("{client_rate}"), s
);
129 sm_snprintf(s
, sizeof(s
), "%d", totalrate
);
130 macdefine(&e
->e_macro
, A_TEMP
, macid("{total_rate}"), s
);
131 sm_snprintf(s
, sizeof(s
), "%d", clientconn
);
132 macdefine(&e
->e_macro
, A_TEMP
, macid("{client_connections}"),
139 ** Data declarations needed to evaluate connection rate
142 static int CollTime
= 60;
144 /* this should be a power of 2, otherwise CPMHMASK doesn't work well */
146 # define CPMHSIZE 1024
147 #endif /* CPMHSIZE */
149 #define CPMHMASK (CPMHSIZE-1)
152 # define MAX_CT_STEPS 10
153 #endif /* MAX_CT_STEPS */
156 ** time granularity: 10s (that's one "tick")
157 ** will be initialised to ConnectionRateWindowSize/CHTSIZE
158 ** before being used the first time
161 static int ChtGran
= -1;
165 /* Number of connections for a certain "tick" */
168 unsigned long ct_Ticks
;
175 #if NETINET6 && NETINET
178 struct in_addr c4_Addr
;
179 struct in6_addr c6_Addr
;
181 # define ch_Addr4 cu_Addr.c4_Addr
182 # define ch_Addr6 cu_Addr.c6_Addr
183 #else /* NETINET6 && NETINET */
185 struct in6_addr ch_Addr
;
186 # define ch_Addr6 ch_Addr
187 # else /* NETINET6 */
188 struct in_addr ch_Addr
;
189 # define ch_Addr4 ch_Addr
190 # endif /* NETINET6 */
191 #endif /* NETINET6 && NETINET */
195 unsigned long ch_colls
;
197 /* 6 buckets for ticks: 60s */
198 CTime_T ch_Times
[CHTSIZE
];
202 static CHash_T CHashAry
[CPMHSIZE
];
203 static bool CHashAryOK
= false;
206 ** CLIENT_RATE - Evaluate connection rate per smtp client
209 ** now - current time in secs
210 ** saddr - client address
211 ** update - update data / check only
214 ** connection rate (connections / ConnectionRateWindowSize)
217 ** update static global data
222 client_rate(now
, saddr
, update
)
231 CHash_T
*chBest
= NULL
;
237 ChtGran
= ConnectionRateWindowSize
/ CHTSIZE
;
241 ticks
= now
/ ChtGran
;
245 memset(CHashAry
, 0, sizeof(CHashAry
));
254 #endif /* HASH_ALG != 1 */
256 switch (saddr
->sa
.sa_family
)
260 p
= (char *)&saddr
->sin
.sin_addr
;
261 addrlen
= sizeof(struct in_addr
);
266 p
= (char *)&saddr
->sin6
.sin6_addr
;
267 addrlen
= sizeof(struct in6_addr
);
269 #endif /* NETINET6 */
271 /* should not happen */
275 /* compute hash value */
276 for (i
= 0; i
< addrlen
; ++i
, ++p
)
278 hv
= (hv
<< 5) ^ (hv
>> 23) ^ *p
;
279 hv
= (hv
^ (hv
>> 16));
285 hv
+= (c
<<11) ^ (c
>>1);
286 hv
^= (d
<<14) + (d
<<7) + (d
<<4) + d
;
298 #else /* HASH_ALG == 1 */
299 hv
= ((hv
<< 1) ^ (*p
& 0377)) % cctx
->cc_size
;
300 #endif /* HASH_ALG == 1 */
304 for (i
= 0; i
< MAX_CT_STEPS
; ++i
)
306 CHash_T
*ch
= &CHashAry
[(hv
+ i
) & CPMHMASK
];
309 if (saddr
->sa
.sa_family
== AF_INET
&&
310 ch
->ch_Family
== AF_INET
&&
311 (saddr
->sin
.sin_addr
.s_addr
== ch
->ch_Addr4
.s_addr
||
312 ch
->ch_Addr4
.s_addr
== 0))
320 if (saddr
->sa
.sa_family
== AF_INET6
&&
321 ch
->ch_Family
== AF_INET6
&&
322 (IN6_ARE_ADDR_EQUAL(&saddr
->sin6
.sin6_addr
,
323 &ch
->ch_Addr6
) != 0 ||
324 IN6_IS_ADDR_UNSPECIFIED(&ch
->ch_Addr6
)))
330 #endif /* NETINET6 */
331 if (chBest
== NULL
|| ch
->ch_LTime
== 0 ||
332 ch
->ch_LTime
< chBest
->ch_LTime
)
336 /* Let's update data... */
339 if (coll
&& (now
- chBest
->ch_LTime
< CollTime
))
342 ** increment the number of collisions last
343 ** CollTime for this client
349 ** Maybe shall log if collision rate is too high...
350 ** and take measures to resize tables
351 ** if this is the case
356 ** If it's not a match, then replace the data.
357 ** Note: this purges the history of a colliding entry,
358 ** which may cause "overruns", i.e., if two entries are
359 ** "cancelling" each other out, then they may exceed
360 ** the limits that are set. This might be mitigated a bit
361 ** by the above "best of 5" function however.
363 ** Alternative approach: just use the old data, which may
364 ** cause false positives however.
365 ** To activate this, change deactivate following memset call.
371 if (saddr
->sa
.sa_family
== AF_INET
)
373 chBest
->ch_Family
= AF_INET
;
374 chBest
->ch_Addr4
= saddr
->sin
.sin_addr
;
378 if (saddr
->sa
.sa_family
== AF_INET6
)
380 chBest
->ch_Family
= AF_INET6
;
381 chBest
->ch_Addr6
= saddr
->sin6
.sin6_addr
;
383 #endif /* NETINET6 */
385 memset(chBest
->ch_Times
, '\0',
386 sizeof(chBest
->ch_Times
));
390 chBest
->ch_LTime
= now
;
392 CTime_T
*ct
= &chBest
->ch_Times
[ticks
% CHTSIZE
];
394 if (ct
->ct_Ticks
!= ticks
)
396 ct
->ct_Ticks
= ticks
;
403 /* Now let's count connections on the window */
404 for (i
= 0; i
< CHTSIZE
; ++i
)
406 CTime_T
*ct
= &chBest
->ch_Times
[i
];
408 if (ct
->ct_Ticks
<= ticks
&& ct
->ct_Ticks
>= ticks
- CHTSIZE
)
413 sm_syslog(LOG_WARNING
, NOQID
,
414 "cln: cnt=(%d), CHTSIZE=(%d), ChtGran=(%d)",
415 cnt
, CHTSIZE
, ChtGran
);
416 #endif /* RATECTL_DEBUG */
421 ** TOTAL_RATE - Evaluate global connection rate
424 ** now - current time in secs
425 ** update - update data / check only
428 ** connection rate (connections / ConnectionRateWindowSize)
431 static CTime_T srv_Times
[CHTSIZE
];
432 static bool srv_Times_OK
= false;
435 total_rate(now
, update
)
445 ChtGran
= ConnectionRateWindowSize
/ CHTSIZE
;
448 ticks
= now
/ ChtGran
;
451 memset(srv_Times
, 0, sizeof(srv_Times
));
455 /* Let's update data */
458 ct
= &srv_Times
[ticks
% CHTSIZE
];
460 if (ct
->ct_Ticks
!= ticks
)
462 ct
->ct_Ticks
= ticks
;
468 /* Let's count connections on the window */
469 for (i
= 0; i
< CHTSIZE
; ++i
)
473 if (ct
->ct_Ticks
<= ticks
&& ct
->ct_Ticks
>= ticks
- CHTSIZE
)
478 sm_syslog(LOG_WARNING
, NOQID
,
479 "srv: cnt=(%d), CHTSIZE=(%d), ChtGran=(%d)",
480 cnt
, CHTSIZE
, ChtGran
);
481 #endif /* RATECTL_DEBUG */