ViewVC Help
View File | Revision Log | Show Annotations | View Changeset | Root Listing
root/svn/ircd-hybrid/branches/8.2.x/src/conf.c
Revision: 1851
Committed: Wed Apr 24 18:31:06 2013 UTC (10 years, 11 months ago) by michael
Content type: text/x-csrc
Original Path: ircd-hybrid/trunk/src/conf.c
File size: 64674 byte(s)
Log Message:
- Cleanup m_map.c
- Implemented serverhide::hide_services configuration option

File Contents

# User Rev Content
1 adx 30 /*
2     * ircd-hybrid: an advanced Internet Relay Chat Daemon(ircd).
3 michael 1309 * conf.c: Configuration file functions.
4 adx 30 *
5     * Copyright (C) 2002 by the past and present ircd coders, and others.
6     *
7     * This program is free software; you can redistribute it and/or modify
8     * it under the terms of the GNU General Public License as published by
9     * the Free Software Foundation; either version 2 of the License, or
10     * (at your option) any later version.
11     *
12     * This program is distributed in the hope that it will be useful,
13     * but WITHOUT ANY WARRANTY; without even the implied warranty of
14     * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15     * GNU General Public License for more details.
16     *
17     * You should have received a copy of the GNU General Public License
18     * along with this program; if not, write to the Free Software
19     * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307
20     * USA
21     *
22 knight 31 * $Id$
23 adx 30 */
24    
25     #include "stdinc.h"
26 michael 1011 #include "list.h"
27 adx 30 #include "ircd_defs.h"
28 michael 1309 #include "conf.h"
29 adx 30 #include "s_serv.h"
30     #include "resv.h"
31     #include "channel.h"
32     #include "client.h"
33     #include "event.h"
34     #include "hook.h"
35     #include "irc_string.h"
36     #include "s_bsd.h"
37     #include "ircd.h"
38     #include "listener.h"
39     #include "hostmask.h"
40     #include "modules.h"
41     #include "numeric.h"
42     #include "fdlist.h"
43 michael 1309 #include "log.h"
44 adx 30 #include "send.h"
45     #include "s_gline.h"
46     #include "memory.h"
47 michael 1654 #include "mempool.h"
48 adx 30 #include "irc_res.h"
49     #include "userhost.h"
50     #include "s_user.h"
51     #include "channel_mode.h"
52 michael 1243 #include "parse.h"
53     #include "s_misc.h"
54 michael 1622 #include "conf_db.h"
55 michael 1632 #include "conf_class.h"
56 adx 30
57     struct config_server_hide ConfigServerHide;
58    
59     /* general conf items link list root, other than k lines etc. */
60 michael 1157 dlink_list service_items = { NULL, NULL, 0 };
61 adx 30 dlink_list server_items = { NULL, NULL, 0 };
62     dlink_list cluster_items = { NULL, NULL, 0 };
63     dlink_list oconf_items = { NULL, NULL, 0 };
64     dlink_list uconf_items = { NULL, NULL, 0 };
65     dlink_list xconf_items = { NULL, NULL, 0 };
66     dlink_list rxconf_items = { NULL, NULL, 0 };
67     dlink_list rkconf_items = { NULL, NULL, 0 };
68     dlink_list nresv_items = { NULL, NULL, 0 };
69     dlink_list temporary_resv = { NULL, NULL, 0 };
70    
71     extern unsigned int lineno;
72     extern char linebuf[];
73     extern char conffilebuf[IRCD_BUFSIZE];
74     extern int yyparse(); /* defined in y.tab.c */
75    
76 michael 967 struct conf_parser_context conf_parser_ctx = { 0, 0, NULL };
77    
78 adx 30 /* internally defined functions */
79 michael 1325 static void read_conf(FILE *);
80 adx 30 static void clear_out_old_conf(void);
81     static void expire_tklines(dlink_list *);
82     static void garbage_collect_ip_entries(void);
83     static int hash_ip(struct irc_ssaddr *);
84 michael 1644 static int verify_access(struct Client *);
85 michael 1632 static int attach_iline(struct Client *, struct MaskItem *);
86 adx 30 static struct ip_entry *find_or_add_ip(struct irc_ssaddr *);
87 michael 1632 static dlink_list *map_to_list(enum maskitem_type);
88     static struct MaskItem *find_regexp_kline(const char *[]);
89 adx 30 static int find_user_host(struct Client *, char *, char *, char *, unsigned int);
90    
91    
92     /* usually, with hash tables, you use a prime number...
93     * but in this case I am dealing with ip addresses,
94     * not ascii strings.
95     */
96     #define IP_HASH_SIZE 0x1000
97    
98     struct ip_entry
99     {
100     struct irc_ssaddr ip;
101 michael 1644 unsigned int count;
102 adx 30 time_t last_attempt;
103     struct ip_entry *next;
104     };
105    
106     static struct ip_entry *ip_hash_table[IP_HASH_SIZE];
107 michael 1654 static mp_pool_t *ip_entry_pool = NULL;
108 adx 30 static int ip_entries_count = 0;
109    
110    
111     /* conf_dns_callback()
112     *
113 michael 1632 * inputs - pointer to struct MaskItem
114 adx 30 * - pointer to DNSReply reply
115     * output - none
116     * side effects - called when resolver query finishes
117     * if the query resulted in a successful search, hp will contain
118     * a non-null pointer, otherwise hp will be null.
119     * if successful save hp in the conf item it was called with
120     */
121     static void
122 michael 992 conf_dns_callback(void *vptr, const struct irc_ssaddr *addr, const char *name)
123 adx 30 {
124 michael 1632 struct MaskItem *conf = vptr;
125 adx 30
126 michael 1632 conf->dns_pending = 0;
127 adx 30
128 michael 992 if (addr != NULL)
129 michael 1632 memcpy(&conf->addr, addr, sizeof(conf->addr));
130 michael 992 else
131 michael 1632 conf->dns_failed = 1;
132 adx 30 }
133    
134     /* conf_dns_lookup()
135     *
136     * do a nameserver lookup of the conf host
137     * if the conf entry is currently doing a ns lookup do nothing, otherwise
138     * allocate a dns_query and start ns lookup.
139     */
140     static void
141 michael 1632 conf_dns_lookup(struct MaskItem *conf)
142 adx 30 {
143 michael 1632 if (!conf->dns_pending)
144 adx 30 {
145 michael 1632 conf->dns_pending = 1;
146     gethost_byname(conf_dns_callback, conf, conf->host);
147 adx 30 }
148     }
149    
150 michael 1632 struct MaskItem *
151     conf_make(enum maskitem_type type)
152     {
153     struct MaskItem *conf = MyMalloc(sizeof(*conf));
154     dlink_list *list = NULL;
155    
156     conf->type = type;
157     conf->active = 1;
158     conf->aftype = AF_INET;
159    
160     if ((list = map_to_list(type)))
161     dlinkAdd(conf, &conf->node, list);
162     return conf;
163     }
164    
165     void
166     conf_free(struct MaskItem *conf)
167     {
168     dlink_node *ptr = NULL, *ptr_next = NULL;
169 michael 1636 dlink_list *list = NULL;
170    
171     if (conf->node.next)
172     if ((list = map_to_list(conf->type)))
173     dlinkDelete(&conf->node, list);
174    
175 michael 1632 MyFree(conf->name);
176    
177     if (conf->dns_pending)
178     delete_resolver_queries(conf);
179     if (conf->passwd != NULL)
180     memset(conf->passwd, 0, strlen(conf->passwd));
181     if (conf->spasswd != NULL)
182     memset(conf->spasswd, 0, strlen(conf->spasswd));
183    
184     conf->class = NULL;
185    
186     MyFree(conf->passwd);
187     MyFree(conf->spasswd);
188     MyFree(conf->reason);
189     MyFree(conf->user);
190     MyFree(conf->host);
191 michael 1636 MyFree(conf->regexuser);
192     MyFree(conf->regexhost);
193 michael 1632 #ifdef HAVE_LIBCRYPTO
194     MyFree(conf->cipher_list);
195    
196     if (conf->rsa_public_key)
197     RSA_free(conf->rsa_public_key);
198     #endif
199     DLINK_FOREACH_SAFE(ptr, ptr_next, conf->hub_list.head)
200     {
201     MyFree(ptr->data);
202     free_dlink_node(ptr);
203     }
204    
205     DLINK_FOREACH_SAFE(ptr, ptr_next, conf->leaf_list.head)
206     {
207     MyFree(ptr->data);
208     free_dlink_node(ptr);
209     }
210 adx 30
211 michael 1636 MyFree(conf);
212 adx 30 }
213    
214 michael 1644 static const struct shared_flags
215     {
216     const unsigned int type;
217     const unsigned char letter;
218     } flag_table[] = {
219     { SHARED_KLINE, 'K' },
220     { SHARED_UNKLINE, 'U' },
221     { SHARED_XLINE, 'X' },
222     { SHARED_UNXLINE, 'Y' },
223     { SHARED_RESV, 'Q' },
224     { SHARED_UNRESV, 'R' },
225     { SHARED_LOCOPS, 'L' },
226     { SHARED_DLINE, 'D' },
227     { SHARED_UNDLINE, 'E' },
228     { 0, '\0' }
229     };
230 adx 30
231 michael 1644 /*
232 adx 30 * inputs - pointer to client requesting confitem report
233     * - ConfType to report
234     * output - none
235     * side effects -
236     */
237     void
238 michael 1632 report_confitem_types(struct Client *source_p, enum maskitem_type type)
239 adx 30 {
240 michael 1383 dlink_node *ptr = NULL, *dptr = NULL;
241 michael 1632 struct MaskItem *conf = NULL;
242     const struct ClassItem *class = NULL;
243 michael 1644 const struct shared_flags *shared = NULL;
244 adx 30 char buf[12];
245     char *p = NULL;
246    
247     switch (type)
248     {
249 michael 1632 case CONF_XLINE:
250 adx 30 DLINK_FOREACH(ptr, xconf_items.head)
251     {
252     conf = ptr->data;
253    
254 michael 1834 sendto_one(source_p, form_str(RPL_STATSXLINE),
255 adx 30 me.name, source_p->name,
256 michael 1649 conf->until ? "x": "X", conf->count,
257 michael 1632 conf->name, conf->reason);
258 adx 30 }
259     break;
260    
261 michael 1009 #ifdef HAVE_LIBPCRE
262 michael 1632 case CONF_RXLINE:
263 adx 30 DLINK_FOREACH(ptr, rxconf_items.head)
264     {
265     conf = ptr->data;
266    
267 michael 1834 sendto_one(source_p, form_str(RPL_STATSXLINE),
268 adx 30 me.name, source_p->name,
269 michael 1632 "XR", conf->count,
270     conf->name, conf->reason);
271 adx 30 }
272     break;
273    
274 michael 1632 case CONF_RKLINE:
275 adx 30 DLINK_FOREACH(ptr, rkconf_items.head)
276     {
277 michael 1632 conf = ptr->data;
278 adx 30
279 michael 1834 sendto_one(source_p, form_str(RPL_STATSKLINE), me.name,
280 michael 1632 source_p->name, "KR", conf->host, conf->user,
281     conf->reason);
282 adx 30 }
283     break;
284 michael 1009 #endif
285 adx 30
286 michael 1632 case CONF_ULINE:
287 michael 1644 shared = flag_table;
288 adx 30 DLINK_FOREACH(ptr, uconf_items.head)
289     {
290     conf = ptr->data;
291    
292     p = buf;
293    
294     *p++ = 'c';
295 michael 1644 for (; shared->type; ++shared)
296     if (shared->type & conf->flags)
297     *p++ = shared->letter;
298     else
299     *p++ = ToLower(shared->letter);
300 adx 30
301 michael 1834 sendto_one(source_p, form_str(RPL_STATSULINE),
302 adx 30 me.name, source_p->name, conf->name,
303 michael 1632 conf->user?conf->user: "*",
304     conf->host?conf->host: "*", buf);
305 adx 30 }
306    
307 michael 1644 shared = flag_table;
308 adx 30 DLINK_FOREACH(ptr, cluster_items.head)
309     {
310     conf = ptr->data;
311    
312     p = buf;
313    
314     *p++ = 'C';
315 michael 1644 for (; shared->type; ++shared)
316     if (shared->type & conf->flags)
317     *p++ = shared->letter;
318     else
319     *p++ = ToLower(shared->letter);
320 adx 30
321 michael 1834 sendto_one(source_p, form_str(RPL_STATSULINE),
322 adx 30 me.name, source_p->name, conf->name,
323     "*", "*", buf);
324     }
325    
326     break;
327    
328 michael 1632 case CONF_OPER:
329 adx 30 DLINK_FOREACH(ptr, oconf_items.head)
330     {
331     conf = ptr->data;
332    
333     /* Don't allow non opers to see oper privs */
334 michael 1219 if (HasUMode(source_p, UMODE_OPER))
335 michael 1834 sendto_one(source_p, form_str(RPL_STATSOLINE),
336 michael 1632 me.name, source_p->name, 'O', conf->user, conf->host,
337     conf->name, oper_privs_as_string(conf->port),
338     conf->class ? conf->class->name : "<default>");
339 adx 30 else
340 michael 1834 sendto_one(source_p, form_str(RPL_STATSOLINE),
341 michael 1632 me.name, source_p->name, 'O', conf->user, conf->host,
342 adx 30 conf->name, "0",
343 michael 1632 conf->class ? conf->class->name : "<default>");
344 adx 30 }
345     break;
346    
347 michael 1632 case CONF_CLASS:
348     DLINK_FOREACH(ptr, class_get_list()->head)
349 adx 30 {
350 michael 1632 class = ptr->data;
351 michael 1834 sendto_one(source_p, form_str(RPL_STATSYLINE),
352 adx 30 me.name, source_p->name, 'Y',
353 michael 1632 class->name, class->ping_freq,
354     class->con_freq,
355     class->max_total, class->max_sendq,
356     class->max_recvq,
357     class->ref_count,
358     class->number_per_cidr, class->cidr_bitlen_ipv4,
359     class->number_per_cidr, class->cidr_bitlen_ipv6,
360     class->active ? "active" : "disabled");
361 adx 30 }
362     break;
363    
364 michael 1632 case CONF_SERVICE:
365 michael 1157 DLINK_FOREACH(ptr, service_items.head)
366     {
367     conf = ptr->data;
368 michael 1834 sendto_one(source_p, form_str(RPL_STATSSERVICE),
369 michael 1175 me.name, source_p->name, 'S', "*", conf->name, 0, 0);
370 michael 1157 }
371     break;
372    
373 michael 1632 case CONF_SERVER:
374 adx 30 DLINK_FOREACH(ptr, server_items.head)
375     {
376     p = buf;
377     conf = ptr->data;
378    
379     buf[0] = '\0';
380    
381 michael 1632 if (IsConfAllowAutoConn(conf))
382 adx 30 *p++ = 'A';
383 michael 1632 if (IsConfSSL(conf))
384 michael 1303 *p++ = 'S';
385 adx 30 if (buf[0] == '\0')
386     *p++ = '*';
387    
388     *p = '\0';
389    
390 michael 671 /*
391     * Allow admins to see actual ips unless hide_server_ips is enabled
392 adx 30 */
393 michael 1219 if (!ConfigServerHide.hide_server_ips && HasUMode(source_p, UMODE_ADMIN))
394 michael 1834 sendto_one(source_p, form_str(RPL_STATSCLINE),
395 michael 1632 me.name, source_p->name, 'C', conf->host,
396     buf, conf->name, conf->port,
397     conf->class ? conf->class->name : "<default>");
398 adx 30 else
399 michael 1834 sendto_one(source_p, form_str(RPL_STATSCLINE),
400 adx 30 me.name, source_p->name, 'C',
401 michael 1632 "*@127.0.0.1", buf, conf->name, conf->port,
402     conf->class ? conf->class->name : "<default>");
403 adx 30 }
404     break;
405    
406 michael 1632 case CONF_HUB:
407 michael 1383 DLINK_FOREACH(ptr, server_items.head)
408 adx 30 {
409     conf = ptr->data;
410 michael 1383
411 michael 1632 DLINK_FOREACH(dptr, conf->hub_list.head)
412 michael 1834 sendto_one(source_p, form_str(RPL_STATSHLINE), me.name,
413 michael 1383 source_p->name, 'H', dptr->data, conf->name, 0, "*");
414 adx 30 }
415    
416 michael 1383 DLINK_FOREACH(ptr, server_items.head)
417 adx 30 {
418     conf = ptr->data;
419 michael 1383
420 michael 1632 DLINK_FOREACH(dptr, conf->leaf_list.head)
421 michael 1834 sendto_one(source_p, form_str(RPL_STATSLLINE), me.name,
422 michael 1383 source_p->name, 'L', dptr->data, conf->name, 0, "*");
423 adx 30 }
424 michael 1632
425 adx 30 break;
426    
427 michael 1009 default:
428 adx 30 break;
429     }
430     }
431    
432     /* check_client()
433     *
434     * inputs - pointer to client
435     * output - 0 = Success
436     * NOT_AUTHORIZED (-1) = Access denied (no I line match)
437     * IRCD_SOCKET_ERROR (-2) = Bad socket.
438     * I_LINE_FULL (-3) = I-line is full
439     * TOO_MANY (-4) = Too many connections from hostname
440     * BANNED_CLIENT (-5) = K-lined
441     * side effects - Ordinary client access check.
442     * Look for conf lines which have the same
443     * status as the flags passed.
444     */
445 michael 1644 int
446     check_client(struct Client *source_p)
447 adx 30 {
448     int i;
449    
450 michael 1644 if ((i = verify_access(source_p)))
451 michael 1247 ilog(LOG_TYPE_IRCD, "Access denied: %s[%s]",
452 adx 30 source_p->name, source_p->sockhost);
453    
454     switch (i)
455     {
456     case TOO_MANY:
457 michael 1618 sendto_realops_flags(UMODE_FULL, L_ALL, SEND_NOTICE,
458 adx 30 "Too many on IP for %s (%s).",
459     get_client_name(source_p, SHOW_IP),
460     source_p->sockhost);
461 michael 1247 ilog(LOG_TYPE_IRCD, "Too many connections on IP from %s.",
462 adx 30 get_client_name(source_p, SHOW_IP));
463 michael 896 ++ServerStats.is_ref;
464 adx 30 exit_client(source_p, &me, "No more connections allowed on that IP");
465     break;
466    
467     case I_LINE_FULL:
468 michael 1618 sendto_realops_flags(UMODE_FULL, L_ALL, SEND_NOTICE,
469     "auth{} block is full for %s (%s).",
470 adx 30 get_client_name(source_p, SHOW_IP),
471     source_p->sockhost);
472 michael 1247 ilog(LOG_TYPE_IRCD, "Too many connections from %s.",
473 adx 30 get_client_name(source_p, SHOW_IP));
474 michael 896 ++ServerStats.is_ref;
475 adx 30 exit_client(source_p, &me,
476     "No more connections allowed in your connection class");
477     break;
478    
479     case NOT_AUTHORIZED:
480 michael 896 ++ServerStats.is_ref;
481 adx 30 /* jdc - lists server name & port connections are on */
482     /* a purely cosmetical change */
483 michael 1618 sendto_realops_flags(UMODE_UNAUTH, L_ALL, SEND_NOTICE,
484 adx 30 "Unauthorized client connection from %s [%s] on [%s/%u].",
485     get_client_name(source_p, SHOW_IP),
486 michael 891 source_p->sockhost,
487 adx 30 source_p->localClient->listener->name,
488     source_p->localClient->listener->port);
489 michael 1247 ilog(LOG_TYPE_IRCD,
490 adx 30 "Unauthorized client connection from %s on [%s/%u].",
491     get_client_name(source_p, SHOW_IP),
492     source_p->localClient->listener->name,
493     source_p->localClient->listener->port);
494    
495 michael 1549 exit_client(source_p, &me, "You are not authorized to use this server");
496 adx 30 break;
497 michael 891
498 adx 30 case BANNED_CLIENT:
499 michael 1549 exit_client(source_p, &me, "Banned");
500 michael 896 ++ServerStats.is_ref;
501 adx 30 break;
502    
503     case 0:
504     default:
505     break;
506     }
507    
508 michael 1644 return (i < 0 ? 0 : 1);
509 adx 30 }
510    
511     /* verify_access()
512     *
513     * inputs - pointer to client to verify
514     * output - 0 if success -'ve if not
515     * side effect - find the first (best) I line to attach.
516     */
517     static int
518 michael 1644 verify_access(struct Client *client_p)
519 adx 30 {
520 michael 1632 struct MaskItem *conf = NULL, *rkconf = NULL;
521 adx 30 char non_ident[USERLEN + 1] = { '~', '\0' };
522     const char *uhi[3];
523    
524     if (IsGotId(client_p))
525     {
526 michael 1632 conf = find_address_conf(client_p->host, client_p->username,
527 adx 30 &client_p->localClient->ip,
528     client_p->localClient->aftype,
529     client_p->localClient->passwd);
530     }
531     else
532     {
533 michael 1644 strlcpy(non_ident+1, client_p->username, sizeof(non_ident)-1);
534 michael 1632 conf = find_address_conf(client_p->host,non_ident,
535 adx 30 &client_p->localClient->ip,
536     client_p->localClient->aftype,
537     client_p->localClient->passwd);
538     }
539    
540     uhi[0] = IsGotId(client_p) ? client_p->username : non_ident;
541     uhi[1] = client_p->host;
542     uhi[2] = client_p->sockhost;
543    
544     rkconf = find_regexp_kline(uhi);
545    
546 michael 1632 if (conf != NULL)
547 adx 30 {
548 michael 1632 if (IsConfClient(conf) && !rkconf)
549 adx 30 {
550 michael 1632 if (IsConfRedir(conf))
551 adx 30 {
552 michael 1834 sendto_one(client_p, form_str(RPL_REDIR),
553 adx 30 me.name, client_p->name,
554     conf->name ? conf->name : "",
555 michael 1632 conf->port);
556 adx 30 return(NOT_AUTHORIZED);
557     }
558    
559 michael 1632 if (IsConfDoIdentd(conf))
560 adx 30 SetNeedId(client_p);
561    
562     /* Thanks for spoof idea amm */
563 michael 1632 if (IsConfDoSpoofIp(conf))
564 adx 30 {
565 michael 1632 if (!ConfigFileEntry.hide_spoof_ips && IsConfSpoofNotice(conf))
566 michael 1618 sendto_realops_flags(UMODE_ALL, L_ADMIN, SEND_NOTICE,
567     "%s spoofing: %s as %s",
568 adx 30 client_p->name, client_p->host, conf->name);
569     strlcpy(client_p->host, conf->name, sizeof(client_p->host));
570     SetIPSpoof(client_p);
571     }
572    
573     return(attach_iline(client_p, conf));
574     }
575 michael 1632 else if (rkconf || IsConfKill(conf) || (ConfigFileEntry.glines && IsConfGline(conf)))
576 adx 30 {
577     /* XXX */
578 michael 1632 conf = rkconf ? rkconf : conf;
579     if (IsConfGline(conf))
580 adx 30 sendto_one(client_p, ":%s NOTICE %s :*** G-lined", me.name,
581     client_p->name);
582 michael 1549 sendto_one(client_p, ":%s NOTICE %s :*** Banned: %s",
583 michael 1632 me.name, client_p->name, conf->reason);
584 adx 30 return(BANNED_CLIENT);
585     }
586     }
587    
588     return(NOT_AUTHORIZED);
589     }
590    
591     /* attach_iline()
592     *
593     * inputs - client pointer
594     * - conf pointer
595     * output -
596     * side effects - do actual attach
597     */
598     static int
599 michael 1632 attach_iline(struct Client *client_p, struct MaskItem *conf)
600 adx 30 {
601 michael 1632 struct ClassItem *class = NULL;
602 adx 30 struct ip_entry *ip_found;
603     int a_limit_reached = 0;
604 michael 1644 unsigned int local = 0, global = 0, ident = 0;
605 adx 30
606     ip_found = find_or_add_ip(&client_p->localClient->ip);
607     ip_found->count++;
608     SetIpHash(client_p);
609    
610 michael 1632 if (conf->class == NULL)
611 adx 30 return NOT_AUTHORIZED; /* If class is missing, this is best */
612    
613 michael 1632 class = conf->class;
614 adx 30
615     count_user_host(client_p->username, client_p->host,
616     &global, &local, &ident);
617    
618     /* XXX blah. go down checking the various silly limits
619     * setting a_limit_reached if any limit is reached.
620     * - Dianora
621     */
622 michael 1632 if (class->max_total != 0 && class->ref_count >= class->max_total)
623 adx 30 a_limit_reached = 1;
624 michael 1632 else if (class->max_perip != 0 && ip_found->count > class->max_perip)
625 adx 30 a_limit_reached = 1;
626 michael 1632 else if (class->max_local != 0 && local >= class->max_local)
627 adx 30 a_limit_reached = 1;
628 michael 1632 else if (class->max_global != 0 && global >= class->max_global)
629 adx 30 a_limit_reached = 1;
630 michael 1632 else if (class->max_ident != 0 && ident >= class->max_ident &&
631 adx 30 client_p->username[0] != '~')
632     a_limit_reached = 1;
633    
634     if (a_limit_reached)
635     {
636 michael 1632 if (!IsConfExemptLimits(conf))
637 michael 624 return TOO_MANY; /* Already at maximum allowed */
638 adx 30
639     sendto_one(client_p,
640     ":%s NOTICE %s :*** Your connection class is full, "
641     "but you have exceed_limit = yes;", me.name, client_p->name);
642     }
643    
644     return attach_conf(client_p, conf);
645     }
646    
647     /* init_ip_hash_table()
648     *
649     * inputs - NONE
650     * output - NONE
651     * side effects - allocate memory for ip_entry(s)
652     * - clear the ip hash table
653     */
654     void
655     init_ip_hash_table(void)
656     {
657 michael 1654 ip_entry_pool = mp_pool_new(sizeof(struct ip_entry),
658 adx 30 2 * hard_fdlimit);
659     memset(ip_hash_table, 0, sizeof(ip_hash_table));
660     }
661    
662     /* find_or_add_ip()
663     *
664     * inputs - pointer to struct irc_ssaddr
665     * output - pointer to a struct ip_entry
666     * side effects -
667     *
668     * If the ip # was not found, a new struct ip_entry is created, and the ip
669     * count set to 0.
670     */
671     static struct ip_entry *
672     find_or_add_ip(struct irc_ssaddr *ip_in)
673     {
674     struct ip_entry *ptr, *newptr;
675     int hash_index = hash_ip(ip_in), res;
676     struct sockaddr_in *v4 = (struct sockaddr_in *)ip_in, *ptr_v4;
677     #ifdef IPV6
678     struct sockaddr_in6 *v6 = (struct sockaddr_in6 *)ip_in, *ptr_v6;
679     #endif
680    
681     for (ptr = ip_hash_table[hash_index]; ptr; ptr = ptr->next)
682     {
683     #ifdef IPV6
684     if (ptr->ip.ss.ss_family != ip_in->ss.ss_family)
685     continue;
686     if (ip_in->ss.ss_family == AF_INET6)
687     {
688     ptr_v6 = (struct sockaddr_in6 *)&ptr->ip;
689     res = memcmp(&v6->sin6_addr, &ptr_v6->sin6_addr, sizeof(struct in6_addr));
690     }
691     else
692     #endif
693     {
694     ptr_v4 = (struct sockaddr_in *)&ptr->ip;
695     res = memcmp(&v4->sin_addr, &ptr_v4->sin_addr, sizeof(struct in_addr));
696     }
697     if (res == 0)
698     {
699     /* Found entry already in hash, return it. */
700     return ptr;
701     }
702     }
703    
704     if (ip_entries_count >= 2 * hard_fdlimit)
705     garbage_collect_ip_entries();
706    
707 michael 1654 newptr = mp_pool_get(ip_entry_pool);
708     memset(newptr, 0, sizeof(*newptr));
709 adx 30 ip_entries_count++;
710     memcpy(&newptr->ip, ip_in, sizeof(struct irc_ssaddr));
711    
712     newptr->next = ip_hash_table[hash_index];
713     ip_hash_table[hash_index] = newptr;
714    
715     return newptr;
716     }
717    
718     /* remove_one_ip()
719     *
720     * inputs - unsigned long IP address value
721     * output - NONE
722     * side effects - The ip address given, is looked up in ip hash table
723     * and number of ip#'s for that ip decremented.
724     * If ip # count reaches 0 and has expired,
725     * the struct ip_entry is returned to the ip_entry_heap
726     */
727     void
728     remove_one_ip(struct irc_ssaddr *ip_in)
729     {
730     struct ip_entry *ptr;
731     struct ip_entry *last_ptr = NULL;
732     int hash_index = hash_ip(ip_in), res;
733     struct sockaddr_in *v4 = (struct sockaddr_in *)ip_in, *ptr_v4;
734     #ifdef IPV6
735     struct sockaddr_in6 *v6 = (struct sockaddr_in6 *)ip_in, *ptr_v6;
736     #endif
737    
738     for (ptr = ip_hash_table[hash_index]; ptr; ptr = ptr->next)
739     {
740     #ifdef IPV6
741     if (ptr->ip.ss.ss_family != ip_in->ss.ss_family)
742     continue;
743     if (ip_in->ss.ss_family == AF_INET6)
744     {
745     ptr_v6 = (struct sockaddr_in6 *)&ptr->ip;
746     res = memcmp(&v6->sin6_addr, &ptr_v6->sin6_addr, sizeof(struct in6_addr));
747     }
748     else
749     #endif
750     {
751     ptr_v4 = (struct sockaddr_in *)&ptr->ip;
752     res = memcmp(&v4->sin_addr, &ptr_v4->sin_addr, sizeof(struct in_addr));
753     }
754     if (res)
755     continue;
756     if (ptr->count > 0)
757     ptr->count--;
758     if (ptr->count == 0 &&
759     (CurrentTime-ptr->last_attempt) >= ConfigFileEntry.throttle_time)
760     {
761     if (last_ptr != NULL)
762     last_ptr->next = ptr->next;
763     else
764     ip_hash_table[hash_index] = ptr->next;
765    
766 michael 1654 mp_pool_release(ptr);
767 adx 30 ip_entries_count--;
768     return;
769     }
770     last_ptr = ptr;
771     }
772     }
773    
774     /* hash_ip()
775     *
776     * input - pointer to an irc_inaddr
777     * output - integer value used as index into hash table
778     * side effects - hopefully, none
779     */
780     static int
781     hash_ip(struct irc_ssaddr *addr)
782     {
783     if (addr->ss.ss_family == AF_INET)
784     {
785     struct sockaddr_in *v4 = (struct sockaddr_in *)addr;
786     int hash;
787 michael 1032 uint32_t ip;
788 adx 30
789     ip = ntohl(v4->sin_addr.s_addr);
790     hash = ((ip >> 12) + ip) & (IP_HASH_SIZE-1);
791     return hash;
792     }
793     #ifdef IPV6
794     else
795     {
796     int hash;
797     struct sockaddr_in6 *v6 = (struct sockaddr_in6 *)addr;
798 michael 1032 uint32_t *ip = (uint32_t *)&v6->sin6_addr.s6_addr;
799 adx 30
800     hash = ip[0] ^ ip[3];
801     hash ^= hash >> 16;
802     hash ^= hash >> 8;
803     hash = hash & (IP_HASH_SIZE - 1);
804     return hash;
805     }
806     #else
807     return 0;
808     #endif
809     }
810    
811     /* count_ip_hash()
812     *
813     * inputs - pointer to counter of number of ips hashed
814     * - pointer to memory used for ip hash
815     * output - returned via pointers input
816     * side effects - NONE
817     *
818     * number of hashed ip #'s is counted up, plus the amount of memory
819     * used in the hash.
820     */
821     void
822 michael 948 count_ip_hash(unsigned int *number_ips_stored, uint64_t *mem_ips_stored)
823 adx 30 {
824     struct ip_entry *ptr;
825     int i;
826    
827     *number_ips_stored = 0;
828     *mem_ips_stored = 0;
829    
830     for (i = 0; i < IP_HASH_SIZE; i++)
831     {
832     for (ptr = ip_hash_table[i]; ptr; ptr = ptr->next)
833     {
834     *number_ips_stored += 1;
835     *mem_ips_stored += sizeof(struct ip_entry);
836     }
837     }
838     }
839    
840     /* garbage_collect_ip_entries()
841     *
842     * input - NONE
843     * output - NONE
844     * side effects - free up all ip entries with no connections
845     */
846     static void
847     garbage_collect_ip_entries(void)
848     {
849     struct ip_entry *ptr;
850     struct ip_entry *last_ptr;
851     struct ip_entry *next_ptr;
852     int i;
853    
854     for (i = 0; i < IP_HASH_SIZE; i++)
855     {
856     last_ptr = NULL;
857    
858     for (ptr = ip_hash_table[i]; ptr; ptr = next_ptr)
859     {
860     next_ptr = ptr->next;
861    
862     if (ptr->count == 0 &&
863     (CurrentTime - ptr->last_attempt) >= ConfigFileEntry.throttle_time)
864     {
865     if (last_ptr != NULL)
866     last_ptr->next = ptr->next;
867     else
868     ip_hash_table[i] = ptr->next;
869 michael 1654 mp_pool_release(ptr);
870 adx 30 ip_entries_count--;
871     }
872     else
873     last_ptr = ptr;
874     }
875     }
876     }
877    
878     /* detach_conf()
879     *
880     * inputs - pointer to client to detach
881     * - type of conf to detach
882     * output - 0 for success, -1 for failure
883     * side effects - Disassociate configuration from the client.
884     * Also removes a class from the list if marked for deleting.
885     */
886 michael 1632 void
887     detach_conf(struct Client *client_p, enum maskitem_type type)
888 adx 30 {
889 michael 1632 dlink_node *ptr = NULL, *next_ptr = NULL;
890 adx 30
891     DLINK_FOREACH_SAFE(ptr, next_ptr, client_p->localClient->confs.head)
892     {
893 michael 1645 struct MaskItem *conf = ptr->data;
894 adx 30
895 michael 1645 assert(conf->type & (CONF_CLIENT | CONF_OPER | CONF_SERVER));
896     assert(conf->ref_count > 0);
897     assert(conf->class->ref_count > 0);
898 adx 30
899 michael 1645 if (!(conf->type & type))
900     continue;
901 michael 671
902 michael 1645 dlinkDelete(ptr, &client_p->localClient->confs);
903     free_dlink_node(ptr);
904 michael 1644
905 michael 1645 if (conf->type == CONF_CLIENT)
906     remove_from_cidr_check(&client_p->localClient->ip, conf->class);
907 adx 30
908 michael 1645 if (--conf->class->ref_count == 0 && conf->class->active == 0)
909     {
910     class_free(conf->class);
911     conf->class = NULL;
912 adx 30 }
913 michael 1645
914     if (--conf->ref_count == 0 && conf->active == 0)
915     conf_free(conf);
916 adx 30 }
917     }
918    
919     /* attach_conf()
920     *
921     * inputs - client pointer
922     * - conf pointer
923     * output -
924     * side effects - Associate a specific configuration entry to a *local*
925     * client (this is the one which used in accepting the
926     * connection). Note, that this automatically changes the
927     * attachment if there was an old one...
928     */
929     int
930 michael 1632 attach_conf(struct Client *client_p, struct MaskItem *conf)
931 adx 30 {
932     if (dlinkFind(&client_p->localClient->confs, conf) != NULL)
933     return 1;
934    
935 michael 1632 if (conf->type == CONF_CLIENT)
936     if (cidr_limit_reached(IsConfExemptLimits(conf),
937     &client_p->localClient->ip, conf->class))
938 michael 1394 return TOO_MANY; /* Already at maximum allowed */
939 adx 30
940 michael 1632 conf->class->ref_count++;
941 michael 1644 conf->ref_count++;
942 adx 30
943     dlinkAdd(conf, make_dlink_node(), &client_p->localClient->confs);
944    
945     return 0;
946     }
947    
948     /* attach_connect_block()
949     *
950     * inputs - pointer to server to attach
951     * - name of server
952     * - hostname of server
953     * output - true (1) if both are found, otherwise return false (0)
954     * side effects - find connect block and attach them to connecting client
955     */
956     int
957     attach_connect_block(struct Client *client_p, const char *name,
958     const char *host)
959     {
960     dlink_node *ptr;
961 michael 1632 struct MaskItem *conf = NULL;
962 adx 30
963     assert(client_p != NULL);
964     assert(host != NULL);
965    
966     if (client_p == NULL || host == NULL)
967     return 0;
968    
969     DLINK_FOREACH(ptr, server_items.head)
970     {
971     conf = ptr->data;
972    
973 michael 1652 if (match(conf->name, name) || match(conf->host, host))
974 adx 30 continue;
975    
976     attach_conf(client_p, conf);
977     return -1;
978     }
979    
980     return 0;
981     }
982    
983     /* find_conf_name()
984     *
985     * inputs - pointer to conf link list to search
986     * - pointer to name to find
987     * - int mask of type of conf to find
988     * output - NULL or pointer to conf found
989     * side effects - find a conf entry which matches the name
990     * and has the given mask.
991     */
992 michael 1632 struct MaskItem *
993     find_conf_name(dlink_list *list, const char *name, enum maskitem_type type)
994 adx 30 {
995     dlink_node *ptr;
996 michael 1632 struct MaskItem* conf;
997 adx 30
998     DLINK_FOREACH(ptr, list->head)
999     {
1000     conf = ptr->data;
1001    
1002     if (conf->type == type)
1003     {
1004     if (conf->name && (irccmp(conf->name, name) == 0 ||
1005 michael 1652 !match(conf->name, name)))
1006 adx 30 return conf;
1007     }
1008     }
1009    
1010     return NULL;
1011     }
1012    
1013     /* map_to_list()
1014     *
1015     * inputs - ConfType conf
1016     * output - pointer to dlink_list to use
1017     * side effects - none
1018     */
1019     static dlink_list *
1020 michael 1632 map_to_list(enum maskitem_type type)
1021 adx 30 {
1022     switch(type)
1023     {
1024 michael 1644 case CONF_RKLINE:
1025     return(&rkconf_items);
1026     break;
1027 michael 1632 case CONF_RXLINE:
1028 adx 30 return(&rxconf_items);
1029     break;
1030 michael 1632 case CONF_XLINE:
1031 adx 30 return(&xconf_items);
1032     break;
1033 michael 1632 case CONF_ULINE:
1034 adx 30 return(&uconf_items);
1035     break;
1036 michael 1632 case CONF_NRESV:
1037 adx 30 return(&nresv_items);
1038     break;
1039 michael 1825 case CONF_CRESV:
1040     return(&resv_channel_list);
1041 michael 1632 case CONF_OPER:
1042 adx 30 return(&oconf_items);
1043     break;
1044 michael 1632 case CONF_SERVER:
1045 adx 30 return(&server_items);
1046     break;
1047 michael 1632 case CONF_SERVICE:
1048 michael 1172 return(&service_items);
1049     break;
1050 michael 1632 case CONF_CLUSTER:
1051 adx 30 return(&cluster_items);
1052     break;
1053     default:
1054     return NULL;
1055     }
1056     }
1057    
1058     /* find_matching_name_conf()
1059     *
1060     * inputs - type of link list to look in
1061     * - pointer to name string to find
1062     * - pointer to user
1063     * - pointer to host
1064 michael 1644 * - optional flags to match on as well
1065 michael 1632 * output - NULL or pointer to found struct MaskItem
1066 adx 30 * side effects - looks for a match on name field
1067     */
1068 michael 1632 struct MaskItem *
1069     find_matching_name_conf(enum maskitem_type type, const char *name, const char *user,
1070 michael 1644 const char *host, unsigned int flags)
1071 adx 30 {
1072     dlink_node *ptr=NULL;
1073 michael 1632 struct MaskItem *conf=NULL;
1074 adx 30 dlink_list *list_p = map_to_list(type);
1075    
1076     switch (type)
1077     {
1078 michael 1009 #ifdef HAVE_LIBPCRE
1079 michael 1632 case CONF_RXLINE:
1080 adx 30 DLINK_FOREACH(ptr, list_p->head)
1081     {
1082     conf = ptr->data;
1083 michael 1654 assert(conf->regexuser);
1084 adx 30
1085 michael 1632 if (!ircd_pcre_exec(conf->regexuser, name))
1086 adx 30 return conf;
1087     }
1088     break;
1089 michael 1009 #endif
1090 michael 1632 case CONF_SERVICE:
1091 michael 1157 DLINK_FOREACH(ptr, list_p->head)
1092     {
1093     conf = ptr->data;
1094    
1095     if (EmptyString(conf->name))
1096     continue;
1097     if ((name != NULL) && !irccmp(name, conf->name))
1098     return conf;
1099     }
1100     break;
1101    
1102 michael 1632 case CONF_XLINE:
1103     case CONF_ULINE:
1104     case CONF_NRESV:
1105 michael 1825 case CONF_CRESV:
1106 adx 30 DLINK_FOREACH(ptr, list_p->head)
1107     {
1108     conf = ptr->data;
1109    
1110     if (EmptyString(conf->name))
1111     continue;
1112 michael 1653 if ((name != NULL) && !match(conf->name, name))
1113 adx 30 {
1114     if ((user == NULL && (host == NULL)))
1115     return conf;
1116 michael 1644 if ((conf->flags & flags) != flags)
1117 adx 30 continue;
1118 michael 1632 if (EmptyString(conf->user) || EmptyString(conf->host))
1119 adx 30 return conf;
1120 michael 1652 if (!match(conf->user, user) && !match(conf->host, host))
1121 adx 30 return conf;
1122     }
1123     }
1124     break;
1125    
1126 michael 1632 case CONF_SERVER:
1127 adx 30 DLINK_FOREACH(ptr, list_p->head)
1128     {
1129     conf = ptr->data;
1130    
1131 michael 1652 if ((name != NULL) && !match(name, conf->name))
1132 adx 30 return conf;
1133 michael 1652 else if ((host != NULL) && !match(host, conf->host))
1134 adx 30 return conf;
1135     }
1136     break;
1137    
1138     default:
1139     break;
1140     }
1141     return NULL;
1142     }
1143    
1144     /* find_exact_name_conf()
1145     *
1146     * inputs - type of link list to look in
1147     * - pointer to name string to find
1148     * - pointer to user
1149     * - pointer to host
1150 michael 1632 * output - NULL or pointer to found struct MaskItem
1151 adx 30 * side effects - looks for an exact match on name field
1152     */
1153 michael 1632 struct MaskItem *
1154     find_exact_name_conf(enum maskitem_type type, const struct Client *who, const char *name,
1155 adx 30 const char *user, const char *host)
1156     {
1157     dlink_node *ptr = NULL;
1158 michael 1632 struct MaskItem *conf;
1159     dlink_list *list_p = map_to_list(type);
1160 adx 30
1161     switch(type)
1162     {
1163 michael 1632 case CONF_RXLINE:
1164     case CONF_XLINE:
1165     case CONF_ULINE:
1166     case CONF_NRESV:
1167 michael 1825 case CONF_CRESV:
1168 adx 30
1169     DLINK_FOREACH(ptr, list_p->head)
1170     {
1171     conf = ptr->data;
1172 michael 1632
1173 adx 30 if (EmptyString(conf->name))
1174     continue;
1175    
1176     if (irccmp(conf->name, name) == 0)
1177     {
1178     if ((user == NULL && (host == NULL)))
1179     return (conf);
1180 michael 1632 if (EmptyString(conf->user) || EmptyString(conf->host))
1181 adx 30 return (conf);
1182 michael 1652 if (!match(conf->user, user) && !match(conf->host, host))
1183 adx 30 return (conf);
1184     }
1185     }
1186     break;
1187    
1188 michael 1632 case CONF_OPER:
1189 adx 30 DLINK_FOREACH(ptr, list_p->head)
1190     {
1191     conf = ptr->data;
1192 michael 1285
1193 adx 30 if (EmptyString(conf->name))
1194 michael 1285 continue;
1195    
1196     if (!irccmp(conf->name, name))
1197 adx 30 {
1198 michael 1285 if (!who)
1199     return conf;
1200 michael 1632 if (EmptyString(conf->user) || EmptyString(conf->host))
1201 michael 1636 return NULL;
1202 michael 1652 if (!match(conf->user, who->username))
1203 michael 1285 {
1204 michael 1632 switch (conf->htype)
1205 michael 1285 {
1206     case HM_HOST:
1207 michael 1652 if (!match(conf->host, who->host) || !match(conf->host, who->sockhost))
1208 michael 1637 if (!conf->class->max_total || conf->class->ref_count < conf->class->max_total)
1209     return conf;
1210 michael 1285 break;
1211     case HM_IPV4:
1212     if (who->localClient->aftype == AF_INET)
1213 michael 1632 if (match_ipv4(&who->localClient->ip, &conf->addr, conf->bits))
1214 michael 1637 if (!conf->class->max_total || conf->class->ref_count < conf->class->max_total)
1215     return conf;
1216 michael 1285 break;
1217     #ifdef IPV6
1218     case HM_IPV6:
1219     if (who->localClient->aftype == AF_INET6)
1220 michael 1632 if (match_ipv6(&who->localClient->ip, &conf->addr, conf->bits))
1221 michael 1637 if (!conf->class->max_total || conf->class->ref_count < conf->class->max_total)
1222     return conf;
1223 michael 1285 break;
1224     #endif
1225     default:
1226     assert(0);
1227     }
1228     }
1229 adx 30 }
1230     }
1231 michael 1285
1232 adx 30 break;
1233    
1234 michael 1632 case CONF_SERVER:
1235 adx 30 DLINK_FOREACH(ptr, list_p->head)
1236     {
1237     conf = ptr->data;
1238 michael 1632
1239 adx 30 if (EmptyString(conf->name))
1240     continue;
1241    
1242     if (name == NULL)
1243     {
1244 michael 1632 if (EmptyString(conf->host))
1245 adx 30 continue;
1246 michael 1632 if (irccmp(conf->host, host) == 0)
1247 adx 30 return(conf);
1248     }
1249     else if (irccmp(conf->name, name) == 0)
1250     {
1251     return (conf);
1252     }
1253     }
1254     break;
1255    
1256     default:
1257     break;
1258     }
1259     return(NULL);
1260     }
1261    
1262     /* rehash()
1263     *
1264     * Actual REHASH service routine. Called with sig == 0 if it has been called
1265     * as a result of an operator issuing this command, else assume it has been
1266     * called as a result of the server receiving a HUP signal.
1267     */
1268     int
1269     rehash(int sig)
1270     {
1271     if (sig != 0)
1272 michael 1618 sendto_realops_flags(UMODE_ALL, L_ALL, SEND_NOTICE,
1273 adx 30 "Got signal SIGHUP, reloading ircd.conf file");
1274    
1275     restart_resolver();
1276 michael 1001
1277 adx 30 /* don't close listeners until we know we can go ahead with the rehash */
1278    
1279     /* Check to see if we magically got(or lost) IPv6 support */
1280     check_can_use_v6();
1281    
1282     read_conf_files(0);
1283    
1284     if (ServerInfo.description != NULL)
1285     strlcpy(me.info, ServerInfo.description, sizeof(me.info));
1286    
1287     load_conf_modules();
1288    
1289     rehashed_klines = 1;
1290    
1291 michael 1831 return 0;
1292 adx 30 }
1293    
1294     /* set_default_conf()
1295     *
1296     * inputs - NONE
1297     * output - NONE
1298     * side effects - Set default values here.
1299     * This is called **PRIOR** to parsing the
1300     * configuration file. If you want to do some validation
1301     * of values later, put them in validate_conf().
1302     */
1303     static void
1304     set_default_conf(void)
1305     {
1306     /* verify init_class() ran, this should be an unnecessary check
1307     * but its not much work.
1308     */
1309 michael 1644 assert(class_default == class_get_list()->tail->data);
1310 adx 30
1311     #ifdef HAVE_LIBCRYPTO
1312     ServerInfo.rsa_private_key = NULL;
1313     ServerInfo.rsa_private_key_file = NULL;
1314     #endif
1315    
1316     /* ServerInfo.name is not rehashable */
1317     /* ServerInfo.name = ServerInfo.name; */
1318     ServerInfo.description = NULL;
1319 michael 1646 ServerInfo.network_name = xstrdup(NETWORK_NAME_DEFAULT);
1320     ServerInfo.network_desc = xstrdup(NETWORK_DESC_DEFAULT);
1321 adx 30
1322     memset(&ServerInfo.ip, 0, sizeof(ServerInfo.ip));
1323     ServerInfo.specific_ipv4_vhost = 0;
1324     memset(&ServerInfo.ip6, 0, sizeof(ServerInfo.ip6));
1325     ServerInfo.specific_ipv6_vhost = 0;
1326    
1327     ServerInfo.max_clients = MAXCLIENTS_MAX;
1328 michael 1751 ServerInfo.max_nick_length = 9;
1329     ServerInfo.max_topic_length = 80;
1330 michael 956
1331     ServerInfo.hub = 0;
1332 adx 30 ServerInfo.dns_host.sin_addr.s_addr = 0;
1333     ServerInfo.dns_host.sin_port = 0;
1334     AdminInfo.name = NULL;
1335     AdminInfo.email = NULL;
1336     AdminInfo.description = NULL;
1337    
1338 michael 1831 log_del_all();
1339 michael 1247
1340 adx 30 ConfigLoggingEntry.use_logging = 1;
1341    
1342 michael 1243 ConfigChannel.disable_fake_channels = 0;
1343     ConfigChannel.restrict_channels = 0;
1344 adx 30 ConfigChannel.knock_delay = 300;
1345     ConfigChannel.knock_delay_channel = 60;
1346 michael 1432 ConfigChannel.max_chans_per_user = 25;
1347 michael 1444 ConfigChannel.max_chans_per_oper = 50;
1348 michael 1243 ConfigChannel.quiet_on_ban = 1;
1349 adx 30 ConfigChannel.max_bans = 25;
1350     ConfigChannel.default_split_user_count = 0;
1351     ConfigChannel.default_split_server_count = 0;
1352 michael 1243 ConfigChannel.no_join_on_split = 0;
1353     ConfigChannel.no_create_on_split = 0;
1354 adx 30
1355 michael 1243 ConfigServerHide.flatten_links = 0;
1356 adx 30 ConfigServerHide.links_delay = 300;
1357 michael 1243 ConfigServerHide.hidden = 0;
1358     ConfigServerHide.hide_servers = 0;
1359 michael 1851 ConfigServerHide.hide_services = 0;
1360 michael 1646 ConfigServerHide.hidden_name = xstrdup(NETWORK_NAME_DEFAULT);
1361 michael 1243 ConfigServerHide.hide_server_ips = 0;
1362 adx 30
1363 michael 876
1364 michael 1646 ConfigFileEntry.service_name = xstrdup(SERVICE_NAME_DEFAULT);
1365 michael 876 ConfigFileEntry.max_watch = WATCHSIZE_DEFAULT;
1366 michael 1459 ConfigFileEntry.glines = 0;
1367     ConfigFileEntry.gline_time = 12 * 3600;
1368     ConfigFileEntry.gline_request_time = GLINE_REQUEST_EXPIRE_DEFAULT;
1369 adx 30 ConfigFileEntry.gline_min_cidr = 16;
1370     ConfigFileEntry.gline_min_cidr6 = 48;
1371 michael 1243 ConfigFileEntry.invisible_on_connect = 1;
1372     ConfigFileEntry.tkline_expire_notices = 1;
1373     ConfigFileEntry.hide_spoof_ips = 1;
1374     ConfigFileEntry.ignore_bogus_ts = 0;
1375     ConfigFileEntry.disable_auth = 0;
1376     ConfigFileEntry.disable_remote = 0;
1377 adx 30 ConfigFileEntry.kill_chase_time_limit = 90;
1378 michael 1119 ConfigFileEntry.default_floodcount = 8;
1379 michael 1243 ConfigFileEntry.failed_oper_notice = 1;
1380 michael 1119 ConfigFileEntry.dots_in_ident = 0;
1381 adx 30 ConfigFileEntry.min_nonwildcard = 4;
1382     ConfigFileEntry.min_nonwildcard_simple = 3;
1383     ConfigFileEntry.max_accept = 20;
1384 michael 1243 ConfigFileEntry.anti_nick_flood = 0;
1385 adx 30 ConfigFileEntry.max_nick_time = 20;
1386     ConfigFileEntry.max_nick_changes = 5;
1387 michael 1119 ConfigFileEntry.anti_spam_exit_message_time = 0;
1388 adx 30 ConfigFileEntry.ts_warn_delta = TS_WARN_DELTA_DEFAULT;
1389 michael 1119 ConfigFileEntry.ts_max_delta = TS_MAX_DELTA_DEFAULT;
1390 michael 1243 ConfigFileEntry.warn_no_nline = 1;
1391     ConfigFileEntry.stats_o_oper_only = 0;
1392 adx 30 ConfigFileEntry.stats_k_oper_only = 1; /* masked */
1393     ConfigFileEntry.stats_i_oper_only = 1; /* masked */
1394 michael 1243 ConfigFileEntry.stats_P_oper_only = 0;
1395 adx 30 ConfigFileEntry.caller_id_wait = 60;
1396 michael 1243 ConfigFileEntry.opers_bypass_callerid = 0;
1397 adx 30 ConfigFileEntry.pace_wait = 10;
1398     ConfigFileEntry.pace_wait_simple = 1;
1399 michael 1243 ConfigFileEntry.short_motd = 0;
1400     ConfigFileEntry.ping_cookie = 0;
1401     ConfigFileEntry.no_oper_flood = 0;
1402     ConfigFileEntry.true_no_oper_flood = 0;
1403     ConfigFileEntry.oper_pass_resv = 1;
1404 adx 30 ConfigFileEntry.max_targets = MAX_TARGETS_DEFAULT;
1405 michael 1119 ConfigFileEntry.oper_only_umodes = UMODE_DEBUG;
1406 adx 264 ConfigFileEntry.oper_umodes = UMODE_BOTS | UMODE_LOCOPS | UMODE_SERVNOTICE |
1407 michael 1119 UMODE_OPERWALL | UMODE_WALLOP;
1408 michael 1243 ConfigFileEntry.use_egd = 0;
1409 adx 30 ConfigFileEntry.egdpool_path = NULL;
1410     ConfigFileEntry.throttle_time = 10;
1411     }
1412    
1413     static void
1414     validate_conf(void)
1415     {
1416     if (ConfigFileEntry.ts_warn_delta < TS_WARN_DELTA_MIN)
1417     ConfigFileEntry.ts_warn_delta = TS_WARN_DELTA_DEFAULT;
1418    
1419     if (ConfigFileEntry.ts_max_delta < TS_MAX_DELTA_MIN)
1420     ConfigFileEntry.ts_max_delta = TS_MAX_DELTA_DEFAULT;
1421    
1422     if (ServerInfo.network_name == NULL)
1423 michael 1646 ServerInfo.network_name = xstrdup(NETWORK_NAME_DEFAULT);
1424 adx 30
1425     if (ServerInfo.network_desc == NULL)
1426 michael 1646 ServerInfo.network_desc = xstrdup(NETWORK_DESC_DEFAULT);
1427 adx 30
1428 michael 1157 if (ConfigFileEntry.service_name == NULL)
1429 michael 1646 ConfigFileEntry.service_name = xstrdup(SERVICE_NAME_DEFAULT);
1430 michael 1157
1431 michael 876 ConfigFileEntry.max_watch = IRCD_MAX(ConfigFileEntry.max_watch, WATCHSIZE_MIN);
1432 adx 30 }
1433    
1434 michael 1363 /* read_conf()
1435     *
1436     * inputs - file descriptor pointing to config file to use
1437     * output - None
1438     * side effects - Read configuration file.
1439     */
1440     static void
1441     read_conf(FILE *file)
1442     {
1443     lineno = 0;
1444    
1445     set_default_conf(); /* Set default values prior to conf parsing */
1446     conf_parser_ctx.pass = 1;
1447     yyparse(); /* pick up the classes first */
1448    
1449     rewind(file);
1450    
1451     conf_parser_ctx.pass = 2;
1452     yyparse(); /* Load the values from the conf */
1453     validate_conf(); /* Check to make sure some values are still okay. */
1454     /* Some global values are also loaded here. */
1455 michael 1632 class_delete_marked(); /* Make sure classes are valid */
1456 michael 1363 }
1457    
1458 adx 30 /* lookup_confhost()
1459     *
1460     * start DNS lookups of all hostnames in the conf
1461     * line and convert an IP addresses in a.b.c.d number for to IP#s.
1462     */
1463 michael 1647 void
1464 michael 1632 lookup_confhost(struct MaskItem *conf)
1465 adx 30 {
1466     struct addrinfo hints, *res;
1467    
1468     /* Do name lookup now on hostnames given and store the
1469     * ip numbers in conf structure.
1470     */
1471     memset(&hints, 0, sizeof(hints));
1472    
1473     hints.ai_family = AF_UNSPEC;
1474     hints.ai_socktype = SOCK_STREAM;
1475    
1476     /* Get us ready for a bind() and don't bother doing dns lookup */
1477     hints.ai_flags = AI_PASSIVE | AI_NUMERICHOST;
1478    
1479 michael 1632 if (getaddrinfo(conf->host, NULL, &hints, &res))
1480 adx 30 {
1481 michael 1632 conf_dns_lookup(conf);
1482 adx 30 return;
1483     }
1484    
1485     assert(res != NULL);
1486    
1487 michael 1632 memcpy(&conf->addr, res->ai_addr, res->ai_addrlen);
1488     conf->addr.ss_len = res->ai_addrlen;
1489     conf->addr.ss.ss_family = res->ai_family;
1490    
1491 michael 1123 freeaddrinfo(res);
1492 adx 30 }
1493    
1494     /* conf_connect_allowed()
1495     *
1496     * inputs - pointer to inaddr
1497     * - int type ipv4 or ipv6
1498     * output - BANNED or accepted
1499     * side effects - none
1500     */
1501     int
1502     conf_connect_allowed(struct irc_ssaddr *addr, int aftype)
1503     {
1504     struct ip_entry *ip_found;
1505 michael 1632 struct MaskItem *conf = find_dline_conf(addr, aftype);
1506 adx 30
1507     /* DLINE exempt also gets you out of static limits/pacing... */
1508 michael 1636 if (conf && (conf->type == CONF_EXEMPT))
1509 adx 30 return 0;
1510    
1511 michael 1632 if (conf != NULL)
1512 adx 30 return BANNED_CLIENT;
1513    
1514     ip_found = find_or_add_ip(addr);
1515    
1516     if ((CurrentTime - ip_found->last_attempt) <
1517     ConfigFileEntry.throttle_time)
1518     {
1519     ip_found->last_attempt = CurrentTime;
1520     return TOO_FAST;
1521     }
1522    
1523     ip_found->last_attempt = CurrentTime;
1524     return 0;
1525     }
1526    
1527 michael 1632 static struct MaskItem *
1528 adx 30 find_regexp_kline(const char *uhi[])
1529     {
1530 michael 1009 #ifdef HAVE_LIBPCRE
1531 adx 30 const dlink_node *ptr = NULL;
1532    
1533     DLINK_FOREACH(ptr, rkconf_items.head)
1534     {
1535 michael 1632 struct MaskItem *aptr = ptr->data;
1536 adx 30
1537     assert(aptr->regexuser);
1538     assert(aptr->regexhost);
1539    
1540     if (!ircd_pcre_exec(aptr->regexuser, uhi[0]) &&
1541     (!ircd_pcre_exec(aptr->regexhost, uhi[1]) ||
1542     !ircd_pcre_exec(aptr->regexhost, uhi[2])))
1543     return aptr;
1544     }
1545 michael 1009 #endif
1546 adx 30 return NULL;
1547     }
1548    
1549     /* find_kill()
1550     *
1551     * inputs - pointer to client structure
1552 michael 1632 * output - pointer to struct MaskItem if found
1553 adx 30 * side effects - See if this user is klined already,
1554 michael 1632 * and if so, return struct MaskItem pointer
1555 adx 30 */
1556 michael 1632 struct MaskItem *
1557 adx 30 find_kill(struct Client *client_p)
1558     {
1559 michael 1632 struct MaskItem *conf = NULL;
1560 adx 30 const char *uhi[3];
1561    
1562     uhi[0] = client_p->username;
1563     uhi[1] = client_p->host;
1564     uhi[2] = client_p->sockhost;
1565    
1566     assert(client_p != NULL);
1567    
1568 michael 1632 conf = find_conf_by_address(client_p->host, &client_p->localClient->ip,
1569     CONF_KLINE, client_p->localClient->aftype,
1570     client_p->username, NULL, 1);
1571     if (conf == NULL)
1572     conf = find_regexp_kline(uhi);
1573 adx 30
1574 michael 1632 return conf;
1575 adx 30 }
1576    
1577 michael 1632 struct MaskItem *
1578 adx 30 find_gline(struct Client *client_p)
1579     {
1580 michael 1632 struct MaskItem *conf;
1581 adx 30
1582     assert(client_p != NULL);
1583    
1584 michael 1632 conf = find_conf_by_address(client_p->host, &client_p->localClient->ip,
1585     CONF_GLINE, client_p->localClient->aftype,
1586     client_p->username, NULL, 1);
1587     return conf;
1588 adx 30 }
1589    
1590     /* cleanup_tklines()
1591     *
1592     * inputs - NONE
1593     * output - NONE
1594     * side effects - call function to expire temporary k/d lines
1595     * This is an event started off in ircd.c
1596     */
1597     void
1598     cleanup_tklines(void *notused)
1599     {
1600 michael 1369 hostmask_expire_temporary();
1601 michael 1622 expire_tklines(&xconf_items);
1602 michael 1628 expire_tklines(&nresv_items);
1603     expire_tklines(&resv_channel_list);
1604 adx 30 }
1605    
1606     /* expire_tklines()
1607     *
1608     * inputs - tkline list pointer
1609     * output - NONE
1610     * side effects - expire tklines
1611     */
1612     static void
1613     expire_tklines(dlink_list *tklist)
1614     {
1615     dlink_node *ptr;
1616     dlink_node *next_ptr;
1617 michael 1632 struct MaskItem *conf;
1618 adx 30
1619     DLINK_FOREACH_SAFE(ptr, next_ptr, tklist->head)
1620     {
1621     conf = ptr->data;
1622    
1623 michael 1649 if (!conf->until || conf->until > CurrentTime)
1624 michael 1644 continue;
1625    
1626 michael 1632 if (conf->type == CONF_XLINE)
1627 adx 30 {
1628 michael 1644 if (ConfigFileEntry.tkline_expire_notices)
1629     sendto_realops_flags(UMODE_ALL, L_ALL, SEND_NOTICE,
1630 michael 1618 "Temporary X-line for [%s] expired", conf->name);
1631 michael 1644 conf_free(conf);
1632 adx 30 }
1633 michael 1825 else if (conf->type == CONF_NRESV || conf->type == CONF_CRESV)
1634 adx 30 {
1635 michael 1644 if (ConfigFileEntry.tkline_expire_notices)
1636     sendto_realops_flags(UMODE_ALL, L_ALL, SEND_NOTICE,
1637 adx 30 "Temporary RESV for [%s] expired", conf->name);
1638 michael 1644 conf_free(conf);
1639 adx 30 }
1640     }
1641     }
1642    
1643     /* oper_privs_as_string()
1644     *
1645 michael 58 * inputs - pointer to client_p
1646 adx 30 * output - pointer to static string showing oper privs
1647     * side effects - return as string, the oper privs as derived from port
1648     */
1649 michael 58 static const struct oper_privs
1650     {
1651 michael 1644 const unsigned int flag;
1652 michael 58 const unsigned char c;
1653     } flag_list[] = {
1654 michael 1294 { OPER_FLAG_ADMIN, 'A' },
1655     { OPER_FLAG_REMOTEBAN, 'B' },
1656     { OPER_FLAG_DIE, 'D' },
1657     { OPER_FLAG_GLINE, 'G' },
1658     { OPER_FLAG_REHASH, 'H' },
1659     { OPER_FLAG_K, 'K' },
1660     { OPER_FLAG_OPERWALL, 'L' },
1661     { OPER_FLAG_N, 'N' },
1662     { OPER_FLAG_GLOBAL_KILL, 'O' },
1663     { OPER_FLAG_REMOTE, 'R' },
1664     { OPER_FLAG_OPER_SPY, 'S' },
1665     { OPER_FLAG_UNKLINE, 'U' },
1666     { OPER_FLAG_X, 'X' },
1667     { 0, '\0' }
1668 michael 58 };
1669 adx 30
1670     char *
1671     oper_privs_as_string(const unsigned int port)
1672     {
1673 michael 58 static char privs_out[16];
1674     char *privs_ptr = privs_out;
1675 michael 1644 const struct oper_privs *opriv = flag_list;
1676 adx 30
1677 michael 1644 for (; opriv->flag; ++opriv)
1678 michael 58 {
1679 michael 1644 if (port & opriv->flag)
1680     *privs_ptr++ = opriv->c;
1681 michael 58 else
1682 michael 1644 *privs_ptr++ = ToLower(opriv->c);
1683 michael 58 }
1684    
1685     *privs_ptr = '\0';
1686    
1687 adx 30 return privs_out;
1688     }
1689    
1690     /*
1691     * Input: A client to find the active oper{} name for.
1692     * Output: The nick!user@host{oper} of the oper.
1693     * "oper" is server name for remote opers
1694     * Side effects: None.
1695     */
1696 michael 1364 const char *
1697 adx 30 get_oper_name(const struct Client *client_p)
1698     {
1699 michael 1364 dlink_node *cnode = NULL;
1700 adx 30 /* +5 for !,@,{,} and null */
1701 michael 1147 static char buffer[NICKLEN + USERLEN + HOSTLEN + HOSTLEN + 5];
1702 adx 30
1703     if (MyConnect(client_p))
1704     {
1705 michael 1364 if ((cnode = client_p->localClient->confs.head))
1706 adx 30 {
1707 michael 1632 struct MaskItem *conf = cnode->data;
1708 adx 30
1709 michael 1632 if (IsConfOperator(conf))
1710 adx 30 {
1711 michael 1147 snprintf(buffer, sizeof(buffer), "%s!%s@%s{%s}", client_p->name,
1712     client_p->username, client_p->host, conf->name);
1713 adx 30 return buffer;
1714     }
1715     }
1716    
1717     /* Probably should assert here for now. If there is an oper out there
1718     * with no oper{} conf attached, it would be good for us to know...
1719     */
1720     assert(0); /* Oper without oper conf! */
1721     }
1722    
1723 michael 1147 snprintf(buffer, sizeof(buffer), "%s!%s@%s{%s}", client_p->name,
1724     client_p->username, client_p->host, client_p->servptr->name);
1725 adx 30 return buffer;
1726     }
1727    
1728     /* read_conf_files()
1729     *
1730     * inputs - cold start YES or NO
1731     * output - none
1732     * side effects - read all conf files needed, ircd.conf kline.conf etc.
1733     */
1734     void
1735     read_conf_files(int cold)
1736     {
1737     const char *filename;
1738     char chanmodes[32];
1739     char chanlimit[32];
1740    
1741 michael 967 conf_parser_ctx.boot = cold;
1742 michael 1622 filename = ConfigFileEntry.configfile;
1743 adx 30
1744     /* We need to know the initial filename for the yyerror() to report
1745     FIXME: The full path is in conffilenamebuf first time since we
1746     dont know anything else
1747    
1748     - Gozem 2002-07-21
1749     */
1750     strlcpy(conffilebuf, filename, sizeof(conffilebuf));
1751    
1752 michael 1325 if ((conf_parser_ctx.conf_file = fopen(filename, "r")) == NULL)
1753 adx 30 {
1754     if (cold)
1755     {
1756 michael 1247 ilog(LOG_TYPE_IRCD, "Unable to read configuration file '%s': %s",
1757 adx 30 filename, strerror(errno));
1758     exit(-1);
1759     }
1760     else
1761     {
1762 michael 1618 sendto_realops_flags(UMODE_ALL, L_ALL, SEND_NOTICE,
1763 adx 30 "Unable to read configuration file '%s': %s",
1764     filename, strerror(errno));
1765     return;
1766     }
1767     }
1768    
1769     if (!cold)
1770     clear_out_old_conf();
1771    
1772 michael 967 read_conf(conf_parser_ctx.conf_file);
1773 michael 1325 fclose(conf_parser_ctx.conf_file);
1774 adx 30
1775 michael 1831 log_reopen_all();
1776    
1777 michael 1751 add_isupport("NICKLEN", NULL, ServerInfo.max_nick_length);
1778 adx 30 add_isupport("NETWORK", ServerInfo.network_name, -1);
1779 michael 1751
1780     snprintf(chanmodes, sizeof(chanmodes), "beI:%d", ConfigChannel.max_bans);
1781 adx 30 add_isupport("MAXLIST", chanmodes, -1);
1782     add_isupport("MAXTARGETS", NULL, ConfigFileEntry.max_targets);
1783 michael 1474 add_isupport("CHANTYPES", "#", -1);
1784 michael 1147
1785 michael 1474 snprintf(chanlimit, sizeof(chanlimit), "#:%d",
1786 michael 1751 ConfigChannel.max_chans_per_user);
1787 adx 30 add_isupport("CHANLIMIT", chanlimit, -1);
1788 michael 1751 snprintf(chanmodes, sizeof(chanmodes), "%s", "beI,k,l,imnprstORS");
1789 michael 100 add_isupport("CHANNELLEN", NULL, LOCAL_CHANNELLEN);
1790 michael 1751 add_isupport("TOPICLEN", NULL, ServerInfo.max_topic_length);
1791 michael 1495 add_isupport("EXCEPTS", "e", -1);
1792     add_isupport("INVEX", "I", -1);
1793 adx 30 add_isupport("CHANMODES", chanmodes, -1);
1794    
1795     /*
1796     * message_locale may have changed. rebuild isupport since it relies
1797     * on strlen(form_str(RPL_ISUPPORT))
1798     */
1799     rebuild_isupport_message_line();
1800     }
1801    
1802     /* clear_out_old_conf()
1803     *
1804     * inputs - none
1805     * output - none
1806     * side effects - Clear out the old configuration
1807     */
1808     static void
1809     clear_out_old_conf(void)
1810     {
1811     dlink_node *ptr = NULL, *next_ptr = NULL;
1812 michael 1632 struct MaskItem *conf;
1813 adx 30 dlink_list *free_items [] = {
1814 michael 1383 &server_items, &oconf_items,
1815 adx 30 &uconf_items, &xconf_items, &rxconf_items, &rkconf_items,
1816 michael 1825 &nresv_items, &cluster_items, &service_items, &resv_channel_list, NULL
1817 adx 30 };
1818    
1819     dlink_list ** iterator = free_items; /* C is dumb */
1820    
1821     /* We only need to free anything allocated by yyparse() here.
1822     * Resetting structs, etc, is taken care of by set_default_conf().
1823     */
1824    
1825     for (; *iterator != NULL; iterator++)
1826     {
1827     DLINK_FOREACH_SAFE(ptr, next_ptr, (*iterator)->head)
1828     {
1829     conf = ptr->data;
1830 michael 1632
1831     dlinkDelete(&conf->node, map_to_list(conf->type));
1832    
1833 adx 30 /* XXX This is less than pretty */
1834 michael 1632 if (conf->type == CONF_SERVER || conf->type == CONF_OPER)
1835 adx 30 {
1836 michael 1644 if (!conf->ref_count)
1837 michael 1632 conf_free(conf);
1838 adx 30 }
1839 michael 1632 else if (conf->type == CONF_XLINE ||
1840     conf->type == CONF_RXLINE ||
1841     conf->type == CONF_RKLINE)
1842 adx 30 {
1843 michael 1649 if (!conf->until)
1844 michael 1632 conf_free(conf);
1845 adx 30 }
1846     else
1847 michael 1632 conf_free(conf);
1848 adx 30 }
1849     }
1850    
1851 michael 671 /*
1852     * don't delete the class table, rather mark all entries
1853 michael 1632 * for deletion. The table is cleaned up by class_delete_marked. - avalon
1854 adx 30 */
1855 michael 1632 class_mark_for_deletion();
1856 michael 671
1857 adx 30 clear_out_address_conf();
1858    
1859     /* clean out module paths */
1860     mod_clear_paths();
1861    
1862     /* clean out ServerInfo */
1863     MyFree(ServerInfo.description);
1864     ServerInfo.description = NULL;
1865     MyFree(ServerInfo.network_name);
1866     ServerInfo.network_name = NULL;
1867     MyFree(ServerInfo.network_desc);
1868     ServerInfo.network_desc = NULL;
1869     MyFree(ConfigFileEntry.egdpool_path);
1870     ConfigFileEntry.egdpool_path = NULL;
1871     #ifdef HAVE_LIBCRYPTO
1872     if (ServerInfo.rsa_private_key != NULL)
1873     {
1874     RSA_free(ServerInfo.rsa_private_key);
1875     ServerInfo.rsa_private_key = NULL;
1876     }
1877    
1878     MyFree(ServerInfo.rsa_private_key_file);
1879     ServerInfo.rsa_private_key_file = NULL;
1880 michael 1316
1881     if (ServerInfo.server_ctx)
1882     SSL_CTX_set_options(ServerInfo.server_ctx, SSL_OP_NO_SSLv2|
1883     SSL_OP_NO_SSLv3|
1884     SSL_OP_NO_TLSv1);
1885     if (ServerInfo.client_ctx)
1886     SSL_CTX_set_options(ServerInfo.client_ctx, SSL_OP_NO_SSLv2|
1887     SSL_OP_NO_SSLv3|
1888     SSL_OP_NO_TLSv1);
1889 adx 30 #endif
1890    
1891     /* clean out AdminInfo */
1892     MyFree(AdminInfo.name);
1893     AdminInfo.name = NULL;
1894     MyFree(AdminInfo.email);
1895     AdminInfo.email = NULL;
1896     MyFree(AdminInfo.description);
1897     AdminInfo.description = NULL;
1898    
1899     /* clean out listeners */
1900     close_listeners();
1901    
1902     /* clean out general */
1903 michael 1157 MyFree(ConfigFileEntry.service_name);
1904     ConfigFileEntry.service_name = NULL;
1905    
1906 adx 30 delete_isupport("INVEX");
1907     delete_isupport("EXCEPTS");
1908     }
1909    
1910     /* conf_add_class_to_conf()
1911     *
1912     * inputs - pointer to config item
1913     * output - NONE
1914     * side effects - Add a class pointer to a conf
1915     */
1916     void
1917 michael 1632 conf_add_class_to_conf(struct MaskItem *conf, const char *class_name)
1918 adx 30 {
1919     if (class_name == NULL)
1920     {
1921 michael 1632 conf->class = class_default;
1922 michael 671
1923 michael 1632 if (conf->type == CONF_CLIENT)
1924 michael 1618 sendto_realops_flags(UMODE_ALL, L_ALL, SEND_NOTICE,
1925 adx 30 "Warning *** Defaulting to default class for %s@%s",
1926 michael 1632 conf->user, conf->host);
1927 adx 30 else
1928 michael 1618 sendto_realops_flags(UMODE_ALL, L_ALL, SEND_NOTICE,
1929 adx 30 "Warning *** Defaulting to default class for %s",
1930     conf->name);
1931     }
1932     else
1933 michael 1632 conf->class = class_find(class_name, 1);
1934 adx 30
1935 michael 1632 if (conf->class == NULL)
1936 adx 30 {
1937 michael 1632 if (conf->type == CONF_CLIENT)
1938 michael 1618 sendto_realops_flags(UMODE_ALL, L_ALL, SEND_NOTICE,
1939 adx 30 "Warning *** Defaulting to default class for %s@%s",
1940 michael 1632 conf->user, conf->host);
1941 adx 30 else
1942 michael 1618 sendto_realops_flags(UMODE_ALL, L_ALL, SEND_NOTICE,
1943 adx 30 "Warning *** Defaulting to default class for %s",
1944     conf->name);
1945 michael 1632 conf->class = class_default;
1946 adx 30 }
1947     }
1948    
1949     /* yyerror()
1950     *
1951     * inputs - message from parser
1952     * output - NONE
1953     * side effects - message to opers and log file entry is made
1954     */
1955     void
1956     yyerror(const char *msg)
1957     {
1958     char newlinebuf[IRCD_BUFSIZE];
1959    
1960 michael 967 if (conf_parser_ctx.pass != 1)
1961 adx 30 return;
1962    
1963     strip_tabs(newlinebuf, linebuf, sizeof(newlinebuf));
1964 michael 1751 sendto_realops_flags(UMODE_ALL, L_ALL, SEND_NOTICE,
1965 michael 1618 "\"%s\", line %u: %s: %s",
1966 adx 30 conffilebuf, lineno + 1, msg, newlinebuf);
1967 michael 1247 ilog(LOG_TYPE_IRCD, "\"%s\", line %u: %s: %s",
1968 adx 30 conffilebuf, lineno + 1, msg, newlinebuf);
1969     }
1970    
1971 michael 1751 void
1972     conf_error_report(const char *msg)
1973     {
1974     char newlinebuf[IRCD_BUFSIZE];
1975    
1976     strip_tabs(newlinebuf, linebuf, sizeof(newlinebuf));
1977     sendto_realops_flags(UMODE_ALL, L_ALL, SEND_NOTICE,
1978     "\"%s\", line %u: %s: %s",
1979     conffilebuf, lineno + 1, msg, newlinebuf);
1980     ilog(LOG_TYPE_IRCD, "\"%s\", line %u: %s: %s",
1981     conffilebuf, lineno + 1, msg, newlinebuf);
1982     }
1983    
1984 adx 30 /*
1985     * valid_tkline()
1986     *
1987     * inputs - pointer to ascii string to check
1988     * - whether the specified time is in seconds or minutes
1989     * output - -1 not enough parameters
1990     * - 0 if not an integer number, else the number
1991     * side effects - none
1992     * Originally written by Dianora (Diane, db@db.net)
1993     */
1994     time_t
1995 michael 1120 valid_tkline(const char *p, int minutes)
1996 adx 30 {
1997     time_t result = 0;
1998    
1999 michael 1120 for (; *p; ++p)
2000 adx 30 {
2001 michael 1120 if (!IsDigit(*p))
2002 michael 1121 return 0;
2003 michael 1120
2004     result *= 10;
2005     result += ((*p) & 0xF);
2006 adx 30 }
2007    
2008 michael 1120 /*
2009     * In the degenerate case where oper does a /quote kline 0 user@host :reason
2010 adx 30 * i.e. they specifically use 0, I am going to return 1 instead
2011     * as a return value of non-zero is used to flag it as a temporary kline
2012     */
2013     if (result == 0)
2014     result = 1;
2015    
2016     /*
2017     * If the incoming time is in seconds convert it to minutes for the purpose
2018     * of this calculation
2019     */
2020     if (!minutes)
2021     result = result / (time_t)60;
2022    
2023     if (result > MAX_TDKLINE_TIME)
2024     result = MAX_TDKLINE_TIME;
2025    
2026     result = result * (time_t)60; /* turn it into seconds */
2027    
2028     return result;
2029     }
2030    
2031     /* valid_wild_card()
2032     *
2033     * input - pointer to client
2034     * - int flag, 0 for no warning oper 1 for warning oper
2035     * - count of following varargs to check
2036     * output - 0 if not valid, 1 if valid
2037     * side effects - NOTICE is given to source_p if warn is 1
2038     */
2039     int
2040     valid_wild_card(struct Client *source_p, int warn, int count, ...)
2041     {
2042     char *p;
2043     char tmpch;
2044     int nonwild = 0;
2045     va_list args;
2046    
2047     /*
2048     * Now we must check the user and host to make sure there
2049     * are at least NONWILDCHARS non-wildcard characters in
2050     * them, otherwise assume they are attempting to kline
2051     * *@* or some variant of that. This code will also catch
2052     * people attempting to kline *@*.tld, as long as NONWILDCHARS
2053     * is greater than 3. In that case, there are only 3 non-wild
2054     * characters (tld), so if NONWILDCHARS is 4, the kline will
2055     * be disallowed.
2056     * -wnder
2057     */
2058    
2059     va_start(args, count);
2060    
2061     while (count--)
2062     {
2063     p = va_arg(args, char *);
2064     if (p == NULL)
2065     continue;
2066    
2067     while ((tmpch = *p++))
2068     {
2069     if (!IsKWildChar(tmpch))
2070     {
2071     /*
2072     * If we find enough non-wild characters, we can
2073     * break - no point in searching further.
2074     */
2075     if (++nonwild >= ConfigFileEntry.min_nonwildcard)
2076     return 1;
2077     }
2078     }
2079     }
2080    
2081     if (warn)
2082     sendto_one(source_p, ":%s NOTICE %s :Please include at least %d non-wildcard characters with the mask",
2083     me.name, source_p->name, ConfigFileEntry.min_nonwildcard);
2084     return 0;
2085     }
2086    
2087     /* XXX should this go into a separate file ? -Dianora */
2088     /* parse_aline
2089     *
2090     * input - pointer to cmd name being used
2091     * - pointer to client using cmd
2092     * - parc parameter count
2093     * - parv[] list of parameters to parse
2094     * - parse_flags bit map of things to test
2095     * - pointer to user or string to parse into
2096     * - pointer to host or NULL to parse into if non NULL
2097     * - pointer to optional tkline time or NULL
2098     * - pointer to target_server to parse into if non NULL
2099     * - pointer to reason to parse into
2100     *
2101     * output - 1 if valid, -1 if not valid
2102     * side effects - A generalised k/d/x etc. line parser,
2103     * "ALINE [time] user@host|string [ON] target :reason"
2104     * will parse returning a parsed user, host if
2105     * h_p pointer is non NULL, string otherwise.
2106     * if tkline_time pointer is non NULL a tk line will be set
2107     * to non zero if found.
2108     * if tkline_time pointer is NULL and tk line is found,
2109     * error is reported.
2110     * if target_server is NULL and an "ON" is found error
2111     * is reported.
2112     * if reason pointer is NULL ignore pointer,
2113 db 936 * this allows use of parse_a_line in unkline etc.
2114 adx 30 *
2115     * - Dianora
2116     */
2117     int
2118     parse_aline(const char *cmd, struct Client *source_p,
2119     int parc, char **parv,
2120     int parse_flags, char **up_p, char **h_p, time_t *tkline_time,
2121     char **target_server, char **reason)
2122     {
2123     int found_tkline_time=0;
2124     static char def_reason[] = "No Reason";
2125     static char user[USERLEN*4+1];
2126     static char host[HOSTLEN*4+1];
2127    
2128     parv++;
2129     parc--;
2130    
2131     found_tkline_time = valid_tkline(*parv, TK_MINUTES);
2132    
2133     if (found_tkline_time != 0)
2134     {
2135     parv++;
2136     parc--;
2137    
2138     if (tkline_time != NULL)
2139     *tkline_time = found_tkline_time;
2140     else
2141     {
2142     sendto_one(source_p, ":%s NOTICE %s :temp_line not supported by %s",
2143     me.name, source_p->name, cmd);
2144     return -1;
2145     }
2146     }
2147    
2148     if (parc == 0)
2149     {
2150 michael 1834 sendto_one(source_p, form_str(ERR_NEEDMOREPARAMS),
2151 adx 30 me.name, source_p->name, cmd);
2152     return -1;
2153     }
2154    
2155     if (h_p == NULL)
2156     *up_p = *parv;
2157     else
2158     {
2159     if (find_user_host(source_p, *parv, user, host, parse_flags) == 0)
2160     return -1;
2161    
2162     *up_p = user;
2163     *h_p = host;
2164     }
2165    
2166     parc--;
2167     parv++;
2168    
2169     if (parc != 0)
2170     {
2171     if (irccmp(*parv, "ON") == 0)
2172     {
2173     parc--;
2174     parv++;
2175    
2176     if (target_server == NULL)
2177     {
2178     sendto_one(source_p, ":%s NOTICE %s :ON server not supported by %s",
2179     me.name, source_p->name, cmd);
2180     return -1;
2181     }
2182    
2183 michael 1219 if (!HasOFlag(source_p, OPER_FLAG_REMOTEBAN))
2184 adx 30 {
2185 michael 1834 sendto_one(source_p, form_str(ERR_NOPRIVS),
2186 adx 30 me.name, source_p->name, "remoteban");
2187     return -1;
2188     }
2189    
2190     if (parc == 0 || EmptyString(*parv))
2191     {
2192 michael 1834 sendto_one(source_p, form_str(ERR_NEEDMOREPARAMS),
2193 adx 30 me.name, source_p->name, cmd);
2194     return -1;
2195     }
2196    
2197     *target_server = *parv;
2198     parc--;
2199     parv++;
2200     }
2201     else
2202     {
2203     /* Make sure target_server *is* NULL if no ON server found
2204     * caller probably NULL'd it first, but no harm to do it again -db
2205     */
2206     if (target_server != NULL)
2207     *target_server = NULL;
2208     }
2209     }
2210    
2211     if (h_p != NULL)
2212     {
2213     if (strchr(user, '!') != NULL)
2214     {
2215     sendto_one(source_p, ":%s NOTICE %s :Invalid character '!' in kline",
2216     me.name, source_p->name);
2217     return -1;
2218     }
2219    
2220 michael 1243 if ((parse_flags & AWILD) && !valid_wild_card(source_p, 1, 2, *up_p, *h_p))
2221 adx 30 return -1;
2222     }
2223     else
2224 michael 1243 if ((parse_flags & AWILD) && !valid_wild_card(source_p, 1, 1, *up_p))
2225 adx 30 return -1;
2226    
2227     if (reason != NULL)
2228     {
2229 michael 867 if (parc != 0 && !EmptyString(*parv))
2230 adx 30 {
2231     *reason = *parv;
2232 michael 1243 if (!valid_comment(source_p, *reason, 1))
2233 adx 30 return -1;
2234     }
2235     else
2236     *reason = def_reason;
2237     }
2238    
2239     return 1;
2240     }
2241    
2242     /* find_user_host()
2243     *
2244     * inputs - pointer to client placing kline
2245     * - pointer to user_host_or_nick
2246     * - pointer to user buffer
2247     * - pointer to host buffer
2248     * output - 0 if not ok to kline, 1 to kline i.e. if valid user host
2249     * side effects -
2250     */
2251     static int
2252     find_user_host(struct Client *source_p, char *user_host_or_nick,
2253     char *luser, char *lhost, unsigned int flags)
2254     {
2255     struct Client *target_p = NULL;
2256     char *hostp = NULL;
2257    
2258     if (lhost == NULL)
2259     {
2260     strlcpy(luser, user_host_or_nick, USERLEN*4 + 1);
2261     return 1;
2262     }
2263    
2264     if ((hostp = strchr(user_host_or_nick, '@')) || *user_host_or_nick == '*')
2265     {
2266     /* Explicit user@host mask given */
2267    
2268 michael 593 if (hostp != NULL) /* I'm a little user@host */
2269 adx 30 {
2270     *(hostp++) = '\0'; /* short and squat */
2271     if (*user_host_or_nick)
2272     strlcpy(luser, user_host_or_nick, USERLEN*4 + 1); /* here is my user */
2273     else
2274     strcpy(luser, "*");
2275     if (*hostp)
2276     strlcpy(lhost, hostp, HOSTLEN + 1); /* here is my host */
2277     else
2278     strcpy(lhost, "*");
2279     }
2280     else
2281     {
2282     luser[0] = '*'; /* no @ found, assume its *@somehost */
2283     luser[1] = '\0';
2284     strlcpy(lhost, user_host_or_nick, HOSTLEN*4 + 1);
2285     }
2286    
2287     return 1;
2288     }
2289 michael 1518 else
2290 adx 30 {
2291     /* Try to find user@host mask from nick */
2292     /* Okay to use source_p as the first param, because source_p == client_p */
2293     if ((target_p =
2294     find_chasing(source_p, source_p, user_host_or_nick, NULL)) == NULL)
2295     return 0;
2296    
2297     if (IsExemptKline(target_p))
2298     {
2299     if (!IsServer(source_p))
2300     sendto_one(source_p,
2301     ":%s NOTICE %s :%s is E-lined",
2302     me.name, source_p->name, target_p->name);
2303     return 0;
2304     }
2305    
2306     /*
2307     * turn the "user" bit into "*user", blow away '~'
2308     * if found in original user name (non-idented)
2309     */
2310     strlcpy(luser, target_p->username, USERLEN*4 + 1);
2311    
2312     if (target_p->username[0] == '~')
2313     luser[0] = '*';
2314    
2315     if (target_p->sockhost[0] == '\0' ||
2316     (target_p->sockhost[0] == '0' && target_p->sockhost[1] == '\0'))
2317     strlcpy(lhost, target_p->host, HOSTLEN*4 + 1);
2318     else
2319     strlcpy(lhost, target_p->sockhost, HOSTLEN*4 + 1);
2320     return 1;
2321     }
2322    
2323     return 0;
2324     }
2325    
2326     /* valid_comment()
2327     *
2328     * inputs - pointer to client
2329     * - pointer to comment
2330     * output - 0 if no valid comment,
2331     * - 1 if valid
2332     * side effects - truncates reason where necessary
2333     */
2334     int
2335     valid_comment(struct Client *source_p, char *comment, int warn)
2336     {
2337     if (strlen(comment) > REASONLEN)
2338     comment[REASONLEN-1] = '\0';
2339    
2340     return 1;
2341     }
2342    
2343     /* match_conf_password()
2344     *
2345     * inputs - pointer to given password
2346     * - pointer to Conf
2347     * output - 1 or 0 if match
2348     * side effects - none
2349     */
2350     int
2351 michael 1632 match_conf_password(const char *password, const struct MaskItem *conf)
2352 adx 30 {
2353     const char *encr = NULL;
2354    
2355 michael 1632 if (EmptyString(password) || EmptyString(conf->passwd))
2356 adx 30 return 0;
2357    
2358 michael 1632 if (conf->flags & CONF_FLAGS_ENCRYPTED)
2359     encr = crypt(password, conf->passwd);
2360 adx 30 else
2361     encr = password;
2362    
2363 michael 1632 return !strcmp(encr, conf->passwd);
2364 adx 30 }
2365    
2366     /*
2367     * cluster_a_line
2368     *
2369     * inputs - client sending the cluster
2370     * - command name "KLINE" "XLINE" etc.
2371     * - capab -- CAP_KLN etc. from s_serv.h
2372 michael 1309 * - cluster type -- CLUSTER_KLINE etc. from conf.h
2373 adx 30 * - pattern and args to send along
2374     * output - none
2375     * side effects - Take source_p send the pattern with args given
2376     * along to all servers that match capab and cluster type
2377     */
2378     void
2379     cluster_a_line(struct Client *source_p, const char *command,
2380 michael 593 int capab, int cluster_type, const char *pattern, ...)
2381 adx 30 {
2382     va_list args;
2383     char buffer[IRCD_BUFSIZE];
2384 michael 593 const dlink_node *ptr = NULL;
2385 adx 30
2386     va_start(args, pattern);
2387     vsnprintf(buffer, sizeof(buffer), pattern, args);
2388     va_end(args);
2389    
2390     DLINK_FOREACH(ptr, cluster_items.head)
2391     {
2392 michael 1632 const struct MaskItem *conf = ptr->data;
2393 adx 30
2394     if (conf->flags & cluster_type)
2395     sendto_match_servs(source_p, conf->name, CAP_CLUSTER|capab,
2396     "%s %s %s", command, conf->name, buffer);
2397     }
2398     }
2399    
2400     /*
2401     * split_nuh
2402     *
2403     * inputs - pointer to original mask (modified in place)
2404     * - pointer to pointer where nick should go
2405     * - pointer to pointer where user should go
2406     * - pointer to pointer where host should go
2407     * output - NONE
2408     * side effects - mask is modified in place
2409     * If nick pointer is NULL, ignore writing to it
2410     * this allows us to use this function elsewhere.
2411     *
2412     * mask nick user host
2413     * ---------------------- ------- ------- ------
2414     * Dianora!db@db.net Dianora db db.net
2415     * Dianora Dianora * *
2416     * db.net * * db.net
2417     * OR if nick pointer is NULL
2418     * Dianora - * Dianora
2419     * Dianora! Dianora * *
2420     * Dianora!@ Dianora * *
2421     * Dianora!db Dianora db *
2422     * Dianora!@db.net Dianora * db.net
2423     * db@db.net * db db.net
2424     * !@ * * *
2425     * @ * * *
2426     * ! * * *
2427     */
2428     void
2429 michael 593 split_nuh(struct split_nuh_item *const iptr)
2430 adx 30 {
2431     char *p = NULL, *q = NULL;
2432    
2433 michael 593 if (iptr->nickptr)
2434     strlcpy(iptr->nickptr, "*", iptr->nicksize);
2435     if (iptr->userptr)
2436     strlcpy(iptr->userptr, "*", iptr->usersize);
2437     if (iptr->hostptr)
2438     strlcpy(iptr->hostptr, "*", iptr->hostsize);
2439    
2440     if ((p = strchr(iptr->nuhmask, '!')))
2441 adx 30 {
2442     *p = '\0';
2443    
2444 michael 593 if (iptr->nickptr && *iptr->nuhmask != '\0')
2445     strlcpy(iptr->nickptr, iptr->nuhmask, iptr->nicksize);
2446 adx 30
2447 michael 593 if ((q = strchr(++p, '@'))) {
2448     *q++ = '\0';
2449    
2450 adx 30 if (*p != '\0')
2451 michael 593 strlcpy(iptr->userptr, p, iptr->usersize);
2452 adx 30
2453 michael 593 if (*q != '\0')
2454     strlcpy(iptr->hostptr, q, iptr->hostsize);
2455 adx 30 }
2456     else
2457     {
2458     if (*p != '\0')
2459 michael 593 strlcpy(iptr->userptr, p, iptr->usersize);
2460 adx 30 }
2461     }
2462 michael 593 else
2463 adx 30 {
2464 michael 593 /* No ! found so lets look for a user@host */
2465     if ((p = strchr(iptr->nuhmask, '@')))
2466 adx 30 {
2467 michael 593 /* if found a @ */
2468     *p++ = '\0';
2469 adx 30
2470 michael 593 if (*iptr->nuhmask != '\0')
2471     strlcpy(iptr->userptr, iptr->nuhmask, iptr->usersize);
2472 adx 30
2473 michael 593 if (*p != '\0')
2474     strlcpy(iptr->hostptr, p, iptr->hostsize);
2475 adx 30 }
2476 michael 593 else
2477 adx 30 {
2478 michael 593 /* no @ found */
2479     if (!iptr->nickptr || strpbrk(iptr->nuhmask, ".:"))
2480     strlcpy(iptr->hostptr, iptr->nuhmask, iptr->hostsize);
2481 adx 30 else
2482 michael 593 strlcpy(iptr->nickptr, iptr->nuhmask, iptr->nicksize);
2483 adx 30 }
2484     }
2485     }

Properties

Name Value
svn:eol-style native
svn:keywords Id Revision